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

Usine à gaz · 9 Avril 2022

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 :

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

job75 · 9 Avril 2022

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+

Usine à gaz · 10 Avril 2022

Merci Jean-Marie,
Mais je ne vois pas ou mettre :
Puis dans ta procédure ".Zoom=Z"

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

Usine à gaz

XLDnaute Barbatruc

Discussions similaires