Un bouton récalcitrant

[Magic_Doctor]

Bonjour,

Il s'agit d'un bouton qui ne répond pas au doigt et à l'œil...

Plutôt que de rentrer dans des explications interminables, le mieux est d'aller dans la feuille où tout est, je le pense, assez clair.

Merci d'avance pour toute aide.

 

[phlaurent55]

Re : Un bouton récalcitrant

Bonjour Magic......

Bonjour,

Il s'agit d'un bouton qui ne répond pas au doigt et à l'œil...

avec ce code modifié, il va répondre au "Clic"

Sub Compteur(x As Byte, nb As Byte)
'Gestion de compteurs pour boutons, cellules & autres
'- x : Nº de compteur
'- nb : limite supérieure du compteur
'job75
Dim compt As Byte
compt = IIf(IsNumeric(Evaluate("Compteur" & x)), Evaluate("Compteur" & x), 0)
compt = IIf(compt < nb, 2, 1)
ActiveWorkbook.Names.Add Name:="Compteur" & x, RefersTo:=compt, Visible:=False
End Sub

la modif concerne la ligne:
compt = IIf(compt < nb, 2, 1)


à+
Philippe

 

[pierrejean]

Re : Un bouton récalcitrant

Bonjour a tous

Un autre essai
Remplacer

Select Case compt2
    Case 1: ActiveSheet.Shapes("BoutonSymbole").Fill.ForeColor.RGB = RGB(0, 255, 0)
    Case 2: ActiveSheet.Shapes("BoutonSymbole").Fill.ForeColor.RGB = RGB(255, 0, 0)
'End Select

par

If ActiveSheet.Shapes("BoutonSymbole").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
 ActiveSheet.Shapes("BoutonSymbole").Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
 ActiveSheet.Shapes("BoutonSymbole").Fill.ForeColor.RGB = RGB(0, 255, 0)
End If

 

[Magic_Doctor]

Re : Un bouton récalcitrant

Merci phlaurent55 et pierrejean,

phlaurent55, j'ai fait la modif que tu m'a proposée, il faut toujours cliquer 2 fois de suite sur le petit bouton vert pour qu'il devienne rouge.
En revanche, pierrejean, ta solution a réglé le problème.
Et un problème en moins !