XL 2019 Texte en arrière plan dans une cellule

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Mai 2020

• #2

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

 

Pièces jointes

• XLD_test_pour_julie.lecoarer.xlsm

  13.4 KB · Affichages: 15

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Mai 2020

• #3

Et encore plus simple sans macro, 'Data Validation'

@+Thierry

 

Pièces jointes

• XLD_test2_pour_julie.lecoarer.xlsx

  8 KB · Affichages: 20

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #4

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.

 

Pièces jointes

• NomPrénom(V3).xlsm

  19.6 KB · Affichages: 19

Dernière édition: 7 Mai 2020

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Mai 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #6

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #7

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,

 

Pièces jointes

• Filigrane_Job.xlsm

  17 KB · Affichages: 20

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #8

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.

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 8 Mai 2020

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mai 2020

• #10

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 :

VB:

'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

 

Pièces jointes

• NomPrénom(V4).xlsm

  17.4 KB · Affichages: 13

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Mai 2020

• #11

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

 

Pièces jointes

• NomPrénom(V5).xlsm

  15.9 KB · Affichages: 12

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Mai 2020

• #12

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


@+Thierry

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mai 2020

• #13

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.

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 8 Mai 2020

• #14

Re Sylvanu et Thierry,

J'allais écrire

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mai 2020

• #15

A tester.

 

Pièces jointes

• NomPrénom(V6).xlsm

  17.9 KB · Affichages: 16

Vote positif 0 Vote négatif