Discussion :

[jpma75]

Bonjour,

Comment puis-je "compiler" les noms de feuilles suivants pour n'avoir qu'une seule fois "If ws.Name" (a fortiori si j'ai encore d'autres feuilles à ajouter) ?

Code :

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

If ws.Name <> "menus" And ws.Name <> "réf." Then

Merci pour vos lumières

[Menhir]

Ce que tu souhaites faire ne répondra pas à ton besoin.
Si tu veux tester le nom de toutes les feuilles, il faut passer par une boucle :

Code :

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

1
2
3
Dim ws As Worksheet
For Each ws in Worksheets
  ... etc...

[jpma75]

Merci pour cette réponse,
Au cas où, voila le contexte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Rec_Noms_Onglets()
Dim ws As Worksheet, i As Integer
 
    i = 2
    Application.EnableEvents = False 'ajout jp
    Sheets("menus").Columns(1).ClearContents
    For Each ws In Application.Worksheets
        If ws.Name <> "menus" And ws.Name <> "réf." Then
            Sheets("menus").Range("A" & i) = ws.Name
            i = i + 1
        End If
    Next ws
    Application.EnableEvents = True 'ajout jp
End Sub

[Menhir]

Code :

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

            Sheets("menus").Range("A" & i) = ws.Name

Perso, je me serais passé de variable à incrémenter en écrivant :

Code :

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

            Sheets("menus").Range("A1").End(xlDown).Offset(1,0) = ws.Name

Et je n'aurais pas fait confiance à "jp" dans ses ajouts.

[jpma75]

Bonsoir,

J'ai pris bonne note de la simplification du code, mais j'ai le message d'erreur suivant : "Erreur d'exécution 1004" ; "Erreur définie par l'application ou par l'objet". J'ai dû mal corriger le code initial pour ajouter le tiens.

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
Sub Rec_Noms_Onglets()
Dim ws As Worksheet, i As Integer
 
'    i = 2
    Application.EnableEvents = False 'ajout jp
    Sheets("menus").Columns(1).ClearContents
    For Each ws In Application.Worksheets
        If ws.Name <> "menus" And ws.Name <> "réf." Then
'            Sheets("menus").Range("A" & i) = ws.Name '(inhibée pour proposition forum ci-après)
            Sheets("menus").Range("A1").End(xlDown).Offset(1, 0) = ws.Name
'            i = i + 1
        End If
    Next ws
    Application.EnableEvents = True 'ajout jp
End Sub

(jp, c'est moi, mais tu l'avais deviné) Si je ne mets pas EnableEvents = False, ça me ralentit le code en passant par le "Worksheet_Change". Que dois-je faire pour l'éviter ?

Cdt

[Marc-L]

Comment puis-je "compiler" les noms de feuilles suivants pour n'avoir qu'une seule fois "If ws.Name" (a fortiori si j'ai encore d'autres feuilles à ajouter) ?

Bonjour,

avec un nombre raisonnable de feuilles il suffit juste de combiner le B-A-BA d'Excel - fonction EQUIV - dans du VBA …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[jpma75]

Bonjour,
Merci pour vos réponses,
Cdt