dsl, encore un pb en vba....

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : dsl, encore un pb en vba....

marcmaumont

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!

Publicité

marcmaumont

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!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

dsl, encore un pb en vba....

Sujets relatifs
Plus de sujets relatifs à : dsl, encore un pb en vba....

Page générée en 0.042 secondes