voir un bouton sur une colonne

[MARION]

Bonsoir le forum, encore moi et mes problèmes.
Un fichier joint pour voir si vous pouvez me corriger ce code, actuellement ce bouton se déplace n'importe ou dans la feuille, moi je voudrais qu'il apparaîsse uniquement quand je me positionne sur les cellules de la colonne E.
Ensuite il faudrait qu'il soit en dessous de ma cellule de saisie (vor 2 cellules en dessous).
Possible ou pas?
Pour me dépanner il faut une personne experte en VBA
Bonsoir a tous et a demain
A+ M

 

[@+Thierry]

Bonsoir ou plutot Bonjour Marion,

Pour ton Bouton, j'ai adapté un truc ci-joint, c'est déjà plus précis, mais ce n'est pas encore la panacée universelle !!!

Sinon la démo ci-dessous serait peut-être plus finie et plus fiable pour ce que tu souhaite faire, mais le bouton n'est pas vraiment sur la feuille.

=> La Démo Téléchargeable Lien supprimé (28k)

=> Le Fil de Discussion Lien supprimé

Bonne Journée (ou nuit si tu/vous me lis(ez) encore ce soir) à tous et toutes
@+Thierry

 

[@+Thierry]

Aie Plantage dans le lien du fichier démo

On reprend !

=> La Démo Téléchargeable Lien supprimé (28k)

Sorry !
@+Thierry

 

[MARION]

Bonsoir Thierry, et merci pour tes réponses.
le fichier XLD_position_bouton_dans_feuille.zip (11k) me correspondrait presque, si le bouton n'apparaîssait que lorsque je clique sur les cellules de la colonne E.
Si tu as une solution.
Je cherchais un expert, là je peux dire que je l'ai trouvé.
Je suis une fervante admiratricede tes diffèrentes demos.
Merci encore
A+ M

 

[@+Thierry]

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

 

[MARION]

Bonjour le forum et rebonjour Thierry
Ne soit pas si modeste, tu es a mes yeux un vrai pro, et tu m'en donne encore la preuve, c'est que çà marche super.
Merci encore
Gros bisous
A+ M