Créer une boucle sur vba
Fermé
rodlan
-
13 déc. 2007 à 12:07
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 13 déc. 2007 à 16:54
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 13 déc. 2007 à 16:54
Bonjour,
je voudrais créer un programme qui compare la valeur d'une cellule d'une feuille1 à celles d'une feuille2 et supprime cette valeur des deux feuilles, si elle est la même ou ne fait rien dans le cas contraire; mais passe à la seconde valeur de la feuille1 et recommence la procédure.
P.S.: Dans les deux feuilles, les valeurs sont disposées sur une colonne
le nombre de valeurs sur une colonne est variable dans le temps
merci
je voudrais créer un programme qui compare la valeur d'une cellule d'une feuille1 à celles d'une feuille2 et supprime cette valeur des deux feuilles, si elle est la même ou ne fait rien dans le cas contraire; mais passe à la seconde valeur de la feuille1 et recommence la procédure.
P.S.: Dans les deux feuilles, les valeurs sont disposées sur une colonne
le nombre de valeurs sur une colonne est variable dans le temps
merci
A voir également:
- Créer une boucle sur vba
- Créer un compte instagram sur google - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
1 réponse
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
13 déc. 2007 à 16:54
13 déc. 2007 à 16:54
for i = 1 to 100 ' ou autre limit
if Worksheets("Sheet1").Range("A" & i) = Worksheets("Sheet2").Range("A" & i) then
Worksheets("Sheet1").Range("A" & i) = ""
Worksheets("Sheet2").Range("A" & i) = ""
endif
next
au lieu de "for i = 1 to 100" tu peux aussi créer un Range nommé (plus pratique) et boucler avec for each c in range("MyRange")
if Worksheets("Sheet1").Range("A" & i) = Worksheets("Sheet2").Range("A" & i) then
Worksheets("Sheet1").Range("A" & i) = ""
Worksheets("Sheet2").Range("A" & i) = ""
endif
next
au lieu de "for i = 1 to 100" tu peux aussi créer un Range nommé (plus pratique) et boucler avec for each c in range("MyRange")