XL 2016 Nom des feuilles

[SETILA]

Hello à tous,

Pouvez-vous me dire comment faire pour activé les feuilles qui sont composés du nom "Archives" ?
J'ai essayé ("*Archive*") mais sans succès !

Et pour finir pourquoi j'obtiens une erreur lorsque j'ajoute le code en bleu ???
Merci d'avance.



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Add Key:=Range("B4:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Archives TACHES").Sort
.SetRange Range("A4:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
.Range("A3").Select
End With

End Sub

Bonne soirée,

Setila

 

[sylvanu]

Bonsoir Setila,
Pour le point 1 essayez ce code :

Sub TrouveArchives()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
    If Sh.Name Like "*" & "Archive" & "*" = True Then Sheets(Sh.Name).Activate
Next Sh
End Sub

 

[sylvanu]

Re,
Pour le second point :

Sub essai()
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Add Key:=Range("B4:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Archives TACHES").Sort
.SetRange Range("A4:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub

Le .Range("A3").Select n'a rien à faire dans le With EndWith.

 

[chris]

Bonjour

Sauf erreur de ma part on ne peut activer plus d'une feuille à la fois.

Ne confond t-on pas activer et sélectionner ?

 

[sylvanu]

Bonjour,
Si le but est de sélectionner et activer une sheet, Activate convient.
Sinon on a Select, mais tout dépend du contexte où on veut l'utiliser.
La question est "Comment faire pour activé les feuilles qui sont composés du nom "Archives" " donc Activate était pertinent. Je ne répondais qu'à la question posée.
Si c'est au sein de la macro donnée, alors ce n'est ni Select ni Activate :

Sub essai()
Dim Sh As Worksheet, NomFeuille As String
For Each Sh In ActiveWorkbook.Sheets
    If Sh.Name Like "*" & "Archive" & "*" = True Then NomFeuille = Sh.Name
Next Sh
ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Add Key:=Range("B4:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(NomFeuille).Sort
.SetRange Range("A4:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub

 

[SETILA]

Hello Sylvanu,

Un grand merci, car franchement c'est le top, je peux insérer des centaines d onglets sans changer le code vba!!!
A très bientôt.
Bon dimanche,

Setila

 

[SETILA]

Hello à Tous,

Help please, tout fonctionné et je ne comprend pas pourquoi la le code ci-dessous ne fonctionne plus???

Sub mymacro()

Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Sh As Worksheet, NomFeuille As String
For Each Sh In ActiveWorkbook.sheets
If Sh.Name Like "*" & "Archive" & "*" = True Then NomFeuille = Sh.Name
Next Sh
ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Add Key:=Range("B3:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(NomFeuille).Sort
.SetRange Range("A3:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

D'avance merci,

Setila

 

[sylvanu]

Bonjour Setila,
Quelle feuille Archives voulez vous selectionner ?
Dans l'état la macro prend la dernière archive trouvée soit : "Archives CARTS WDS". Or cette feuille est vide de données.
Si on met des dates dans B3:Bxx, les filtrages fonctionnent correctement.

 

[SETILA]

Hello Sylvanu,

Vous pouvez essayer "Archives LCH" le trie ne fonctionne plus

Setila

 

[SETILA]

Hello Sylvanu,

La macro"trie"fonctionne uniquement sur le dernier onglet "Archives CARTS WDS" or le but et qu'elle fonctionne avec tout les onglets avec le nom composé d'archive

Setila

 

[sylvanu]

Oui mais la macro que je vous ai donné ne faisait que recuperer le nom. C'était un exemple.
En PJ je traite toutes les archives.
Je mets dans le Statusbar la feuille traitée.

 

[eriiic]

Bonjour à tous,

tant qu'à faire autant utiliser sh non ?
Et si tu veux traiter toutes les feuilles *archive* (j'ai repris la proposition de sylvanu) :

Sub essai()
    Dim Sh As Worksheet, NomFeuille As String
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name Like "*" & "Archive" & "*" = True Then
            With Sh
                .Sort.SortFields.Clear
                .Sort.SortFields.Add Key:=Range("B4:B1000") _
                    , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
                With .Sort
                    .SetRange Range("A4:I1000")
                    .Header = xlYes
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
                .Range("A3").Select
            End With
        End If
    Next Sh
End Sub

si ce n'est que certaines, compléter le test If Sh.Name Like
eric

 

[SETILA]

Merci Eric et Sylvanu, ça fonctionne parfaitement.

Bonne soirée

Setila