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.