T
Temjeh
Guest
Bonsoir le forum
J'ai ce macro:
Range("G1").Select
Do While Not IsEmpty(ActiveCell) = True
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Selection.EntireRow.Delete
Else: ActiveCell.Offset(1, 0).Select
End If
Loop
Que faire pour qu'il ne s'arrête pas si il y a des cells vide dans "G" car il supprime la ligne mais si une cell est vide il arrête
Merci beaucoup
Temjeh
J'ai ce macro:
Range("G1").Select
Do While Not IsEmpty(ActiveCell) = True
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Selection.EntireRow.Delete
Else: ActiveCell.Offset(1, 0).Select
End If
Loop
Que faire pour qu'il ne s'arrête pas si il y a des cells vide dans "G" car il supprime la ligne mais si une cell est vide il arrête
Merci beaucoup
Temjeh