Discussion :

[moilou2]

Bonjour, j'ai un code vba dans un module.

J'ai un UserForm avec 12 boutons, les 12 boutons correspondent chacun à un mois de l'année.

Leur nom est Cmd_Janvier, Cmd_Février....

Quand je clic dessus, j'execute mon code qui est placé dans le module, et différentes variables sont fonctions de du bouton.

Est possible que à la place de ce bout de code j'adapte:

Code :

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

Worksheets("Graphiques").Range("E75") = "Mois de Janvier"

Je mette:

Code :

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

Worksheets("Graphiques").Range("E75") = "Mois de & LeNomDuBouton après Cmd_"

[laetitia]

bonjour moilou2 le forum j ai pas test si le code est dans l user

Code :

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

Worksheets("Graphiques").Range("E75") =Cmd_Janvier.caption

[moilou2]

Re, ce n'est pas uniquement celui de janvier que je veux récupérer mais le caption du bouton sur lequel je clic.

[ouisansdoute]

Bonjour,

Dans le code de ton bouton, tu peux saisir :

Code :

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

1
2
3
4
5
6
Private Sub Cmd_janvier_Click()
Sheets("graphiques").Range("E75").Value = "Mois de " & Cmd_janvier.Name
End Sub
Private Sub Cmd_fevrier_Click()
Sheets("graphiques").Range("E75").Value = "Mois de " & Cmd_fevrier.Name
End Sub

Il faut que tu saisisses un code équivalent derrière chacun de tes boutons.

je me demande si 12 boutons radio n'auraient pas été plus simples en utilisant un Select case ensuite

[laetitia]

re dans chaque code du bouton tu rajoutes cette ligne

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Worksheets(1).Range("E75") = CommandButton1.Caption
'ton code...
End Sub

d ou l avantage comme je t avais dit sur un autre post des modules de classe

[Qwazerty]

Salut
Je suppose que tu souhaites que ceci ce fasse dans le corps de ta procédure (BoutonMois) et non dans celui du code du bouton.

Si c'est bien de cela qu'il s'agit il te suffit d'utiliser Format.
Je m'explique:
On a

Code :

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

1
2
3
4
5
Sub MoisBouton(LeMois as Byte, LAnnee As integer)
'traitement
Worksheets(1).Range("E75") = format(LeMois,"mmmm")
'...
End Sub

a++
Qwaz

[moilou2]

Re Qwaz, écoute je ne comprend pas, sa laisse toujours "janvier"?

[Edit] Pourtant LeMois, change bien de valeur en fonction du bouton.