Attribution couleur cellule meme que textbox
edlogy
Messages postés
6
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je souhaite attribuer a une cellule la meme couleur que ma textbox1.
Pouvez vous m'aidez?
Merci.
je souhaite attribuer a une cellule la meme couleur que ma textbox1.
Private Sub CommandButton2_Click()
'bouton qui remplit a la suite colonne A
Dim DLig1 As Long, DLig2 As Long
With Sheets("base de données clients ")
DLig1 = .Range("A" & Rows.Count).End(xlUp).Row
DLig2 = .Range("T" & Rows.Count).End(xlUp).Row
If DLig2 > DLig1 Then
.Range("A" & DLig2 + 1).Value = TextBox1.Value
Else
.Range("A" & DLig1 + 1).Value = TextBox1.Value
End If
End With
End Sub
Private Sub CommandButton3_Click()
Application.Dialogs(xlDialogPatterns).Show
TextBox1.BackColor = ActiveCell.Interior.Color
End Sub
Pouvez vous m'aidez?
Merci.
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages. |
3 réponses
-
Bonjour,
Tu dis :
attribuer a une cellule la meme couleur que ma textbox1
Mais dans ton code tu fais l'inverse... tu mets la couleur de ta cellule dans ta textbox1....TextBox1.BackColor = ActiveCell.Interior.Color
-
Oui c'est bien le problem j'arrive a donner la couleur que je veux dans mon userform a mon textbox1, mais lors de la validation pour integration de la valeur de textbox et sa couleur dans la cellule, il y a juste la valeur qui est mis dans la cellule pas la couleur.
-
Bonjour à tous,
enlève cette ligne
Application.Dialogs(xlDialogPatterns).Show
tite démo:
http://www.cjoint.com/c/FFDhIyUdEzt
