Déplacement automatique forme

[ascarter]

Bonjour à tous, mon problème est le suivant. J'ai placé une forme géométrique dans ma feuille à laquelle j'ai affecté une macro. Est- ce possible que cette forme ("validation valeur") se déplace automatiquement en hauteur pour ne pas cacher le texte de la colonne B. J'aimerais en fait que la forme reste dans la colonne B mais que sa position s'adapte en fonction du contenu de la colonne. Je ne sais pas si ceci est réalisable. Je vous met en piéces jointes un fichier exemple. Merci d'avance pour vos réponses.

 

[phlaurent55]

Re : Déplacement automatique forme

Bonjour ascarter,

pourquoi ne pas mettre cette forme au dessus de la colonne B
et éventuellement figer la première ligne

à+
Philippe

 

[Hulk]

Re : Déplacement automatique forme

Slt Ascater, Philippe, Forum

Ou bêtement l'afficher ou le masquer selon...

Placer ceci ActiveSheet.Shapes.Range(Array("Oval 629")).Visible = False en fin de la macro "inventaire"

Puis cela en début de la macro "RAZ" ActiveSheet.Shapes.Range(Array("Oval 629")).Visible = True

 

[ascarter]

Re : Déplacement automatique forme

Ce sont de bonnes pistes mais ce n'est pas exactement ce que je veux. J'aimerais que la position de ma forme s'adapte aux élément de la colonne B, qu'elle se place juste après la dernière ligne où il y a du texte. Merci pour votre aide en tout cas.

 

[JCGL]

Re : Déplacement automatique forme

Bonjour à tous,
Salut Philippe,
Salut Doc Banner,

Peux-tu essayer ceci dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Top > 10 And Target.Column < 3 Then
Worksheets(1).Shapes("Oval 629").Top = Target.Top + 25
ElseIf Target.Column < 2 Then
Worksheets(1).Shapes("Oval 629").Top = 0
End If
End Sub

Personnellement, je mettrais les SUB dans un module standard.

A++
A+ à tous

 

[ascarter]

Re : Déplacement automatique forme

Merci JCGL, c'est ce que je voulais