dsl, encore un pb en vba....

Marsh Posté le 21-06-2004 à 10:33:37

Salut tout le monde

G fait une petite fonction vba pour excel qui tout simplement supprime la ligne quand deux cellules (verticales) ont la mm valeur!

Code :

Sub SupprLigne()
Set rngCurrentCell = Worksheets("Final" ).Range("D3:D4677" )
Do While Not IsEmpty(rngCurrentCell)
Set rngNextCell = rngCurrentCell.Offset(1, 0)
If rngNextCell.Value = rngCurrentCell.Value Then
rngCurrentCell.EntireRow.Delete
End If
Set rngCurrentCell = rngNextCell
Loop
End Sub

Ca me semble bon mais ca me fait un "type mismatch"!!

Merci davance!

Marsh Posté le 21-06-2004 à 10:33:37

Marsh Posté le 21-06-2004 à 10:49:52

Code :

Sub SupprLigne()
Dim rngCurrentCell As Range
Dim rngNextCell As Range
Set rngCurrentCell = Worksheets("Final" ).Range("D3" )
Do While Not IsEmpty(rngCurrentCell)
Set rngNextCell = rngCurrentCell.Offset(1, 0)
If rngNextCell.Value = rngCurrentCell.Value Then
rngCurrentCell.EntireRow.Delete
End If
Set rngCurrentCell = rngNextCell
Loop
End Sub

G t bloke vendredi, mais apres le week end, mon cerveau est revenu et g trouve tout seul, comme un gd!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *