Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres (RESOLU)Texte par défaut

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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
 
Trier par date Trier par votes
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
Cliquez pour agrandir...

*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
243
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
108
un internaute
U
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
22
Affichages
361
Lu76Fer
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
379
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
312
thunder23
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
268
anthoYS
M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
249
fanch55
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
110
patricktoulon
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
481
CortoXls
C
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
337
Attila451
A
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
149
TooFatBoy
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
293
Atlas85200
A
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
862
Dranreb
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
201
Did25
D
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
209
Lau01150
L
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
202
patricko-13
P
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
254
sebastien176
S
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
348
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…