XL 2013 [Résolu] Afficher une image en inscrivant la première lettre d'un nom

Lone-wolf

XLDnaute Barbatruc

• 15 Février 2017

• #2

Re à tous 🙂

Personne dans le coin? 😳

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2017

• #3

Bonjour Lone-wolf,

Tu devrais savoir que quand le curseur est dans une cellule (mode édition) aucune macro ne peut s'exécuter.

Les 2 images s'affichent/se masquent uniquement quand on valide/efface la cellule C4.

A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Février 2017

• #4

Bonsoir job 🙂

Mais, il y a la possibilité avec le curseur (Pos X, Pos Y) sur la cellule, de pouvoir afficher-maquer l'image?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2017

• #5

Re,

Le survol d'une cellule ne crée aucun évènement susceptible de déclencher une macro.

Par contre il permet d'afficher un commentaire et celui-ci peut contenir le texte désiré.

Bonne nuit.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Février 2017

• #6

Bonjour Job 🙂, le Forum 🙂

J'ai fini par trouvé la solution grâce à un fichier de Jacques Boigontier où il propose de mettre un contrôle label sur la cellule. J'aimerais maintenant faire un retour à la ligne sans agrandir la cellule (si possible de le faire bienentendu), après avoir inserer les 5 premières adresses emails. C'est vrai que maintenant il y en a que 5 , mais c'est au cas où je rallonge la liste.

 

Pièces jointes

• Gestion des contacts.zip

  151.3 KB · Affichages: 43

Dernière édition: 16 Février 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Février 2017

• #7

Re job 🙂

Problème résolu, voici la solution(à adapter)

VB:

Dim deb As Byte, cel As range
deb = InStr(1, cel, ";")
       If deb = 1 Then _
          cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
     ActiveSheet.Rows(6).Height = 13.5

 

Vote positif 0 Vote négatif