Bonjour Norbert
Voici une macro qui fait ce que tu demandes ...sur ton modèle !
Tu devras adapter les quatres premières lignes à ta réalité.
C'est à dire remplacer les N° de ligne et de colonne par les bons N°
Sub TriTout()
PremiereLigne = 3
DerniereLigne = 6
PremiereColonne = 2
DerniereColonne = 6
For i = PremiereLigne To DerniereLigne
TriH Range(Cells(i, PremiereColonne), Cells(i, DerniereColonne))
Next
End Sub
Sub TriH(Plg As Range)
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Plg, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Plg
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Si la longueur des lignes est variable tu mets le chiffre le plus grand.
Pour utiliser cette macro ce n'est pas compliqué :
Faire une copie de sécurité de ton classeur... au cas ou !
Copier tout le code ci dessus depuis Sub TriTout... jusqu'à End SubAller sur ton classeur de travail
Sur l'Onglet de la feuille que tu veux trier faire un Clic Droit puis Visualiser le code
Dans la page blanche qui vient de s'ouvrir, (sous Général) Coller tout le code
Ajuster avec soin les quatres variables :
PremiereLigne = ?
DerniereLigne = ?
PremiereColonne = ?
DerniereColonne = ?
Quand c'est fini revient sur ta feuille de classeur Depuis l'onglet Développeur fait Macro (TriTout) Exécuter
YORAPUKA supprimer ensuite la macro (avec soin) en revenant une dernière fois avec Visualiser le Code.
Si tu désires conserver la macro tu peux, mais il faudra enregistrer ton classeur sous une autre extension :
Enregister sous... dans la boite de dialogue il faudra choisir Type : Classeur prenant en charge les macros (*.xlsm)
A+
Roger