Remplacer Texte de description d'une cellule

[reabedow]

Bonjour,

J'aimerais (histoire d'être un peu "touchy" dans ma présentation) créer une cellule dans laquelle le texte de renseignement s'efface quand on remplit la cellule, et réapparait si l'entrée de la donnée est annulée.

Ex: Cellule "Renseigner votre nom" qui disparait si je rentre "Reabedow" et qui réapparait si j'efface "Reabedow".

Merci par avance pour votre aide

Bisous😱

 

[piga25]

Re : Remplacer Texte de description d'une cellule

Bonjour,

Faire un essai avec : ajout de commentaire (clic droit dans la cellule et ajout commentaire)

Lien suppriméTriangle rouge

Un triangle rouge affiché dans le coin supérieur droit d'une cellule indique la présence d'un commentaire dans cette cellule. Si vous placez le pointeur de la souris sur le triangle, le texte du commentaire apparaît.

 

[reabedow]

Re : Remplacer Texte de description d'une cellule

Merci pour la réponse, mais j'ai dit que j'essayais d'être "touchy", synonyme de "ça en jette aux yeux de mon boss". La solution que vous me proposez est plutôt artisanale (si je puis me permettre...😀 )

C'est justement pour éviter de mettre un commentaire que j'aimerais faire ça. En plus, je suis sûr de l'avoir déjà vu sur un fichier.

D'autres avis?

 

[Efgé]

Re : Remplacer Texte de description d'une cellule

Bonjour reabedow, piga25,
Pas très sympa votre réponse reabedow... 😡.
Mais bon je vous fait une proposition :
Le code est dans le code la feuille (click droit sur l'onglet et visualiser le code).
Si vous décider de le faire sur beaucoup de cellules ça va vite devenir entre l'usine à gaz et le ralentisseur assuré...

Private Sub Worksheet_Change(ByVal Target As Range)
Set plg = Range("A1")
Set plg2 = Range("B1")
If Not Application.Intersect(Target, plg) Is Nothing Then
    If Target.Value = "" Then Target.Value = "Entrez votre nom"
End If
If Not Application.Intersect(Target, plg2) Is Nothing Then
    If Target.Value = "" Then Target.Value = "Deuxième exemple"
End If
End Sub

Cordialement

 

[reabedow]

Re : Remplacer Texte de description d'une cellule

Merci Efgé, je vais essayer ça tout de suite.

Je ne vois pas en quoi ma réponse envers Piga25 n'était pas très sympa... 😕 Je voulais simplement signaler que sa proposition ne répondait pas à ma question . En tous les cas, je ne pensais pas vexer qui que ce soit et je tiens à m'en excuser. A l'avenir, c'est juré, j'éviterais de qualifier "d'artisanales" les solutions proposées gentiment par les internautes (si tant est que la connotation de cet adjectif soit franchement péjorative. J'émet quelques doutes à ce sujet...)

Ainsi, toutes mes plus plates excuses quant au ton que j'ai employé, merci pour vos conseils et solutions (si pertinentes soient elles), vive la République, vive la France et Allez l'OM ...