Compteur (definition cellule)

[Nico17]

Salut a tous!

J'ai vraiment une question un peu con, mais qui me pose pas mal de probleme!

J'ai une macro dans laquelle il ya un compteur! le compteur tourne tant qu'il na pas rencontrer la valeur de la cellule demandee! Et c'est la le probleme!

je n'arrive pas a defenir la cellule, car celle ci est sur un autre classeur deja ouvert , le compteur s'effectue sur le classeur A, et ma cellule de reference est dans le classeur B. Voici le code de cette macro a suivre:

Sheets("sheet1").Select

compteur = 1

Do

compteur = compteur + 1

Loop Until Cells(compteur, 2) = Cells(11, 4).Value

Cells(compteur, 1).Select


C'est avec Cells(11,4).value que j'ai un probleme, car cette cellule n'appartient pas a Sheet1 mais a une autre feuille dans un autre classeur.

Comment dois je defenir ma cellule !

Merci d'avance de l'aide que vous pourrez m'apporter!

 

[@Christophe@]

Bonjour,

Modifie comme cela:

Loop Until Cells(compteur, 2) = Workbooks("Nom Classeur").Worksheets("Nom Feuil").Cells(11, 4).Value

Et voila

Bonne journée

@Christophe@

 

[Nico17]

Merci a toi @Christophe@ !!!!
Mais le probleme qui suit, est que le nom du classeur, je ne le connait pas a l'avance!
Je ne peu donc pas ecrire le nom d'un classeur precis!

Je pense quil faut declarer des variables etc... Mais je narrive a rien!

Si tu peu meclairer!?

 

[@Christophe@]

Re

Indique les numéro de classeur alors;

Exemple:

Loop Until Cells(compteur, 2) = Workbooks(2).Worksheets("Nom Feuil").Cells(11, 4).Value

Workbook(1) = ton classeur ouvert en premier
....

Essaye comme cela


Bonne chance


@Christophe@

 

[Nico17]

Ca marche christophe!

Mais cela veut dire que si d'autre classeur excel sont ouvert, cela plante!!
Merci quand meme! Je cherche!

Et avec

Dim Nom_fichier
Nom_fichier=range("A1")

Loop Until Cells(compteur, 2) = Workbooks("Nom_fichier").Worksheets("Nom Feuil").Cells(11, 4).Value

Cela ne marche pas non plus!!!!

 

[@Christophe@]

Re,

Modifie comme cela:

Dim Nom_fichier
Nom_fichier=range("A1").value

Loop Until Cells(compteur, 2) = Workbooks(Nom_fichier).Worksheets("Nom Feuil").Cells(11, 4).Value


Bonne journée

@Christophe@

 

[Melo452]

Nickel ca marche!!!!!!!!!!!!!!!!!!!! MERCI MERCI!!!!!!