Attribution couleur cellule meme que textbox Fermé

Question

Bonjour,

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.

jordane45 · Answer

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

edlogy · Answer

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.

michel_m · Answer

Bonjour à tous,

enlève cette ligne
 
 Application.Dialogs(xlDialogPatterns).Show

tite démo:
http://www.cjoint.com/c/FFDhIyUdEzt

Attribution couleur cellule meme que textbox

3 réponses

Discussions similaires