Bonjour à tous,
Une variante de la proposition de LouReeD que je salue
C'est juste une popup ici, pas de modification ! mais pas de clic pour fermer non plus !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
With ActiveSheet.Shapes("Info")
.TextFrame2.TextRange.Characters.Text = _
Cells(Target.Row, 1).Value & vbCrLf & Cells(Target.Row, 3).Value
.Visible = True
.Left = Target.Offset(0, 1).Left + 4
.Top = Target.Offset(1, 0).Top + 4
End With
Else
ActiveSheet.Shapes("Info").Visible = False
End If
End Sub