Bonsoir Marion, le Forum
Je ne suis pas un expert,
... juste quelqu'un qui n'a pas peur de se "salire" avec le "Camboui" du VBA en trafiquant à tout va depuis des années...
Mais merci du compliment, en plus de la part d'une fervante admiratrice, je suis tout rouge devant mon écran !
Bon sinon pour ton problème d'apparition, t'inquiète pas il y en a qui entendent des voix aussi !! lol, non je rigole !!
Non plus sérieusement, tu changes le code dans le Private Module de la Feuille en Question par celui-ci :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Adresse
With Sheets("Feuil1").OLEObjects("CommandButton1")
If Application.Intersect(Target, Range("E:E")) Is Nothing Then
.Visible = False
Else
.Visible = True
.Left = CurPosL * 0.6
.Top = CurPosT * 0.6
End If
End With
End Sub
Et hop !!
Bonne nuit !!! (ou journée)
@+Thierry