Discussion :

[Vincent23]

J'ai réalisé un userform avec des boutons d'options (choix entre oui et non), toutefois je souhaiterais savoir si il est possible d'avoir un troisième choix=choix vide (où ça ne me mettrait rien dans la cellule)

Voici un petit extrait de mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
    For i = 1 To 11
        If Me.Controls("A" & i & "_O") Then
           With Cells(DerL, 10 + i)
                .Value = "OUI"
                .Font.Bold = True
                .Font.ColorIndex = 10
            End With
        Else
            With Cells(DerL, 10 + i)
                .Value = "NON"
                .Font.Bold = True
                .Font.ColorIndex = 0
            End With
        End If
    Next
 
    For i = 1 To 12
        If Me.Controls("B" & i & "_O") Then
             With Cells(DerL, 21 + i)
                .Value = "OUI"
                .Font.Bold = True
                .Font.ColorIndex = 10
            End With
        Else
            With Cells(DerL, 21 + i)
                .Value = "NON"
                .Font.Bold = True
                .Font.ColorIndex = 0
            End With
        End If
    Next
 
    For i = 1 To 8
        If Me.Controls("C" & i & "_O") Then
             With Cells(DerL, 33 + i)
                .Value = "OUI"
                .Font.Bold = True
                .Font.ColorIndex = 10
            End With
        Else
            With Cells(DerL, 33 + i)
                .Value = "NON"
                .Font.Bold = True
                .Font.ColorIndex = 0
            End With
        End If
    Next

PS j'aimerais que ce choix ne soit possible que pour un ou deux boutons (pas pour tous) et que la valeur par défaut soit tjs oui (ce qui est actuellement le cas)

Merci beaucoup pour votre aide

[ucfoutu]

Bonjour,

Et si je te posais la question suivante, que répondrais-tu ?

Question :
"Soit une ampoule ... Elle est prévue pour être allumée ou éteinte...
Existe-t-il la possibilité de dire qu'elle n'est ni allumée ni éteinte ?"

Si tu me donnes une réponse à cette question, j'apporte une réponse à la tienne (la même, probablement) ...

[Vincent23]

Okay, dit comme ça je comprends mieux, toutefois je pensais que l'on pouvait dire la lampe est grillée (sous entendu je décoche oui et non ce qui a pour effet de laisser la cellule de destination de mon tableau vierge)

Peut être est ce plus clair comme ça (mais peut être que même reformulé cela ne fonctionnera tjs pas)

Merci quand même de tes "lumières" ucfoutu (je ne me félicite pas du mauvais jeux de mots).

[ucfoutu]

Bon...

je ne saus pas à quelle acrobatie tu veux t'amuser, mais c'est la période des J.O.... hein...

Alors essaye cecu

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
 
Private Sub Option1_Click()
 Option1.ForeColor = vbBlack
End Sub
 
 
Private Sub Option1_DblClick()
  Option1.Value = False
  Option1.ForeColor = vbRed
End Sub
 
Private Sub Command1_Click()
 If Option1.ForeColor = vbRed Then
    MsgBox "grillée ! mets tes instructions pour grillé)"
 ElseIf Option1.Value Then
 
    MsgBox "cochée"
 Else
    MsgBox "décochée"
 End If
End Sub

Pour cocher ou décocher : comme d'hab . Pour "griller" : double-click ...

Ne tombe pas de la barre fixe, hein ...