Bonjour, j'ai toujours un peu de mal à créer un code, je m'explique.
J'ai deux userform (UserFormNote et UserFromDevis).
Quand je remplis la textbox1 (des notes) dans ma userformNote et que je valide, les infos sont stockées dans feuille "Synthes" cellule H26. A l'initialize, je recupere les infos pour les redonner en textbox1 de la userformNote.
Je cherche que dès que "h26" à une valeur, la textboxVoy de UserFormDevis sont fond change de couleur (type mise en forme conditionnelle). Utiliser comme voyant. Et vis versa, si "H26" n'as plus de valeur (texte supprimé), la textboxVoy reprend sa couleur de fond intiale soit le blanc.
Code UserFormNote :
Private Sub CommandButton1_Click() 'Valider
Sheets("Synthes").Range("h26") = UserFormNote.TextBox1 & " " 'Transfert vers feuille Synthes!H26
If Sheets("Synthes").Range("h26").Value = "" Then Exit Sub
UserFormDEVIS.TextBoxVoy.BackColor = RGB(255, 0, 0)
End If
Unload UserFormNote
End Sub
Private Sub UserForm_Initialize()
With Sheets("Synthes")
TextBox1.Text = .Range("h26").Value 'Rappel des infos dans userform
End With
If Sheets("Synthes").Range("h26").Value = "" Then
UserFormDEVIS.TextBoxVoy.BackColor = RGB(255, 0, 0)
End If
End Sub
Cordialement et merci, Yoyo
J'ai deux userform (UserFormNote et UserFromDevis).
Quand je remplis la textbox1 (des notes) dans ma userformNote et que je valide, les infos sont stockées dans feuille "Synthes" cellule H26. A l'initialize, je recupere les infos pour les redonner en textbox1 de la userformNote.
Je cherche que dès que "h26" à une valeur, la textboxVoy de UserFormDevis sont fond change de couleur (type mise en forme conditionnelle). Utiliser comme voyant. Et vis versa, si "H26" n'as plus de valeur (texte supprimé), la textboxVoy reprend sa couleur de fond intiale soit le blanc.
Code UserFormNote :
Private Sub CommandButton1_Click() 'Valider
Sheets("Synthes").Range("h26") = UserFormNote.TextBox1 & " " 'Transfert vers feuille Synthes!H26
If Sheets("Synthes").Range("h26").Value = "" Then Exit Sub
UserFormDEVIS.TextBoxVoy.BackColor = RGB(255, 0, 0)
End If
Unload UserFormNote
End Sub
Private Sub UserForm_Initialize()
With Sheets("Synthes")
TextBox1.Text = .Range("h26").Value 'Rappel des infos dans userform
End With
If Sheets("Synthes").Range("h26").Value = "" Then
UserFormDEVIS.TextBoxVoy.BackColor = RGB(255, 0, 0)
End If
End Sub
Cordialement et merci, Yoyo