Bouton d'option, choix multiple coché valeur, décoché ""

[stefVB_Excel]

Bonjour à toutes et tous,

je suis en proget pour un document d'évaluation, mon souci est de décocher et du même coup me retirer la valeur présente. Cela me permettra de ne pas créer un bouton pour un nul.
une question et 5 choix possibles.
ci joint l'exemple et le code pour un bouton.

 Sub button1()
Range("b9").Value = 1
For Each cellule In [b9]
With cellule
    .Interior.ColorIndex = xlNone
    Select Case .Value
        Case Is = "1"
            .Interior.ColorIndex = 46 'orangeF
            .Font.Bold = True 'gras
            .Font.ColorIndex = 2 'blanc
        
    End Select
End With
Next cellule
End Sub

merci par avance

 

[phlaurent55]

Re : Bouton d'option, choix multiple coché valeur, décoché ""

Bonjour stef

quelle horrible manière de faire

For Each cellule In [b9]

on pourra déjà mettre ceci dans le bêtisier de fin d'année

tu peux déjà remplacer tout tes Sub button() par ceci

Sub button1()
Range("b9").Interior.ColorIndex = 46
End Sub
Sub button2()
Range("b9").Interior.ColorIndex = 44
End Sub
Sub button3()
Range("b9").Interior.ColorIndex = 45
End Sub
Sub button4()
Range("b9").Interior.ColorIndex = 43
End Sub
Sub button5()
Range("b9").Interior.ColorIndex = 10
End Sub
Sub button6()
Range("b9").Interior.ColorIndex = 5
End Sub

pourquoi ne pas en mettre un 7ème qui aurait l'effet d'annuler les autres choix
ou alors passer par une procédure Clic-droit ou DBLclic dans une cellule bien précise

à+
Philippe

 

[stefVB_Excel]

Re : Bouton d'option, choix multiple coché valeur, décoché ""

Bonsoir Philippe,

je n'en suis qu'a mes débuts, mais ok pour le bétisier.
dans l'exemple je veux que la valeur soit X (num ou txt), que dans un deuxieme temps une mise en forme, puis lorsque je décoche la cell de destination soit vide.
meme si le code est ou peut vous parraitre compliiquer, cela fonctionne.
pour comprendre peut etre regarder le fichier joint.
en tout cas merci par avance

Sub buttonT6()
Range("b4").Value = "Excellent"
Range("b4").Interior.ColorIndex = 5
Range("b4").Font.Bold = True
Range("b4").Font.ColorIndex = 2
End Sub
_________________________
Sub buttonT7()
Range("b4").Value = ""
Range("b4").Interior.ColorIndex = False
End Sub

J'ai fini par faire un bouton de plus, c'est plus simple et cela fonctionne tres bien.
merci Philippe
stef