Code VBA pour modifier l’épaisseur d’une flèche en fonction d’une cellule

Bonjour à tous !

Je souhaiterais modifier l’épaisseur d’une forme (flèche) en fonction de la modification de la valeur d’une cellule, de préférence de manière proportionnel. Par exemple : ma cellule A1 a comme valeur 10, si je change la valeur à 20 (soit le double), je souhaiterais que l'épaisseur d’une flèche, crée via les formes , double. Au contraire si ma nouvelle valeur de A1 est 5 je souhaiterais que l’épaisseur diminue de moitié.

Est-ce que cela est possible ?

Merci beaucoup pour votre aide !!

Bonjour BEGUEL,

Pour cela faire

ActiveSheet.Shapes("NomFlèche").Width = Range("A1")

Adapter NomFlèche au nom exact de ta forme.

Bonne continuation.

Merci X Cellus !

Je n’ai pas réussi à mettre en place votre formule mais j’en ai trouvé une qui ressemble à ce que je veux faire cependant le changement d’épaisseur n’est pas assez sensible au changement de valeur ce qui me donne des flèches toutes fines. Sauriez-vous arrangez cela ?

Je vous met mon tableau en pièce jointe avec le code que j’ai utilisé !

A nouveau,

Voici en retour ton fichier modifié.

Voir commentaires dans la macro.

Adapter les nombres selon préférences.

Bons tests, bonne continuation.

Bonjour Xcellus,

C’est exactement ce qu’il me fallait ! Merci beaucoup !