Selection de plusieurs feuilles Excel

Bonjour,

Je suis débutant en VBA alors j'ai un-peu de mal.

Je vous explique mon problème.

Je veux selon ce qui est marqué dans certaines cellules sélectionnées les feuilles correspondantes.

exemple : Si dans la feuille tete a1=1,a2=0, et a3=1 alors je sélectionne seulement les feuilles toto et tata et pas la titi.

Merci de votre réponse.

Bonjour et bienvenue

Si les feuilles Toto, Titi, Tata sont les Feuil2, Feuil3, Feuil4 :

Sub Selectionne()
Dim c As Range
For Each c In Sheets("Tete").Range("A1:A3")
If c.Value = 1 Then Sheets(c.Row + 1).Select
'Action à faire sur la feuille sélectionnée
Next
End Sub

Si ce n'est pas le cas, dans la feuille Tete, en B1 tu écris Toto, B2 = Titi, B3 = Tata

Sub Selectionne()
Dim c As Range
For Each c In Sheets("Tete").Range("A1:A3")
If c.Value = 1 Then Sheets(c.Offset(0, 1).Value).Select
'Action à faire sur la feuille sélectionnée
Next
End Sub

Amicalement

Nad

Ca ne marche pas.

Sa sélectionne aucune feuille.

-- 24 Fév 2011, 09:57 --

Le problème est que ça sélectionne la dernière feuille et non les 3 en même temps.

Re

Peut-être que l'on ne se comprend pas.

Regarde ce fichier :

1 en A1 : la feuille "Toto" est sélectionnée et TEST est écrit en A1

0 en A2 : on ne fait rien

1 en A3 : la feuille "Tata" est sélectionnée et TEST est écrit en A1

Nad

Je souhaite que toute les feuilles ou on a mis 1 soit sélectionnées en même temps.

si a1=1, a2=2 et a3=3 alors les feuilles toto titi et tata sont sélectionnées.

en revanche si a1=1, a2=0 et a3=1 alors les feuilles toto et tata sont sélectionnées mais titi ne l'est pas.

Re

Que veux-tu faire une fois ces feuilles sélectionnées ?

Nad

Alors c'est simple je met 1 dans les cellules ou je veux sélectionnées les feuilles.

Une fois les feuilles sélectionnées j'en rempli une et toute les autres feuilles se remplissent identiquement.

exemple: si la feuille toto titi et tata sont sélectionnées alors je remplis la cellule a1 de la feuille toto et automatiquement la cellule a1 des deux autres feuilles sera rempli par la même donnée.

Re

Je n'ai pas trouvé mieux pour que la feuille "Tete" ne fasse pas partie de la sélection :

Sub Selectionne()
Dim Sh As Range
Dim c As Range
For Each Sh In Sheets("Tete").Range("A1:A3")
If Sh.Value = 1 Then Sheets(Sh.Offset(0, 1).Value).Select
Next Sh
For Each c In Sheets("Tete").Range("A1:A3")
If c.Value = 1 Then Sheets(c.Offset(0, 1).Value).Select Replace:=False
Next c
End Sub

Amicalement

Nad

Merci! bravo! c'est exactement ça qu'il me fallait