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