Modifier un code pour adapter à plusieurs feuilles

Bonjour, à tous,

J'ai un code qui fonctionne bien sur une feuille et je souhaite l'adapter pour m'en servir sur les autres feuilles, aléatoirement

en ce jour de mon 54ème anniversaire de mariage, j'espère avoir une solution en retour

Un grand merci d'avance et bonne journées à toutes et tous

Pierrot

Sub Tri_Ligne()
    '
    ' Tri_Ligne Macro
    '                           'Valable pour la feuille 1

      MsgBox "Avez-vous sélectionné la 1ère cellule de gauche de la ligne à trier ?"
        ActiveCell.Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=ActiveCell.Range _
            ("A1:H1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        With ActiveWorkbook.Worksheets("Feuil1").Sort
            .SetRange ActiveCell.Range("A1:Z1")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
        ActiveCell.Select
    End Sub

N'ayant pas de réponse, je clôture ce fil.

Merci à vous tous

Pierrot

Bonjour

Bien bon anniversaire au passage ....

Essaie ceci :

Sub Tri_Ligne()
'MsgBox "Avez-vous sélectionné la 1ère cellule de gauche de la ligne à trier ?"
With ActiveSheet
    .Range(.Range("A1"), .Range("A1").End(xlToRight)).Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=ActiveCell.Range _
    ("A1:H1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
    With .Sort
      .SetRange ActiveCell.Range("A1:Z1")
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlLeftToRight
      .SortMethod = xlPinYin
      .Apply
    End With
End With
End Sub

Le message box ne sert à rien ici

Amicalement

Merci Dan, j'ai modifié un peu pour adapter à n'importe quel endroit de la feuille avec "ActiveCell.Range A1.Select.....

Bonne journée à toi, merci pour notre anniversaire

Amitiés

Pierrot

Rechercher des sujets similaires à "modifier code adapter feuilles"