Discussion :

[mimi1958pp]

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

[unparia]

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 :

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

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

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

[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 :

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

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

[mimi1958pp]

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 :

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

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

[Theze]

Bonjour,

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

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
 
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