Traduir une boucle

[flo2002]

Re bonjour le forum,
ce matin je cherche à comprendre comment fonctionne une boucle.
Quelqu'un peut-il me traduire celle ci:
Dim derligne1%, derligne2%
Dim i1%, i2%
Dim Exist
derligne1 = Sheets('AFU').Range('b65536').End(xlUp).Row
derligne2 = Sheets('Extract_AFU').Range('d65536').End(xlUp).Row
For i2 = 1 To derligne2
For i1 = 1 To derligne1
If Sheets('Extract_AFU').Range('d' & i2) = Sheets('AFU').Range('b' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('AFU').Range('b' & derligne1 + 1) = Sheets('Extract_AFU').Range('d' & i2)
derligne1 = Sheets('AFU').Range('b65536').End(xlUp).Row
Suivant:
Exist = 0
Next

merci d'avance!

 

[flo2002]

Re bonjour,

en faite le truc que j'ai du mal à comprendre , c'est

For i2 = 1 To derligne2
For i1 = 1 To derligne1

pourquoi égale à 1?
Cela veut dire quoi? 1 correspond à quelque chose?

 

[Blunet]

Salut ,
Je ne suis pas sûr d'avoir bien compris ta question!!
D'après les déclarations les variables sont de type Long.

Sheets('Extract_AFU').Range('d' & i2) = Sheets('AFU').Range('b' & i1)

permet d'effectuer une comparaison cellule par cellule de tes 2 feuilles en commançant par les cellules de la première ligne
Tu vois il serait difficile ( :woohoo: ) de faire les comparaisons en commançant par Range('B0') ou Range('D0') car ces cellules n'existent pas !!

Ciao

 

[flo2002]

ok donc i1 et 2 ne sont pas des variable mais des valeurs fixe! merci tous s'eclaire!

 

[porcinet82]

Salut Flo, Blunet,

Pour ajouter quelques informations aux explications de Blunet, j'ajoute que For i2 = 1 To derligne2 signifie littéralement Pour la variable i2 allant de la ligne 1 à la ligne présente dans la variable derligne2.
derligne2 ayant été définit auparavant par la ligne derligne2 = Sheets('Extract_AFU').Range('d65536').End(xlUp).Row qui elle signifie que dans la colonne D de la feuille Extract_AFU, on cherhce la première cellule non vide en partant du bas.

A noter qu'un boucle peut tres bien être inversée, j'entends par là, une boucle qui irait de bas en haut et non de haut en bas comme c'est le cas ici. Ce qui donnerait comme code quelque chose du genre:
For i=100 to 1 Step -1
Tu remarqueras le Step -1 qui permet de définir le pas de la boucle, c'est à dire ici de dire de remonter les lignes (mais on pourrait faire la même chose sur les colonnes).

Je ne sais pas si j'ai été très clair, mais j'ai essayé.

Si tu as d'autres questions, n'hesite pas.

@+

 

[Blunet]

flo2002 écrit:

Re bonjour,

en faite le truc que j'ai du mal à comprendre , c'est

For i2 = 1 To derligne2
For i1 = 1 To derligne1

Pour chaque cellule (de la 1ère, colonne B) non vide de la feuille Extract..., vérifier si elle est égale à l'une des cellules de la plage 'D1:dernière cellule vide' de la feuille AFU.

Ciao

 

[Blunet]

slt porcinet
j'ai pas actualisé donc j't'ai pas vu
Ciao

 

[porcinet82]

re,

Pas de mal Blunet. Pour la phrase

ok donc i1 et 2 ne sont pas des variable mais des valeurs fixe! merci tous s'eclaire!

ce n'est pas tout a fait ca. i1 et i2 ne sont pas des valeurs fixes mais belle et bien des variables dont la valeur est incrémenté de 1 à chaque tour de boucle.

@+

 

[flo2002]

Merci Blunet et Porcinet!
un peu plus clair pour moi comme même!