Qud A=B alors supprimer la ligne de B

xav0610 Messages postés 2 Date d'inscription mercredi 23 juin 2004 Statut Membre Dernière intervention 28 juin 2004 - 24 juin 2004 à 16:25
vialstephane Messages postés 89 Date d'inscription mercredi 29 octobre 2003 Statut Membre Dernière intervention 22 mai 2008 - 24 juin 2004 à 16:46
Bonjour,

je suis novice et mon problème est le suivant:
je voudrai faire une macro qui fonctionne comme suit:

Si A est égal à une valeur d'une colonne alors supprimer la ligne où A=B et pouvoir enchainer sur un d'autres instruction en macros.
Merci d'avance,

cordialement,

xav0610

1 réponse

vialstephane Messages postés 89 Date d'inscription mercredi 29 octobre 2003 Statut Membre Dernière intervention 22 mai 2008
24 juin 2004 à 16:46
salut,

i = 1 'debut ligne 1

While Sheets("Feuil1").Cells(i, 1) <> 0 'on boucle jusqu'a la fin de la colonne A

If A = Cells(i, 2) Then 'A egal cellule colonne B

Sheets("Feuil1").Select
Rows(i & ":" & i).Select 'supprime la ligne
Selection.Delete Shift:=xlUp

End If

i = i + 1
Wend

@+
0