Autres (RESOLU)Texte par défaut

chaelie2015

XLDnaute Accro
Bonjour Form
je souhaite ajouter a ce code : la taille du texte par défaut seulement ( police 9) et la couleur de la police grise.
code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Then
If Target.Value = "Indiquez votre recherche ici" Then Target.Value = ""
ElseIf Range("C7").Value = "" Then
Range("C7").Value = "Indiquez votre recherche ici"
End If
End Sub

merci par avance
 

Phil69970

XLDnaute Barbatruc
Bonjour @chaelie2015

Je te propose ceci :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Then
    If Target.Value = "Indiquez votre recherche ici" Then Target.Value = ""
    ElseIf Range("C7").Value = "" Then
    Range("C7").Value = "Indiquez votre recherche ici"
    [C7].Font.Name = "arial"  'Pour le fun change la police
    [C7].Font.Size = 20       'Pour le fun change la taille de la police
    [C7].Font.Color = RGB(180, 180, 180) 'Change la couleur de la police
End If
End Sub

*Pour info pour modifier la profondeur du gris tu changes les 3 valeurs (identique) par d'autres exemple :
[C7].Font.Color = RGB(100, 100, 100) 'Change la couleur de la police

*Merci de ton retour

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

Si j'ai compris .....

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Then
    If Target.Value = "Indiquez votre recherche ici" Then Target.Value = ""
        [C7].Font.Name = "colibri"
        [C7].Font.Size = 11
        [C7].Font.Color = RGB(1, 1, 1)
    
    ElseIf Range("C7").Value = "" Then
        Range("C7").Value = "Indiquez votre recherche ici"
        [C7].Font.Name = "arial"  'Pour le fun change la police
        [C7].Font.Size = 20       'Pour le fun change la taille de la police
        [C7].Font.Color = RGB(180, 180, 180) 'Change la couleur de la police
End If
End Sub

@Phil69970
 

chaelie2015

XLDnaute Accro
Re

Si j'ai compris .....

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Then
    If Target.Value = "Indiquez votre recherche ici" Then Target.Value = ""
        [C7].Font.Name = "colibri"
        [C7].Font.Size = 11
        [C7].Font.Color = RGB(1, 1, 1)
   
    ElseIf Range("C7").Value = "" Then
        Range("C7").Value = "Indiquez votre recherche ici"
        [C7].Font.Name = "arial"  'Pour le fun change la police
        [C7].Font.Size = 20       'Pour le fun change la taille de la police
        [C7].Font.Color = RGB(180, 180, 180) 'Change la couleur de la police
End If
End Sub

@Phil69970
Re
peut etre j'ai mal exprimé mon souci,
si je saisi un texte dans la cellule C7 il ne doit pas avoir les mêmes paramètres du texte par défaut.
il doit rester comme les autres cellules ( exemple Arrial norow noir 11)
a+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390