Discussion :

[pilounet54]

je cherche sur les obtionbuttons sur un click à les mettre a true s' il est a false et l'inverse à la convenance (qui ne reste pas bloqué s' il a true) es que cela es possible ?

[SfJ5Rpw8]

quels option boutons ? sur un userform ? une feuille de calcul depuis la boite outils formulaire ou la boite à outils activex ?

[pilounet54]

c'est sur un userform ,avec une frame à chaque obtionbuttons ,il est rond avec l'obtion au milieu pour cliquer ,et il a true lorsque qu'il est rempli de noir

[patricktoulon]

bonjour pilounet et bbil
au click du optionbutton

Code :

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

1
2
3
4
if optionbutton1=false then 
 optionbutton1=true
else  optionbutton1=false
end if

au plaisir

[nchal]

Salut pilounet, bbil, patricktoulon

Comment toujours j'adore tes énoncés de problèmes pilounet car tu réinventes la langue française (oui je sais, ça arrive de faire des fautes mais pour pilounet, c'est un art)

Bon, j'ai pris sur moi et je t'ai fabriqué un truc. J'avais jamais trop joué avec les option button et c'était plutot interessant.
Si tu cliques un fois tu mets à True, si tu Db_cliques tu mets à False.
J'ai été obligé de passer par le db_clik parce que l'evenement click n'est plus pris en compte si la Value est à True.

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
16
17
18
19
20
21
22
23
24
25
26
Public var As Boolean
Private Sub OptionButton1_Click()
 
If var = True Then
    Me.OptionButton1.Value = False
Else
    Me.OptionButton1.Value = True
End If
var = False
End Sub
 
Private Sub OptionButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
If var = True Then
    Me.OptionButton1.Value = True
Else
    Me.OptionButton1.Value = False
End If
var = True
 
End Sub
Private Sub UserForm_Initialize()
 
var = False
 
End Sub

Et j'ai déclaré du public pour pouvoir jouer avec dans toutes les méthodes.

J'ai l'impression que c'est du bricolage, si un pro des USF peut passer voir sa


EDIT: patrick, as tu testé le code que tu a publié ? Parce que chez moi sa ne marche pas, c'est pour sa que je me suis cassé la tête à passer pour du db_click

[pilounet54]

en ce qui concerne le francais ,c'est comme beaucoup de chose il n'y a que le résultat qui compte, c'est comme cela que je travail
pour le code aucun problème cela fonctionne merci pour la rapidite et l'efficacité à tous

merci patrick cela fais plaisir de sentir que tu n'es pas loin !

[kiki29]

Petite digression

en ce qui concerne le francais ,c'est comme beaucoup de chose il n'y a que le résultat qui compte, c'est comme cela que je travail

Si le ramage se rapporte au plumage... c'est vrai que tu es retraité mais je n'ose imaginer un employeur recevant un cv rédigé de la sorte.