Tri colonne avec longueur variable sous Macro VBA

Bonjour à tous,

J'ai actuellement 3 colonnes Où se trouvent le "nom prénom" ( colonne A ), "l'adresse" ( colonne B ), et le "code Postal ville" ( colonne C ). Ces 3 colonnes sont bien triées par ordre alphabétique de la colonne A.
Ce tri a été fait sur un listing de l'année précédente. Chaque année de nouveaux noms ( et adresses ) peuvent être ajoutés.

J'ai enregistré une macro avec l'éditeur afin de refaire un tri automatique à chaque nouveau nom entré. Même quand je sélectionne les colonnes entières au moment de l'enregistrement avec l'éditeur, le programme tient compte seulement de la plage écrite et me donne le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Tri() Columns("A:C").Select ActiveWorkbook.Worksheets("Noms").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Noms").Sort.SortFields.Add Key:=Range("A1:A60"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Noms").Sort .SetRange Range("A1:C60") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select End Sub

---

Mon problème est donc : Comme remplacer les plages en fin de lignes 5 et 8 afin que ce soit des variables ( puisque des noms seront ajoutés ).


En espérant être clair, je vous souhaite une bonne journée.

Novice72

Bonjour

Soit tu mets tes données sous forme de tableau et le problème ne se pose plus car on fait référence au tableau et à ses colonnes dont Excel connait à tout moment le nombre de lignes...
Soit tu remplaces tes références

Code:

---

1 2	Range("A1:A60") Range("A1:C60")

---

par

Code:

---

1 2	Range("A:A") Range("A:C")

---

et je te conseille de mettre

Code:

---

.Header = xlYes

---

plutôt que

Code:

---

.Header = xlGuess

---

Bonjour,

ou encore en respectant simplement le modèle objet d'Excel :

Code:

---

1 2 3 4 5

Sub Tri() With ActiveWorkbook.Worksheets("Noms").UsedRange .Sort .Cells(1), xlAscending, Header:=xlYes End With End Sub

---

___________________________________________________________________________________________________________

   :arrow:  Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par Novice72

Mon problème est donc : Comme remplacer les plages en fin de lignes 5 et 8 afin que ce soit des variables

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub Tri()   Set f = ActiveWorkbook.Worksheets("Noms")   Set LesColonnes = f.Columns("A:C")   Set apres = LesColonnes.Cells(1) Set RechercheDonnee = LesColonnes.Cells.Find(what:="*", after:=apres, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False) DerniereLigne = RechercheDonnee.Row   Set tout = f.Range("A1:C" & DerniereLigne)   f.Sort.SortFields.Clear   Colonne = 1   f.Sort.SortFields.Add Key:=tout.Cells(1, Colonne), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   Colonne = 2   f.Sort.SortFields.Add Key:=tout.Cells(1, Colonne), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   With f.Sort .SetRange tout .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With   End Sub

---

Bonjour et merci à vous tous.

Je retrouve un peu de temps à consacrer à mon programme. Je vais donc mettre en application vos conseils.

A bientôt


NOVICE72

Bonsoir,

C'est tout bon.



Encore Merci

Novice72