XL 2010 Décaler un shape

[kadelmalin]

Bonjour le forum,
Je cherche à décaler une ellipse horizontalement suivant la valeur du mois en cours. J'ai beau cherché dans les archives mais sans succès.Merci pour votre aide. Ci-joint le classeur teste.

 

[AL 22]

Bonjour kadelmalin, le forum,

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

Cordialement

AL 22

 

[kadelmalin]

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

 

[kadelmalin]

Non ça ne marche pas.

 

[AL 22]

Re,

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

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

 

[kadelmalin]

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

 

[kadelmalin]

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