Bouton identique sur plusieurs feuilles

**jeanmanu** · 08/07/2008, 16h49

Bonjour
je ne suis pas développeur et ma question va peut être vous sembler bête...

j'ai 5 feuilles.
Dans mes 5 feuilles, j'ai 5 boutons dont le code est identique :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim FEUILLE As String
FEUILLE = ActiveSheet.Name
UserForm1.ComboBox1.Value = Sheets(FEUILLE).Range("K3").Value 'REGION
UserForm1.ComboBox7.Value = Sheets(FEUILLE).Range("K4").Value 'SUB-REGION
(...)
UserForm1.Show
End Sub

Y a t il un moyen pour avoir une seule procédure pour mes 5 boutons?
merci d'avance

**casefayere** · 08/07/2008, 16h58

Bonjour,
à mon avis oui en mettant ton code dans un module (ex : que tu appelle test) et en appelant ce code avec ton bouton (call test) et en spécifiant avant call test > feuille = activesheet.name

**jeanmanu** · 08/07/2008, 17h04

bonjour
j'ai essayé mais il me dit "l'indice n'appartient pas à la sélection"

**casefayere** · 08/07/2008, 17h06

A quelle ligne ? parce moi j'ai été vite pour te répondre et peut-être trop imprécis

**jeanmanu** · 08/07/2008, 17h08

ok, j'ai mis

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim FEUILLE As String
FEUILLE = ActiveSheet.Name
UserForm1.ComboBox1.Value = Sheets(FEUILLE).Range("K3").Value 'REGION
UserForm1.ComboBox7.Value = Sheets(FEUILLE).Range("K4").Value 'SUB-REGION
(...)
UserForm1.Show
End Sub

puis dans private, un call test
cela marche

par contre, j'avais mis avant un application.run("ma_procedure"), et là, cela ne marchait pas. Pourquoi?

**casefayere** · 08/07/2008, 17h10

Si ça marche comme ça, c'est bien mais pour

par contre, j'avais mis avant un application.run("ma_procedure"), et là, cela ne marchait pas. Pourquoi?

Je ne saurais te répondre

**fring** · 08/07/2008, 17h23

Bonjour,

Code :

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

Application.Run ("MaMacro")

fonctionne au même titre que

Code :

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

Call MaMacro

ou tout simplement

Code :

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

MaMacro 'Call étant facultatif dans ce cas

Application.Run est principalement utilisé pour appeler une procédure située dans un autre classeur

**jeanmanu** · 08/07/2008, 17h31

merci pour ces conseils.

relisant mon code, je souhaiterais l'optimiser au maximum :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Call valeur_societe
End Sub
Private Sub CommandButton2_Click()
Call valeur_societe
End Sub
Private Sub CommandButton3_Click()
Call valeur_societe
End Sub
Private Sub CommandButton4_Click()
Call valeur_societe
End Sub

y a t il moyen de dire que le bouton 1, 2, 3, 4 font appel à la même prodécure?

**casefayere** · 08/07/2008, 19h06

Ca m'étonnerais, étant donné que chaque bouton est sur une feuille distincte

avec une déclaration private sub, en résumé pour moi c'est non mais on en apprends tous les jours, à voir les réponses éventuelles

Mais comme l'a dit fring, tu peux te contenter de mettre valeur_societe plutot que call valeur_societe

A +

**jeanmanu** · 08/07/2008, 19h11

ok merci
pour finir sur call, dans quel est ce nécessaire?

**casefayere** · 08/07/2008, 19h22

pour finir sur call, dans quel est ce nécessaire?

Je ne sais pas mais il suffit pet etre de consulter la FAQ

a+

Invité · 08/07/2008, 20h08

Bonsoir,

Comment avez-vous créé vos boutons sur chaque feuille car vous pouvez avoir le même nom pour chaque bouton créé sur chaque feuille.

**casefayere** · 08/07/2008, 20h31

Bonsoir Jacques_jean

Je vais d'essayer, tu as raison, si jeanmanu insere un bouton "formulaire" avec le meme nom "commandebutton1", le même code peut servir en mettant dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub valeur_société()
Dim FEUILLE As String
FEUILLE = ActiveSheet.Name
UserForm1.ComboBox1.Value = Sheets(FEUILLE).Range("K3").Value 'REGION
UserForm1.ComboBox7.Value = Sheets(FEUILLE).Range("K4").Value 'SUB-REGION
(...)
UserForm1.Show
End Sub
________________________________________________________________
Sub CommandButton1_Click()
valeur_societe
End Sub

a +

**jeanmanu** · 08/07/2008, 20h59

merci pour cette piste, mais si je renomme mon bouton commandbutton2 en commandbutton1, il n'aime pas et me remets le nom initial.
J'ai essayé le mettre dans un même module, sans succès. Je m'y prends surement mal.

**casefayere** · 08/07/2008, 21h40

Non mais à mon avis, dans ta feuille tu choisis la boite à outils "formulaire" (avant excel 2007) et tu mets le bouton de commande en lui attribuant la macro valeur_société que tu aura mis dans un module avec "sub" et non "private sub"

**fring** · 08/07/2008, 21h41

Une autre solution, se créer une petite barre de menu avec le bouton qui s'affichera à l'ouverture du classeur et se supprimera à sa fermeture.

Code à insérer dans un module standard :

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 creation_barre()
Dim Cbar As CommandBar, Cbut As CommandBarButton
 
Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
Set Cbut = Cbar.Controls.Add(msoControlButton)
With Cbut
    .FaceId = 52 '<-- icône du bouton
    .Caption = "Valeur Société" '<-- texte du bouton
    .Style = msoButtonIconAndCaption '<-- style du bouton
    .OnAction = "valeur_societe" '<-- procédure à exécuter
End With
Cbar.Visible = True
 
End Sub
 
Sub suppression_barre()
On Error Resume Next
CommandBars("MaBarre").Delete
End Sub

Code à insérer dans ThisWorkbook :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
suppression_barre
End Sub
 
Private Sub Workbook_Open()
creation_barre
End Sub

Pour plus de détails sur la création d'une barre de menus et de boutons :
Création d'une barre de menus personalisée
.

**casefayere** · 08/07/2008, 21h48

Bonsoir Fring,
Ce que tu propose, c'est bien pour apprendre à manipuler autrement VBA et je vais encore mettre ces conseils dans mon escarcelle, mais j'espère que je ne me suis pas trompé en conseillant à jeanmanu de mettre un bouton "formulaire"

Bonne soirée

Dominique

**fring** · 08/07/2008, 21h57

Oui ce que tu as proposé fonctionne mais perso je n'utilise pas les contrôles issus du menu formulaire, contrôles qui n'acceptent quasi aucune propriété.

Mais je n'ai pas dis qu'il ne fallait pas opter pour cette solution

, je proposais juste une autre possibilité sans avoir de bouton à positionner sur la feuille.

**bidou** · 08/07/2008, 22h01

moi j'abonde dans le sens de fring. On ne doit pas utiliser les contrôles formulaires sauf lorsque l'accès direct est primordial, ce qui recouvre assez peu de cas