récupérer valeur d'une ligne

[Seb]

Salut,
dans une macro, je voudrais récupérer une à une toutes les valeurs d'une ligne, je récupère A1, ensuite B1, ensuite C1...jusqu'à ce que j'arrive sur une cellule vide.
Pour une colonne, c'est simple de passer de A1 à A2 à A3 ("A" & i et à chaque fois on ajoute 1 à i), mais pour passer de A1 à B1, je ne sais pas comment faire...
J'ai essayé en style L1C1 mais quand j'essaie Range(L1C1), il y a une erreur...
Merci si vous pouvez m'aider.

 

[Alain]

Bonjour,



Si on considère A1 comme la cellule active tu auras :

A1 --> ActiveCell
B1 --> ActiveCell.Offset(0,1)
C1--> ActiveCell.Offset(0,2)

A2 --> ActiveCell.Offset(1,0)
B2 --> ActiveCell.Offset(1,1)
C2 --> ActiveCell.Offset(1,2)

Et ainsi de suite.

Il te faut donc faire 2 boucles imbriquées.


@+

 

[Seb]

Mais le problème c'est que A1 n'est pas la cellule active...
Je voudrais juste récupérer la valeur de A1,A2,A3,etc... quand j'appuie sur un bouton et afficher toutes les valeurs de cette ligne...

 

[Alain]

Bonjour,


Si A1 n'est pas la cellule active, tu peux quand même y faire référence :


ValeurA1 = Range("A1")
ValeurB1 = Range("A1").Offset(0,1)
ValeurC1 = Range("A1").Offset(0,2)

ValeurA2 = Range("A1").offset(1,0)
ValeurB2 = Range("A1").Offset(1,1)
ValeurC2 = Range("A1").Offset(1,2)


@+