Discussion :

[mouncefdi]

salut tout le monde,

J'ai des codes qui marchent bien pour un de mes onglets nommé "sheet1", je souhaite appliquer les mêmes codes pour mes autres onglets, en sachant que la seule chose à remplacer dans les codes sera le nom de l'onglet(ce nom intervient quand je Set la worksheet mais aussi dans le cadre de concaténations...)

Est ce qu'on peut définir ce Nom comme variable qui prendra les noms des onglets les uns après les autres....??
En sachant que je souhaite lancer une seul fois mes codes grace à un boutton pour générer mes tableaux sur toutes les sheets ( le boutton est deja fait pour la sheet1)..

Merci pour l'aide

[Didier Gonard]

Bonjour,

Le code d'un objet Feuille donné se réfère à celle-ci, dans des modules ordinaire, tu peux effectivement dire à ton code "pour chaque feuille de ce classeur..." ou pour "telles feuilles de ce classeur..." faire ceci et cela.

vois dans l'aide vba du côté de Worksheets, Sheets, il y a des exemples et du côté de Création de variables Objets sinon.
Voir aussi à "Me" si besoin
Le nom d'une feuille sinon peux être mis dans une variable String .

cordialement,

Didier

[La Zélie]

Bonjour

Je te donne une idée:

Code :

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

1
2
3
4
5
 
Dim MaVariable as String
 
MaVariable=ActiveSheet.Name
Sheets(MaVariable).(ton code)

C'est tout ce que je sais faire

[mouncefdi]

j'ai cherché dans l'aide mais je ne trouve pas
je suis toujours la dessus

a toute a l heure

[laetitia]

bonjour mouncefdi La Zélie Ormonth le forum je pense que La Zélie ta donner la bonne reponse il faudrait voir ton code pour adapter!!

[patbou]

bonjour,

L ' idée : boucler sur toutes le fl du classeurs puis passer le nom de la feuille
de type string à la procédure qui doit effecter les opérations sur chaque onglet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub EnumSheets()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
   AffichNomOnglet sh.Name
Next sh
End Sub
 
 
Sub AffichNomOnglet(nm As String)
Dim sh As Worksheet
Set sh = Worksheets(nm)
MsgBox sh.Name
End Sub

[AlainTech]

Un petit conseil à tous:
Apprenez à penser objet.

En reprenant le code de patbou, il est possible de passer un objet sheet à une procédure ou fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EnumSheets()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
   AffichNomOnglet sh
Next sh
End Sub
 
 
Sub AffichNomOnglet(wks as Worksheet)
MsgBox wks.Name
End Sub

[Didier Gonard]

Oui... l'objet qui pose problème, est pour le moment la question elle-même on ne sait toujours pas précisément si le code auquel Mouncefdi fait allusion se situe dans un module de feuille ou ordinaire ni précisément la question précise, un (ou des ) bouts de code serait(ent) très précieux pour faire avancer le Schmilblick dans le bon sens

cordialement,

Didier

[mouncefdi]

Salut tout le monde,

Merci pour vos réponses....

Pour Ormonth, mes codes se situe dans un module

j'ai opter pour la solution suivante finalement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Réplication_autres_feuilles()
 
Dim vect(1 To 8) As String
Dim i As Integer
vect(1) = "sheet1"
vect(2) = "sheet2"
vect(3) = "sheet3"
vect(4) = "sheet4"
vect(5) = "sheet5"
vect(6) = "sheet6"
vect(7) = "sheet7"
vect(8) = "sheet8"
 
 
For i = LBound(vect) To UBound(vect)
    Call AdapterFeuilles(vect(i))
Next i
 
End Sub

Le problème est résolu Merci à tous