bouton en couleur

[natorp]

Bjr à tous et toutes, bonne semaine !!!!

J'ai un fichier où le bouton change de couleur si la note est commencée, mais j'aimerais qu'il ne revienne plus à cette couleur quand j'ai cliqué sur le bouton "OK" et qu'il reste en rouge... voir fichier joint

Merci, cordialement, Gérard

 

[job75]

Re : bouton en couleur

Bonjour natorp,

1) Il faut repérer que le bouton OK a été utilisé, par exemple en écrivant "Terminé" en cellule C40. Mais pour ça il faut désactiver l'action des évènements :

Sub Ok1()
    ActiveSheet.CommandButton1.BackColor = &HFF&
    Range("A1").Select
    [COLOR="Red"]Application.EnableEvents = False
    Range("C40") = "Terminé"
    Application.EnableEvents = True[/COLOR]
End Sub

2) Il faut ensuite changer la couleur du bouton 1 seulement si C40 est vide :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B36") <> "" Then
 [COLOR="Red"]If Range("C40") = "" Then[/COLOR] CommandButton1.BackColor = 12632319
Else
'-----------------

A+

 

[guitou77]

Re : bouton en couleur

Bonjour natorp, Job75 et le Forum,

J'ai aménagé ton travail (et celui du forum), pour qu'il fonctionne sur Mac
vois si celà te convient et notamment la coloration des boutons lorsque la
première donnée est entrée dans la note de la table cliquée.
@+

 

[natorp]

Re : bouton en couleur

Bonsoir, merci job75 pour ton aide, ça marche pour le bouton OK
mais là où ça se corse c'est que j'ai voulu ajouter un bouton intermédiaire 'imprimer' avec une couleur de plus, j'ai bien essayé quelque chose mais ça ne marche pas, merci de jeter un coup d'œil....
Cordialement, Gérard

 

[job75]

Re : bouton en couleur

Bonsoir,

Vous devez corriger votre code ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B36") <> "" Then
 If Range("C40") = "" And Range("G36") = "" Then CommandButton1.BackColor = &H8080FF
Else
 CommandButton1.BackColor = -2147483633
End If

Par ailleurs 2 remarques :

- vos Range(...).Select pour les boutons sont à mon avis inutiles, surtout le Range("B35: D53").Select

- 2 boutons OK et Imprimer c'est beaucoup... Imprimer devrait suffire.

A+

 

[natorp]

Re : bouton en couleur

merci beaucoup, c'est très sympa
pour la première remarque, je vais étudier
pour la deuxième, cela va permettre de voir en temps réel les notes imprimées payées ou pas payées, le bouton ok sera actionné lorsque le paiement sera effectué....

 

[natorp]

Re : bouton en couleur

bonsoir, j'ai bien mis le code partout comme il faut, il me semble, mais c'est toujours le bouton 1 qui change de couleur....

Cordialement, Gérard

 

[natorp]

Re : bouton en couleur

Désolé, c'était bien une erreur d'écriture.... avec les yeux un peu reposés j'y vois mieux
Bonne journée à tout le monde
Cordialement, Gérard