Chekbox et Textbox

Bonjour à tous et à toutes,

Un "problème" que je ne comprends pas :

Via un Userform qui comprend un Textbox et 3 Chekbox, je choisi la couleur et/ou le texte que je souhaite afficher dans ma cellule active.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Private Sub CommandButton1_Click() If ActiveCell.Text <> "" Then With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveCell.Value = TextBox1.Value 'End If Else ActiveCell.Value = TextBox1.Value With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent4 .TintAndShade = 0.599993896298105 .PatternTintAndShade = 0 End With End If If CheckBox11.Value = True Then Call vert If CheckBox12.Value = True Then Call ORANGE If CheckBox14.Value = True Then Call BLEU Unload Me End Sub
Mes 2 problèmes :

- Lorsque la cellule est déjà en couleur avec du texte dedans et que je la passe en couleur Vert ( sans modifier le texte, je ne modifie pas la textbox, je coche juste la chekbox "vert")...et bien, la cellule change bien de couleur, mais je ne vois plus le texte dans ma cellule active !!
Code:

1 2 3 4 5 6 7 8 9 Sub vert() With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub
Enfin, comment afficher le texte de la cellule active dans mon textbox lorsque je charge l'userform (ce qui résoudré mon problème numéro 1) ????

J'ai trouvé des pistes mais aucunes ne fonctionne...

Comme d'habitude...Un grand Merci à vous tous !

A+

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
Sub vert()
If Me.textbox1 = "" Then Me.textbox1 = ActiveCell Else ActiveCell = Me.textbox1
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

rdurupt,

Merci j'ai adapté.

Cependant, je n'arrive pas à avoir le contenu de cellule active dans le Textbox de mon UserForm lorsque celui ci s'ouvre...

j'ai tenté plein de procédure

me.textbox1 = activecell
textbox1.value = activecell.text ....

Code:

1
2
3
Private Sub UserForm_Initialize()
Me.textbox1 = ActiveCell
End Sub

:ccool:

D'une efficacité redoutable !!

Cela fonctionne.