Bulle Fermé

Question

Bonjour à tous,

Je voulais savoir si quelqu'un d'entre vous avait une astuce autre que celle "d'insérer un commentaire" dans une cellule.

Je m'explique un peu mieux : comme je n'aime pas faire comme tout le monde, dans mon tableau à la cellule C25, je voudrais en la survolant voir apparaître une bulle sympa style bande dessinée ou autre où l'on pourrait lire une info que je changerai selon mes besoins.
Je suppose qu'il faut passer par un code VBA qu'évidemment je ne sais pas faire...

Bon après midi à vous
Nathalie

pijaku · Answer

Bonjour,

Même si à titre perso je ne trouve pas cela tip top, ça a le mérite d'exister...
Donc, voici un Fichier exemple.

pijaku · Answer

Bonjour,

Pour réaliser ceci :
1- ouvre ton fichier ;-)
2- Utilise l'enregistreur de macro pour enregistrer l'action suivante :
3- action : dessine ta bulle avec l'outil Insertion/Formes
4- tape ALT+F11 => ouverture d'une fenêtre Visual Basic Editor
5- dans cette fenêtre, sur la gauche, tu trouveras Modules avec, en double cliquant, dedans un module nommé Module1
6- double clic sur Module1 pour obtenir le code
6b- le code ressemble à ceci :
Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 219, 206.25, 315, 128.25). _
        Select
End Sub

Qui signifie : dans les objets Shapes de la feuille active (ActiveSheet.Shapes), ajoute une forme (AddShape) et entre parenthèses, les différents paramètres de cette forme :
msoShapeCloudCallout = le style de la forme (ici le nuage proposé dans mon exemple)
219 = Left (distance par rapport au bord gauche)
206.25 = Top (distance par rapport au bord haut)
315 = Width (largeur de l'objet)
128.25 = Height (hauteur de l'objet)

7- renomme cette macro, en remplaçant :
Sub Macro1()
par :
Public Function AfficheMoi()
normalement le End Sub a été remplacé par End Function. Si c'est pas le cas, fais le.
8- change les paramètres Left et Top pour afficher l'objet ou tu le souhaites.
pour l'exemple, j'ai utilisé les mêmes propriétés (Left, top et Width) de la cellule.
J'ai donc supposé que :
- le Left de l'objet = Left de la cellule + Width de la cellule
- le top de l'objet = top de la cellule - Height de l'objet
Ce qui te donne un code ressemblant à ceci :
Public Function AfficheMoi()
ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, [C25].Left + [C25].Width, [C25].Top - 149.25, 258, 149.25).Select
End Function
9- Création de la fonction de suppression de l'objet :
ATTENTION : Il ne doit pas y avoir d'autres formes ni/ou images dans la même feuille, sous peine de suppression.
Si c'est le cas, dis le on avisera
Sous la fonction que tu viens d'écrire, après son End Function, copie/colle ce code :
Public Function SupprimeMoi()
Dim Sh As Shape
 For Each Sh In ActiveSheet.Shapes
   Sh.Delete
 Next
End Function
10- retourne sous ta feuille en fermant la fenêtre Visual Basic.
11- dans la cellule concernée, inscrit la formule :
Si la cellule ne contient rien :
=LIEN_HYPERTEXTE(AfficheMoi();"")
Si la cellule contient quelque chose :
=SI(ESTERREUR(LIEN_HYPERTEXTE(AfficheMoi()));CONTENU_DE_LA_CELLULE;CONTENU_DE_LA_CELLULE)
12- dans toutes les cellules voisines :
Si la cellule ne contient rien :
=LIEN_HYPERTEXTE(SupprimeMoi();"")
Si la cellule contient quelque chose :
=SI(ESTERREUR(LIEN_HYPERTEXTE(SupprimeMoi()));CONTENU_DE_LA_CELLULE;CONTENU_DE_LA_CELLULE)

Et voilà, en 12 étapes!

Je reviens dans quelques instants avec une méthode plus simple...

pijaku · Answer

J'avais promis plus simple, voici la méthode (expliquée dans le fichier) avec 2 labels invisibles...

https://www.cjoint.com/c/EFkmrLk5BtV

Bulle

3 réponses

Discussions similaires