Couleur et verrouillage boutons

[guy72]

Bonjour,
J'ai un problème de couleur et de verrouillage de bouton:
Quand je mets ce code :

Private Sub Bouton_Validez_Click()
If Range("B22") = 5 Then Clignote 4, Me.Label1.Name
Button9.Locked = False
Button9.BackColor = RGB(0, 255, 0)

1) ça fonctionne, mais quand j'ajoute le morceau suivant :

If Range("B22") = 10 Then Clignote 4, Me.Label1.Name
Button9.Locked = True
Button9.BackColor = RGB(255, 0, 0)
Button8.Locked = False
Button8.BackColor = RGB(0, 255, 0)

2) ça ne fonctionne plus

Je vous joints un fichier exemple, je pense que cela sera plus clair ?

Merci de votre aide
Cordialement
Guy

 

[Softmama]

Re : Couleur et verrouillage boutons

Bonsoir,

Il suffisait de mettre la totalité des actions souhaitées dans les conditions if... end if

par exemple pour B22 qui vaut 10 :

[B]If[/B] Range("B22") = 10 [B]Then[/B]
Clignote 4, Me.Label1.Name
Button9.Locked = True
Button9.BackColor = RGB(255, 0, 0)
Button8.Locked = False
Button8.BackColor = RGB(0, 255, 0)
[B]End If[/B]

C'est corrigé ici :

 

[guy72]

Re : Couleur et verrouillage boutons

Re Bonjour,
J'ai pourtant essayé ça, à chaque fois j'avais le message "End sans If".
Pourquoi là ça fonctionne.

Quand, je mettais :
If Range("B22") = 5 Then
Clignote 12, Me.Label1.Name
J’avais un message : Erreur de compilation: Bloc IF sans End If.

Et quand je mettais : If Range("B22") = 5 Then Clignote 12, Me.Label1.Name
J’avais un message : Erreur de compilation: Bloc End If sans If.

De quoi me faire tourner en bourrique.

Je suis un peu vexé quand même, car ça fait un moment que je cherche.

Enfin bref...

Je te remercie de ton aide
Cordialement
Guy

 

[Softmama]

Re : Couleur et verrouillage boutons

Bonsoir,

Chaque fois que tu commences une ligne par

If [I][COLOR="Red"]condition [/COLOR][/I]then
Tes actions si [I][COLOR="Red"]condition est vraie[/COLOR][/I]
tu dois terminer par un
End If

Sauf si tu n'as qu'une action où tu peux te contenter d'écrire sur la même ligne :

If [I][COLOR="Red"]condition [/COLOR][/I]then [I][COLOR="SeaGreen"]TonAction[/COLOR][/I]

Dans ce cas, le

End If

n'est pas marqué

 

[guy72]

Re : Couleur et verrouillage boutons

Merci de ton explication.
Maintenant, j'ai compris, il y a des points que je vais pouvoir éclaircir.
Cordialement

 

[guy72]

Re : Couleur et verrouillage boutons

bonjour,
Bizarre, dans mon fichier le clignotement se fait que la 1ère fois quand il y a 5, mais pas quand il y a 10 ?

Y a-t-il une autre solution, par exemple, en mettant à part
If Range("B22") = 5 ou 10 ou 15 ou 20 Then Clignote 4, Me.Label1.Name ?

Cordialement

 

[MJ13]

Re : Couleur et verrouillage boutons

Bonjour Guy, Softmama

Ah ben je connaissais pas CentimetersToPoints, cela à l'air bien utile.


Merci Guy 🙂 (comme quoi, cela peut servir à la communauté de fournir un fichier 😱).

Sinon pour ton problème, je ne sais pas 😕.

 

[Si...]

Re : Couleur et verrouillage boutons

Bonjour

en souhaitant cette fois-ci un retour même si la proposition ne convient pas.

 

[guy72]

Re : Couleur et verrouillage boutons

Bonjour Si,
Il faut que je l'adapte à mon fichier.
Car la solution de "Softmama" est bonne aussi, j'arrive à l'adapter sauf que le clignotement ne se fait qu'avec 5.
Donc, je regarde avec ta solution et ce coup-là, je ne t'oublie pas, je te tient au courant.
Cordialement

 

[guy72]

Re : Couleur et verrouillage boutons

Bonjour Si
J'ai la même chose, mes boutons change bien de couleur, mais je n'arrive pas à avoir le clignotement autre qu'avec 5.
Si les 2 solutions font pareilles, cela doit être dans mon code d'origine.
Je vais essayer avec :

If Range("B22") = 5 Or Range("B22") = 10 Or Range("B22") etc....
Clignote 4, Me.Label1.Name

Cordialement

 

[Si...]

Re : Couleur et verrouillage boutons

Re

je pensais que tu voulais le clignotement avec le bouton "Validez".
Vois si les nouvelles procédures correspondent à ce que tu veux.

 

[guy72]

Re : Couleur et verrouillage boutons

Bonsoir,
Ok merci de ton aide.
Cordialement