Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compteur (definition cellule)

N

Nico17

Guest
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@

Guest
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@
 
N

Nico17

Guest
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@

Guest
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@
 
N

Nico17

Guest
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@

Guest
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@
 

Discussions similaires

Réponses
7
Affichages
426
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…