Autres changement de l'épaisseur des Connecteur droit avec flèche par VBA !!!

[cherraiayoub]

Bonjour tout le monde
je souhaite changer la taille de l'épaisseur des flèches connecteurs en fonction d'une valeur de la cellule X , est ce possible ?
merci D'avance
bien à vous

 

[mapomme]

Bonjour @cherraiayoub,

Essayez cette instruction (épaisseur => cellule C3):

Sheets("Feuil1").Shapes("Connecteur droit avec flèche 2").Line.Weight = Sheets("Feuil1").Range("c3").Value

 

[cherraiayoub]

Merci @mapomme ça marche pas, je suis encore débutant je ne sais pas ou je dois là copier , je suis désolé pour le dérangement.

 

[mapomme]

Re,

Voici le fichier avec les instructions à l'intérieur.

Le code est dans le module de nom Module1 :

Sub Epaisseur()
Dim Rep
   Rep = Application.InputBox(prompt:="Indiquez une épaisseur de ligne (1; 1,5; 2; etc...) ", Type:=1)
   If Rep > 0 Then ActiveSheet.Shapes(Application.Caller).Line.Weight = Rep
End Sub

 

[cherraiayoub]

Merciiii beaucoup 😉😉 @mapomme