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
Voici le fichier avec les instructions à l'intérieur.
Le code est dans le module de nom Module1 :
VB:
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