Modifier un code pour adapter à plusieurs feuilles Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 12 septembre 2016, 10:51

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
Pierrot
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 12 septembre 2016, 12:40

N'ayant pas de réponse, je clôture ce fil.
Merci à vous tous
Pierrot
Pierrot
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'231
Appréciations reçues : 105
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 12 septembre 2016, 12:44

Bonjour

Bien bon anniversaire au passage .... :D

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
@+ Dan ;)
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 12 septembre 2016, 13:10

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
Pierrot
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message