[Non résolu] Récupérer une valeur adjacente sur une boucle

[Laosurlamontagne]

Bonjour à tous,

Je coince sur une formulation VBA sur une boucle... J'ai une macro qui tourne sur une boucle pour extraire des données d'une grosse base de donnée qui contient trois colonnes que j'ai nommé "entree", "pays", "ville":

For Each entree In Range("entree")
    Sheets("feuil2").Range("C3") = entree
    Sheets("feuil2").Range("C4") = pays
    Sheets("feuil2").Range("C6") = ville

Si la valeur en C3 correspond bien, évidemment, ça ne marche pas pour les 2 autres colonnes... En gros, c'est comment récupérer la valeur de la colonne +x par rapport à la ligne "entrée" concernée par la boucle?

Sauriez-vous m'aider?
Merci !

 

[Iznogood1]

Re : [Non résolu] Récupérer une valeur adjacente sur une boucle

Bonjour
Regarde du coté de "offset"
Range("A1").Offset(0,1).value renvoie la valeur de B1

 

[Laosurlamontagne]

Re : [Résolu] Récupérer une valeur adjacente sur une boucle

Implacable, ça marche, merci. Le code final est:

For Each entree In Range("entree")
    Sheets("feuil2").Range("C3") = entree
    Sheets("feuil2").Range("C4") = Range("entree").Offset(0,8).Value
    Sheets("feuil2").Range("C6") = Range("entree").Offset(0,4).Value