XL 2019 Texte en arrière plan dans une cellule

[julie.lecoarer]

Bonjour tout le monde,

Je souhaiterai mettre un texte dans une cellule qui s'enlèvera lorsque l'on écrit quoi que ce soit mais qui réapparaîtra si il n'y a rien d'écrit dans la cellule.
(ex: lorsque l'on met un titre a notre publication sur ce forum).

Merci beaucoup pour votre aide

 

[_Thierry]

Bonsoir @julie.lecoarer , le forum

Voici un test en VBA Macro évènementielle, mais loin d'être sûr que tu souhaites ceci... Au moins ca te donnera des idées

Bien à toi, à Vous
@thierry

 

[_Thierry]

Et encore plus simple sans macro, 'Data Validation'

@+Thierry

 

[sylvanu]

Bonjour Julie, Thierry,
En PJ un exemple basé sur Worksheet_Change.
Tout du moins vous pouvez vous en inspirer.
La V2 sans un petit bug. Et la V3 sans un gros bug. Merci Thierry.

 

[_Thierry]

Hello @sylvanu , Julle

J'ai testé ton fichier (v2) Silvanu, au ptremier essaie impeccable, puis boum, Excel not responding (CTRL+ALT+SUP), figé sur With Range("D5")... Bizarre, il y a un truc qui ne lui plait pas du tout (Excel 2013 32)

@+Thierry

 

[sylvanu]

Hi !
Si vous regardez le code, il est vraiment basique.
Je vais regarder.

 

[Usine à gaz]

Bonjour julie.lecoarer, Thierry, sylvanu, le Forum …

@julie.lecoarer : Ci-dessous un petit fichier qui pourrait répondre à votre besoin

Réalisé par Job75 avec une MFC, je l'ai complété avec un code dans la feuille.
Bonne fin de journée à toutes et à tous,
lionel,

 

[sylvanu]

Re le fil,
Thierry, merci.
C'était énorme.
Je déclenche une macro sur clic D5 qui modifie la cellule D5 qui déclenche la macro etc, etc.
Et pas de Application.EnableEvents = False pour se protéger.
Testez la V3 en post #4, elle marche.

 

[raf26]

Bonjour le forum, bonjour Sylvanu

Je viens d'utiliser ton fichier, c'est génial. Merci à toi.

Une question : comment faire sur des cellules fusionnées (par exemple sur ton fichier si D5 est fusionnée avec E5) ?

J'ai essayé de modifier le code en "D5:E5" mais cela ne fonctionne pas.

Aurais-tu une solution ?

Merci

 

[sylvanu]

Bonjour,
La solution est simple, il suffit de spécifier la première cellule à gauche. ( voir PJ )
J'en ai profité pour simplifier la macro. Pour rajouter une cellule il suffit de copier ces quatre lignes à la suite :

'Mettre un commentaire ici.
If Target.Address = "Coordonnées de la cellule" Then
    SiVide Target.Row, Target.Column, "Phrase qui apparait quand cellule vide"
End If

Ce qui donne pour adresse :

'Adresse
If Target.Address = "$D$9" Then
    SiVide Target.Row, Target.Column, "Veuillez entrer votre adresse."
End If

 

[_Thierry]

Bonjour Sylvanu, Raf26

Oui c'est mieux avec ce fix Sylvanu "énorme" comme tu dis ! LoL
Moi j'ai fait une approche "Intersect" pour la question de Raf26, mais je me demande si c'est nécessaire...

@+Thierry

 

[_Thierry]

Ah oui c'est utile, car sur ta v04, si on vide, le texte générique ne revient plus....

@+Thierry

 

[sylvanu]

Bonjour,
Sur la V4, le texte revient si la cellule est vide.
Le seul moyen que j'ai trouvé est d'y mettre un espace. Mais si le contenu est supprimé le texte revient.
Par contre dans votre fichier, vous êtes parti sur la V3. La V4 est beaucoup plus simple, surtout pour les modifs.

 

[raf26]

Re Sylvanu et Thierry,

J'allais écrire

car sur ta v04, si on vide, le texte générique ne revient plus.

mais Thierry et Sylvanu, vous m'avez devancé !

Merci Thierry ton code fonctionne sur les cellules fusionnées.

Du coup question à vous 2 :

est-il possible de réunir le meilleur de vous même ?

le code simplifié de Sylvanu avec la prise en compte de la fusion par Thierry ?

Cordialement

 

[sylvanu]

A tester.