Microsoft 365 Bulle : affichage à droite de la cellule cliquée

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau WE :)

Je fais appel à nos ténors pour un affichage que je ne sais pas faire.
Est-il possible :
1649494874849.png

Mes tests et recherches sont infructueuses.
Auriez-vous le bon code ?

Je joins un p'tit fichier test,
Et je continue à chercher.
Un grand merci, encore une fois,
Amicalement,
lionel :)
 

Pièces jointes

  • bulle_position.xlsm
    20.9 KB · Affichages: 9
Solution
Bonjour Lionel, le forum,

Oui ce n'est pas très facile, il faut repérer l'adresse de la cellule active :
VB:
Private Sub Worksheet_SelectionChange(ByVal R As Range)
With Shapes("Bulle narrative : rectangle à coins arrondis 1")
    If Intersect(ActiveCell, Range("a2:a6")) Is Nothing Then .Visible = False: Exit Sub
    .Left = ActiveCell.Offset(, 1).Left
    .Top = ActiveCell.Top
    .Visible = CStr([adresse]) <> ActiveCell.Address Or .Visible = False
    ThisWorkbook.Names.Add "adresse", ActiveCell.Address 'repérage
    Application.EnableEvents = False
    [a1].Select
    Application.EnableEvents = True
End With
End Sub
A+

Discussions similaires

Statistiques des forums

Discussions
312 025
Messages
2 084 745
Membres
102 652
dernier inscrit
Helpmeplz