Macro pour plusieurs feuilles...

Hervé

XLDnaute Barbatruc

• 7 Juillet 2005

• #2

Bonjour tinel, le forum

Tinel, comme tu ne précises pas comment les feuilles sont ciblées (par leurs noms, leurs emplacements...) , cette macro travaille sur les feuilles saisient dans le tableau (feuilles)

Sub Bouton1_QuandClic()
Dim feuilles As Variant
Dim i As Byte

'dans le tableau feuilles, on stocke les noms des feuilles désirées
feuilles = Array('Feuil1', 'Feuil3', 'Feuil5')
'pour i=0 jusqu'au dernier item du tableau feuilles
For i = 0 To UBound(feuilles)
    'avec la feuille
    With Sheets(feuilles(i))
        'ici ton code
    End With
Next i

End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

T

tinel

Guest

• 7 Juillet 2005

• #3

Salut Hervé

en fait, je voudrais une autre macro qui appellerait pour chaque feuille tour à tour, la macro contenant les actions

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 7 Juillet 2005

• #4

bonjour,

Voici une macro hyper top complexe 😛 qui écrit le nom de chaque feuille selectionnée dans le range A1 d'une selection multiple de feuille (CTRL + click, just in case)

Code:

For Each feufeuille In ActiveWindow.SelectedSheets
feufeuille.Range('A1').Value = feufeuille.Name
Next

Je pense qu'en mettant ta macro ou un appel à ta macro dans le for / next ca devrait aller

Enjoy

Message édité par: 2passage, à: 07/07/2005 17:02

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 7 Juillet 2005

• #5

rebonjour tinel, salut 2passage.

Tinel, sinon, à la place de 'ici ton code, comme le dis 2passage, tu peux placer un appel de macro. Pour ceci il suffit de mentionner le nom de la macro, et s'assurer que celle-ci est déclarer public.

mais, je t'avoue, ne pas avoir bien compris le sens de ta deuxième intervention.

En espérant t'avoir aidé.

Salut

 

Vote positif 0 Vote négatif

T

tinel

Guest

• 7 Juillet 2005

• #6

Salut à vous deux

Oui Hervé c'est plus comme ta deuxième solution...c'est bon ça marche!

Merci!
tinel

 

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 11 Septembre 2012

• #7

Re : Re:Macro pour plusieurs feuilles...

Bonsoir,

j'ai un peu le même problème mais je n'arrive pas à utiliser vos conseils pour mon propre cas. Je vous joins mon fichier.

En gros, sur chaque feuille, j'ai trois boutons : deux sont propres à chaque feuille (position initiale et pts) et un troisième "test". Ce troisième utilise le même code pour les deux feuilles. Mais à chaque fois que je l'utilise, j'ai le code 438 qui apparait. Il est censé faire la même chose que le bouton "pts".

Merci pour l'aide que vous pourrez m'apporter.

 

Pièces jointes

• test.xlsm

  57.9 KB · Affichages: 141
• test.xlsm

  57.9 KB · Affichages: 152
• test.xlsm

  57.9 KB · Affichages: 165

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 11 Septembre 2012

• #8

Re : Macro pour plusieurs feuilles...

Bonsoir,

Un squatter, tiens, tiens.

Il aurait été préférable d'ouvrir ta propre discussion et, au besoin, mettre un lien à celle-ci pour le propos.

Quoi qu'il en soit.

Dans ta macro test, tu as écrit :

Code:

 ActiveWorkbook.ActiveSheets.Sort.SortFields.Clear

ActiveSheet a un "s" de trop.

Aussi si tu veux que Test soit utilisé indifféremment sur une feuille ou l'autre, change cette ligne :

Code:

    With ActiveWorkbook.Worksheets("regional 3").Sort

Pour

Code:

    With ActiveWorkbook.ActiveSheet.Sort

Pour évider les erreurs, écris ton code en minuscule. En changeant de ligne, si les majuscules n'apparaissent pas, c'est qu'il y a faute d'orthographe.

ActiveWorkbook n'est probablement pas utile.

G

 

Dernière édition: 11 Septembre 2012

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 11 Septembre 2012

• #9

Re : Macro pour plusieurs feuilles...

Bonjour,

merci pour l'aide. J'ai squatté simplement parce que je ne voulais pas faire doublon.

Cordialement

 

Vote positif 0 Vote négatif