Qud A=B alors supprimer la ligne de B

Signaler
Messages postés
2
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
28 juin 2004
-
Messages postés
89
Date d'inscription
mercredi 29 octobre 2003
Statut
Membre
Dernière intervention
22 mai 2008
-
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

Messages postés
89
Date d'inscription
mercredi 29 octobre 2003
Statut
Membre
Dernière intervention
22 mai 2008

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

@+