XL 2010 Décaler un shape

AL 22

XLDnaute Occasionnel

• 12 Novembre 2023

• #2

Bonjour kadelmalin, le forum,

Si j'ai bien compris votre demande, essayez ceci :

Cordialement

AL 22

 

Pièces jointes

• kadelmalin - Décaler un shape - Teste-2.xlsm

  18.6 KB · Affichages: 4

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 12 Novembre 2023

• #3

C'est parfait AL22. Est ce que je peux insérer le code dans un Sub Worksheet_Activate() ?

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 12 Novembre 2023

• #4

Non ça ne marche pas.

 

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 12 Novembre 2023

• #5

Re,

Pour moi, cela fonctionne en ajoutant la procédure en plus :

VB:

Private Sub Worksheet_Activate()
    Bouge
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$9" Then
        Bouge
    End If
End Sub

Le code sera exécuté automatiquement chaque fois que vous ouvrirez la feuille de calcul, en plus de se déclencher lorsque la valeur en A9 change si le choix du mois se fait par formule.

AL 22

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 12 Novembre 2023

• #6

Non, ça ne répond pas à l'ouverture de la feuille; ne manque-t-il pas quelques données ?

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 12 Novembre 2023

• #7

Merci AL 22 , c'est résolu. J'ai remplacé la formule dans la cellule A9 par une introduction du mois en vba.

 

Vote positif 0 Vote négatif