Bonjour ou Bonsoir,
j'ai un soucis avec ce code dont le but est de creer deux fleches dans chaque onglet au lieu de faire cela il cree les fleches dans le premier onglet egale au nombre d'onglet total
Exemple :deux fleches dans 10 onglet il fait 10 fleches dans le premier onglet
pouvez vous m'aider
Merci
voici le code
Sub Fleche_Rouge_315_degré()
Dim i As Integer
i = 1
Dim NombreFeuilles As Integer
NombreFeuilles = Worksheets.Count
Set fleche = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 2.4, 829.8, 126, 861.6)
Set fleche1 = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 138, 879, 278.4, 879.6)
While i <= NombreFeuilles
With fleche.Line
.EndArrowheadStyle = msoArrowheadTriangle
.Visible = msoTrue
.Weight = 2
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
With fleche1.Line
.EndArrowheadStyle = msoArrowheadTriangle
.Visible = msoTrue
.Weight = 2
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
i = i + 1
Wend
End Sub