Discussion :

[Novice72]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et je te conseille de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Header = xlYes

plutôt que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Header = xlGuess

[Marc-L]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

___________________________________________________________________________________________________________

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

___________________________________________________________________________________________________________

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

[Docmarti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Novice72]

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

[Novice72]

Bonsoir,

C'est tout bon.



Encore Merci

Novice72