Bonjour,
Je débute dans la création de macro et j'espère que ma question sera comprise...
J'aimerais faire une boucle ( du genre do while ... loop) et lorsque la condition n'est plus satisfaite qu'il passe à une autre boucle avec une autre condition.
Pour mon cas, j'aimerais compléter des données du tableau1 en allant chercher les valeurs dans le tableau2.
Et comme il y a plusieurs colonnes à compléter, je voudrais lui demander de faire un vlookup pour toutes les cellules vides de la colonne E et quand il n'y a plus de cellule à compléter pour la colonne E qu'il passe à la colonne F et me fait la même chose et ainsi de suite.
voici la macro que j'ai écrite:
Range("E1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.Offset(0, -1).Value <> ""
ActiveCell.Formula = _
"=+VLOOKUP(RC[9],'[Sans codeblock Fichier chanse.xls]Pas dans la liste'!R9C2:R33C19,6,FALSE)"
Range("E1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Loop
Le problème c'est que dés qu'il a fini la boucle j'ai beau ajouté une autre boucle en changeant la colonne E par F, il ne fait rien...
J'espère que je me suis fait comprendre, soyez indulgent je débute...
Merci 🙂
Je débute dans la création de macro et j'espère que ma question sera comprise...
J'aimerais faire une boucle ( du genre do while ... loop) et lorsque la condition n'est plus satisfaite qu'il passe à une autre boucle avec une autre condition.
Pour mon cas, j'aimerais compléter des données du tableau1 en allant chercher les valeurs dans le tableau2.
Et comme il y a plusieurs colonnes à compléter, je voudrais lui demander de faire un vlookup pour toutes les cellules vides de la colonne E et quand il n'y a plus de cellule à compléter pour la colonne E qu'il passe à la colonne F et me fait la même chose et ainsi de suite.
voici la macro que j'ai écrite:
Range("E1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.Offset(0, -1).Value <> ""
ActiveCell.Formula = _
"=+VLOOKUP(RC[9],'[Sans codeblock Fichier chanse.xls]Pas dans la liste'!R9C2:R33C19,6,FALSE)"
Range("E1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Loop
Le problème c'est que dés qu'il a fini la boucle j'ai beau ajouté une autre boucle en changeant la colonne E par F, il ne fait rien...
J'espère que je me suis fait comprendre, soyez indulgent je débute...
Merci 🙂