Discussion :

[P4board]

Bonjour,

Je souhaiterais travailler sur les feuilles par leur codename sous forme de string variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i As Integer
Dim codeNameFeuille As String
For i = 1 To 2
  codeNameFeuille = "Feuil" & i
  codeNameFeuille.Range("A1") = "OK"
Next i

Bien sur cela ne marche pas...

J'ai également essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i As Integer
Dim codeNameFeuille As Worksheet
For i = 1 To 2
  codeNameFeuille = "Feuil" & i
  codeNameFeuille.Range("A1") = "OK"
Next i

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i As Integer
Dim codeNameFeuille As Worksheet
For i = 1 To 2
  codeNameFeuille = Evaluate("Feuil" & i)
  codeNameFeuille.Range("A1") = "OK"
Next i

Auriez-vous une solution ou faut-il faire une recherche sur tous les onglets pour avoir le count ou le name ?

Merci

Olivier.

[SfJ5Rpw8]

...
Auriez-vous une solution ou faut-il faire une recherche sur tous les onglets pour avoir le count ou le name ?
....

pourrait-tu ré-exprimer ta question ? c'est quoi "le count" ou "le name" ? tu dois agir sur quelles feuilles (toutes les feuilles du classeur..?) ?

[Orhleil]

Salut à toi !
Les feuilles ont en fait 2 noms, tu peux les voir dans les propriétés en tant que "(name)" et "name". Le second est le nom qui apparait pour l'utilisateur lambda. Le premier représente quant à lui le nom de l'objet Worksheet auquel cette feuille correspond.
Donc pour accéder à la feuille tu as 2 solutions :
- Truc.Range("A1"), où Truc est le "(name)"
- Worksheets.("Machin").Range("A1"), où Machin est le "name"
Donc dans ton cas c'est la 2è solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i As Integer
Dim codeNameFeuille As String
For i = 1 To 2
  codeNameFeuille = "Feuil" & i
  Worksheets(codeNameFeuille).Range("A1") = "OK"
Next i

En espérant t'avoir aidé

EDIT : d'ailleurs au cas où, pour que l'utilisateur puisse changer les noms des feuilles si ça lui chante, je te conseillerais plutôt de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Feuille In Worksheets
    Feuille.Range("A1").Formula = "OK"
Next Feuille

EDIT 2 : enfin ma remarque juste au dessus est valable si tu veux parcourir toutes les Worksheets, ce qui ne semble pas être le cas ici

[kiki29]

Salut,voir également http://www.developpez.net/forums/d92...cel/vba-bases/

[P4board]

Merci pour ces réponses, mais c'est bien le codeName que je souhaite utiliser et nom le name...

Par le name :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Feuil" & i").range("A1")="OK"

fonctionne, c'est ce que je faisais jusqu'à présent mais ce n'est pas ce que je voulais faire pour améliorer mon code.

Par le codeName :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Feuil1.Range("A1") = "OK"
Feuil2.Range("A1") = "OK"

fonctionne aussi mais je voudrais transformer le nom en variable

Par le count :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Worksheets(1).Range("A1") = "OK"
  Worksheets(2).Range("A1") = "OK"

Cette exemple est simple mais mon appli un peu plus complexe.

Peut-être une autre solution ?

[SfJ5Rpw8]

désolé je ne comprends toujours pas ton histoire par "le count" tu ne pourrai pas traduire en français ?

ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets(1).Range("A1") = "OK"
  Worksheets(2).Range("A1") = "OK"

ne te convient'il pas ?

[P4board]

Désolé pour le langage...

le count correspond à l'ordre des feuilles.

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Worksheets(1).Range("A1") = "OK"
  Worksheets(2).Range("A1") = "OK"

me conviendrais si j'avais le fameux numéro ; je n'ai que le nom du codeName (et pas du name).

Pour s'en sortir il faudrait faire une boucle sur toutes les feuilles et vérifier que le codeName correspond, j'aurais alors son numéro (count), mais ce n'est pas vraiment très beau...

ex avec le code suivant qui devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    For i = 1 To Worksheets.Count
      If (Worksheets(i).CodeName = codeNameFeuille ) Then
        Worksheets(i).range("A1").value="OK"
        Exit For
      End If
    Next i