Bonjour à tous,

je vous explique un peu j'ai un userform dans le quel j'ai un bouton de couleur rouge
ce que je voudrait c'est que ce bouton passe au vert une fois qu'il est cliquer
mais qu'il reste vert tant que il y a ecrit quelque chose dans la cellule b30

or pour le moment il passe bien au vert mais des que je quitte l'userform et que je l'ouvre il reprend sa couleur rouge

comment faire

merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
If TextBox1.Value = "" Then
 
Range("d30") = "RAS"
 
ElseIf TextBox1.Value <> "" Then Range("d30").Value = TextBox1
End If
 
Range("b30").FormulaLocal = "=aujourdhui()"
Range("c30") = "VM"
 
TextBox1.Value = ""
 
CommandButton1.BackColor = &HFF00&
 
End Sub