double click sur une command buttonRésolu

Question

Hello !!!


 


Lorsque je clique sur une command button cela me rend la cellule gris&#233;e (j&#146;ai fait en changeant le backcolor&#133; d&#146;ailleurs si quelqu&#146;un a un autre m&#233;thode plus simple ?)


Je reviens a mon command button des que je clique une fois,


cela rend ma cellule gris&#233;e en couleur blanche, 


mais en reclickant dessus elle ne reviens pas gris&#233;e comme &#224; l&#146;origine


Comment puis faire pour avoir la couleur blanche au nombre de click pair et de couleur gris&#233;e au nombre de click impair ?


slut!!!!

jpleroisse · Accepted Answer

Bonsoir,

Je suppose que ton Commandbutton est sur un UserForm, si non, mets sa propri&#233;t&#233; Caption &#224;  Griser cellule.



Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Griser cellule" Then

    Range("A1").Interior.ColorIndex = 6

CommandButton1.Caption = "Cellule normale"

Else

CommandButton1.Caption = "Griser cellule"

    Range("A1").Interior.ColorIndex = xlNone

End If

End Sub



Private Sub UserForm_Activate()

CommandButton1.Caption = "Griser cellule"

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

acecel · Answer

Pourquoi utiliser le label du bouton comme condition? 
Il serait plus simple de faire :

 Private Sub CommandButton1_Click()
 If Range("A1").Interior.ColorIndex = 6 Then
         Range("A1").Interior.ColorIndex = xlNone
Else
         Range("A1").Interior.ColorIndex = 6
 End If
 End Sub
 
 Private Sub UserForm_Activate()
        Range("A1").Interior.ColorIndex = xlNone
 End Sub

jpleroisse · Answer

Bonjour,

acecel, tout simplement pour montrer que l'on peut se servir du Caption
du CommandButton pour ce genre de chose, et cel&#224; donne un petit plus &#224;
l'appli.(du moins c'est mon avis).



jpleroisse

Double click sur une command button

3 réponses

Discussions similaires