Déplacement automatique forme

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Mars 2012

• #2

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

 

Pièces jointes

• 111.xls

  60 KB · Affichages: 36
• 111.xls

  60 KB · Affichages: 42
• 111.xls

  60 KB · Affichages: 44

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 14 Mars 2012

• #3

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

 

Vote positif 0 Vote négatif

A

ascarter

XLDnaute Junior

• 14 Mars 2012

• #4

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Mars 2012

• #5

Re : Déplacement automatique forme

Bonjour à tous,
Salut Philippe,
Salut Doc Banner,

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

VB:

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

 

Vote positif 0 Vote négatif

A

ascarter

XLDnaute Junior

• 14 Mars 2012

• #6

Re : Déplacement automatique forme

Merci JCGL, c'est ce que je voulais 😀

 

Vote positif 0 Vote négatif