Créer une boucle sur vba
                                    
                        rodlan                    
                                    -
                                     
phil232 Messages postés 610 Statut Membre -
        phil232 Messages postés 610 Statut Membre -
        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
 - Comment créer un groupe whatsapp - Guide
 - Créer un compte google - Guide
 - Créer une adresse hotmail - Guide
 - Créer un compte instagram sur google - Guide
 - Créer un lien pour partager des photos - Guide
 
1 réponse
                        
                    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")