ouverture feuille par variable de cellule

Re : ouverture feuille par variable de cellule

Bonsoir Morkrock et le Forum,

J'avais fait une mauvaise réponse, je corrige et reviens.😡


Global tableau(20) As String ' Pour que le tableau soit visible de toute les procédures
Sub test()

For i = 1 To 3
tableau(i) = Range("A" & CStr(i)) '"sauvegarde des variable' dans les cellule"
' ici j'ai mis 1 2 3 pour après faire feuil1 feuil2 et feuil3"
Next i


For i = 1 To 3
Sheets("Feuil" & tableau(i)).Select
Next i
End Sub

Il faut mettre les variables dans une feuille que tu selectionnes pour mettre les variables en mémoire

Bon test.

Re : ouverture feuille par variable de cellule

Merci de cette rapidité de réponse, toutefois, c'est pas exactement ce que je recherchais... comme un exemple vaut toujours mieux qu'un long discours, je joins un fichier version très simplifiée de mon cas...
merci
morkrock

Re : ouverture feuille par variable de cellule

salut morkrock, jean yves

essaie :
for

i = 1 to 20
if sheets(i).name = sheets("numero").range("A" & cstr(i)).value then sheets(i).select
next i

Cliquez pour agrandir...

Re : ouverture feuille par variable de cellule

Bonjour,
Après une courte nuit je reviens me mettre au "boulot" !!!
Jean-Yves, j'ai essayé ton truc mais ça ne va pas avec mon problème...
En fait, ma liste change à chaque fois et donc les feuilles n'ont jamais les même noms... la variable c'est ça... et lorsque je remplace dans la liste, et donc les noms de feuilles, par des lettres cela fonctionne !!! j'ai donc certainement un problème de ce coté mais je n'y arrive pas...
la ligne qui pose le problème est :

Sheets(Range("B" & i)).Select

où range("B" & i) n'est pas reconnu par sheets (alors que lorsque je place mon curseur dessus en mode débogage, la bonne valeur apparaît)... j'ai le message "l'indice n'appartient pas à la sélection"...

Suis-je assez clair ? c'est pas si sûr !!! lol

Merci encore de toutes façons...

Morkrock

Re : ouverture feuille par variable de cellule

Bonjour Morkrock, wilfried_42 et le forum,

Je pense qu'e tu dois corriger ta ligne en mettant Csrt(I) autrement tu dois avoir un espace entre B et le nombre du au signe :

Sheets(Range("B" & Cstr(i))).Select

Bon test.

Re : ouverture feuille par variable de cellule

Re,
J'ai trouvé une solution qui fonctionne !!!
J'ai donc pas essayé ta solution Jean-Yves... mais j'y reviendrais pour tester plus tard...
En fait, c'etait vraiment un problème de format de cellule, une fois "nombre" et une fois "texte" et tout ça ne se reconnassait pas !!! J'ai donc contourné le problème en appliquant quelques lignes pouyr transformer les "méchantes" colonnes... merci encore... I will be back !!!
Morkrock