Discussion :

[apdf1]

Bonjour

J'ai un code pour récupérer le nom de l'onglet qui fonctionne très bien j'aimerais lui apporter une modification.
J'aimerais qui récupère le nom des onglets sauf un nommer "Carte"
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 'Récupérer le nom de l'onglet
 Dim f As Worksheet
     For Each f In Worksheets
     If f.Name <> "Accueil" Then
     f.Range("K1") = f.Name
 
         With f.Range("k1")
            ' .Borders.Weight = 3
             .Font.Bold = True
             .Font.Size = 18
             .Font.Italic = True
             .Font.Name = "Arial"
         End With
         End If
     Next

Je vous remercie d'avance

Cordialement

Max

[parmi]

Bonjour,

Si le nom de l'onglet est Carte, il faut alors changer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If f.Name <> "Accueil" Then

Si tu ne veux pas considérer Carte ni Accueil, alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If f.Name <> "Accueil" And f.Name <> "Carte" Then

[Philippe Tulliez]

Bonjour,
Je ne comprends pas, u as déjà la procédure qui le fait. Il suffit de remplacer "Accueil" par "Carte" sauf si tu voulais dire "Carte" en plus de "Accueil" et dans ce cas là, il suffit d'ajouter And

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If f.Name <> "Accueil" And f.Name <> "Carte" Then

[apdf1]

Bonjour

Je vous remercie et vous souhaite bonne AM