souci macro simple

bonjour et bonne annee a tous

je voudrai " ENREGISTRER UNE MACRO " sur un userform ( image jointe en document )
je commence a enregistrer ma macro :
la fenetre userform se lance et je coche 30 m et j'arrete enregistrement.
j'applique la macro a un bouton et je lance la macro en cliquant sur le bouton
elle se lance et s'arrete sur la selection 30 mn qui n'est pas coche.

est ce que on peut faire en sorte que la coche du bouton 30 minutes soit pris en compte dans l'enregistrement macro en sachant que ces boutons sont des boutons option.
merci de votre collaboration
Pièce jointe 338901

Bonjour

Je ne vois pas du tout ce que tu veux dire.
L'enregistreur de macros enregistre (en les interprétant en code) tous les gestes faits dans Excel.
Un userform n'est pas un objet Excel, mais un objet VBA et échappe donc à l'observation de l'enregistreur de macros !

Pour faire ce que tu exposes, il te faut donc écrire toi-même en VBA les instructions VBA nécessaires.

Tu peux, à ton choix :
- soit les écrire dans l'évènement Activate du userform
- soit les écrire (avant même de montrer le userform) dans l'évènement de ton choix du module de code de ta feuille de calcul, en invoquant le userform et l'objet traité :
exemple :

Code:

---

mon_userf.mon_contrôle.telle_propriété = telle_valeur

---

le seul fait d'évoquer un userform en provoque le chargement en mémoire

Bonjour,

Pour connaître quel bouton d'option est choisi, tu peux utiliser la fonction Switch. Le second argument de la paire est la valeur retournée par la fonction donc, si le bouton d'option "OptionButton3" est choisi, la valeur 3 sera retournée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click()   MsgBox Switch(OptionButton1, 1, _ OptionButton2, 2, _ OptionButton3, 3, _ OptionButton4, 4, _ OptionButton5, 5) 'etc...   End Sub

---

Citation:

---

Envoyé par Theze

Bonjour,

Pour connaître quel bouton d'option est choisi, tu peux utiliser la fonction Switch. Le second argument de la paire est la valeur retournée par la fonction donc, si le bouton d'option "OptionButton3" est choisi, la valeur 3 sera retournée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click()   MsgBox Switch(OptionButton1, 1, _ OptionButton2, 2, _ OptionButton3, 3, _ OptionButton4, 4, _ OptionButton5, 5) 'etc...   End Sub

---

---

en fait je demarre ma macro : et je regarde le pas a pas :

Sub essai()
'
' essai Macro
'

'
Sheets("Feuil1").Select
Application.Run "'tournoi howell 7 paires ok.xlsm'!Choix"
Application.Run "'tournoi howell 7 paires ok.xlsm'!Realcount"
Application.DisplayFullScreen = False
Application.Run "'tournoi howell 7 paires ok.xlsm'!Realcount"
Application.Run "'tournoi howell 7 paires ok.xlsm'!Realcount"
Application.Run "'tournoi howell 7 paires ok.xlsm'!Realcount"
End Sub

la premiere ligne demarre "choix " ce qui m'ouvre l'userform ou il y a marque les temps ( 20 mn , 21 m, etc ..) ( voir image)
la seconde ligne delenche realcount ( je sais pas ce que cela veut dire ) le decompte peut etre
la troisieme ligne est quand je valide le chois de la duree je pense

comment faire pour faire apparaitre le choix de 30 mn par exemple

merci de votre aide

si vous voulez le fichier dite le moi

Bonjour,

Pas sûr de comprendre ce que tu veux mais bon. Si tu veux que ça te retourne la valeur en minutes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click()   MsgBox Switch(OptionButton1, 20, _ OptionButton2, 21, _ OptionButton3, 22, _ OptionButton4, 23, _ OptionButton5, 24, _ OptionButton6, 25, _ OptionButton7, 26, _ OptionButton8, 27, _ OptionButton9, 28, _ OptionButton10, 30) & " minutes"   End Sub

---