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. |
A voir également:
- Attribuer couleur cellule excel selon texte
- Excel cellule couleur si condition texte - Guide
- Excel somme si couleur cellule - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Word et excel gratuit - Guide
3 réponses
Bonjour,
Tu dis :
Mais dans ton code tu fais l'inverse... tu mets la couleur de ta cellule dans ta textbox1....
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
