Discussion :

[pelerin98]

Bonjour,

pourquoi lorsque j'inscris un texte dans une cellule et que je veux ensuite le mettre en couleur, la cellule dans laquelle est placée ce mot apparaît encadrée ?
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Machin
    Range("A1").Value = "machin"
    Range("A1").Select
    With Selection.Font
        .Color = RGB(255, p, p)
        .TintAndShade = 0
    End With
End Sub

Merci de votre aide, excusez-moi si la question est stupide et cordiales salutations.

[Jean-Philippe André]

Salut,
la cellule n'est pas encadree, juste active/selectionnee.

Si tu cliques sur une autre cellule, elle sera a son tour "encadree"

Si tu ne souhaites pas cette activation, retire le Select.

[riaolle]

Bonjour,
Si tu ne veux pas que la cellule soit sélectionnée, il ne faut pas utiliser Select :

Code :

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

1
2
3
4
5
6
7
Sub Machin
    Range("A1").Value = "machin"
    With Range("A1").Font
        .Color = RGB(255, p, p)
        .TintAndShade = 0
    End With
End Sub

De façon général, Select & Activate sont à éviter.

[pelerin98]

Bonsoir,

vous êtes formidables . . . Grâce à vous je suis un peu moins bête et un peu plus efficace.

Merci infiniment.
Très cordiales salutations.