Modifier un code

Bonjour

J'ai un code pour naviguer entre les feuilles qui se met dans toutes les feuilles a l'aide d'un bouton "Accueil, Suivant, Précédent" J'aimerai lui apporter une modification. Je voudrai si possible qu'il me mette les "Accueil, Suivant, Précédent" dans toutes les feuilles sauf deux "BD et Carte"

Mon code

Dim i As Integer

   For i = 2 To Sheets.Count
     Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", _
           SubAddress:="'" & Sheets(1).Name & "'!A1", TextToDisplay:="Accueil"

   Next i

 'Créer un lien Suivant et Précedent
      For i = 1 To Sheets.Count
          If i < Sheets.Count Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("B1"), Address:="", _
                       SubAddress:="'" & Sheets(i + 1).Name & "'!B1", TextToDisplay:="Suivante"

          If i > 1 Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("C1"), Address:="", _
                      SubAddress:="'" & Sheets(i - 1).Name & "'!C1", TextToDisplay:="Précédente"
       Next i

Je vous remercie de votre aide

Cordialement

Max

Bonjour,

à tester

Dim i As Integer

   For i = 2 To Sheets.Count
if sheets(i).name <> "BD" and sheets(i).name <>"Carte" then
     Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", _
           SubAddress:="'" & Sheets(1).Name & "'!A1", TextToDisplay:="Accueil"

 'Créer un lien Suivant et Précedent

          If i < Sheets.Count Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("B1"), Address:="", _
                                   SubAddress:="'" & Sheets(i + 1).Name & "'!B1", TextToDisplay:="Suivante"

          If i > 1 Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("C1"), Address:="", _
                                   SubAddress:="'" & Sheets(i - 1).Name & "'!C1", TextToDisplay:="Précédente"
end if
       Next i

Bonjour,

Il te faut ajouter la condition ... chaque fois que nécessaire ...

If Sheets(i).Name <>"BD" And Sheets(i).Name <>"Carte" Then
' suite de ton code
End If

Bonjour James 007,h2so4

J'ai un message d'erreur qui me dit Next sans For

Je vous remercie beaucoup

Max

Re,

Autant pour moi j'avais oublier de mettre End If

Je vous remercie beaucoup et vous souhaite une bonne soirée

Max

Re,

Content que cela fonctionne ...

Merci pour tes remerciements ...