Boucle pour objet fleche

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

Bonjour,

Sub Fleche_Rouge_315_degré()

Dim i As Integer
    i = 1

    Dim NombreFeuilles As Integer
    NombreFeuilles = Worksheets.Count

    While i <= NombreFeuilles

    Set fleche = Sheets(i).Shapes.AddConnector(msoConnectorStraight, 2.4, 829.8, 126, 861.6)
    Set fleche1 = Sheets(i).Shapes.AddConnector(msoConnectorStraight, 138, 879, 278.4, 879.6)

...
...
...
suite du code ...

ric

merci bcp ric

je note

Bonjour,

Si tu voulais exclure une feuille ...

Sub Fleche_Rouge_315_degré()
Dim NombreFeuilles As Integer
Dim i As Integer

    NombreFeuilles = Worksheets.Count

    i = 1
    while i <= NombreFeuilles

        if Sheets(i).name <> "nom de la feuille à exclure" then

            Set fleche = Sheets(i).Shapes
            ...
            ...
            ...
            suite du code

        end if
    loop 
end sub

ric

bonsoir Ric,

merci interessant aussi