VBA EXCEL: Application d'un code VBA pour toutes les feuilles EXCEL

[Aragon10]

Bonjour,

Jai un code que je voudrais l'appliquer à toutes mes feuilles EXCEL de mon classeur (à par la première "Feuil1"). J'ai tenté ma chance avec mes connaissances basiques en VBA mais ça n'a pas aboutit. ci-dessous mon code:

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name <> "Feuil1" Then
              
    
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    Range("A1").Select
    Sheets(Feuille.Name).AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort.SortFields.Add Key:=Range _
        ("A1:A11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

       
     
    End If

Next Feuille

Merci pour votre aide

 

[Roland_M]

Re : VBA EXCEL: Application d'un code VBA pour toutes les feuilles EXCEL

bonsoir,

c'est normal tu es toujours sur la même feuille !
If Feuille.Name <> "Feuil1" Then
Range("A1").Select '<<<< ceci s'adresse à la feuille active qui est toujours la même


'---------------
If Feuille.Name <> "Feuil1" Then
'il faut ajouter
Feuille.Activate
'ou bien mettre partout
Feuille.Range("A1").Select

 

[Aragon10]

Re : VBA EXCEL: Application d'un code VBA pour toutes les feuilles EXCEL

Bonjour,

Merci beaucoup. votre conseil me serait très utile.

Bonne journée.