Discussion :

[lowno]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lowno]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lowno]

D'une efficacité redoutable !!

Cela fonctionne.