Discussion :

[jacfld49]

Bonsoir le forum,


J'ai ce code ci-dessous qui me fais un trie dans mon tableau de la colonne F puis de la colonne G, le problème que j'ai , c'est que j'ai 105 lignes et que si j'en ai que 6 de rempli, elle se trie et se classe en bas du tableau alors que je voudrais qu'il reste de la ligne 7 à 12 si je n'ai que 6 lignes de rempli
merci de votre aide
jac

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
Sub TrieVeterans_M()
'
' TrieVeterans Macro
'
 
'
    Range("B7:G105").Select
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "F7:F105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "G7:G105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("VeteransHommes").Sort
        .SetRange Range("B7:G105")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Bonjour à Tous,

Personne à une idée , pourquoi le rangement se fait en bas du tableau alors que j'ai des résultats que de la ligne 7 à la ligne 12 et quand je lance la macro, elle me fait bien le trie mais me les place de la ligne 100 à la ligne 105 donc au dessus , c'est vide, il est vrai que j'ai des formules dans les colonnes sauf les colonnes E et G et sur la colonne G, il y a un trie.
jacky

Re Bonjour à tous,

Je viens de faire un essai en triant d'abord la colonne G avant la colonne F et la, cela classe bien de la ligne 7 à la ligne 12 , donc c'est bien à cause des formules qui sont en colonne F que cela pose problème .Mais le problème que j'ai, c'est que c'est d'abord la colonne F qui doit être trier en priorité, donc je n'arrive pas à trouver la solution
merci
jacky

[BlueMonkey]

Bonsoir,

Au lieu de trier sur un nombre fixe de ligne, essaye de trier sur le nombre de lignes réellement utilisées.

Pour déterminer la dernière ligne utilisée dans la plage :

Code :

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

1
2
    Dim lastLine As Long
    lastLine = Range("B7:G7").End(xlDown).Row

Ensuite au lieu d'écrire Range ("F7:F105"), on écrira Range ("F7:F" & lastLine).

[jacfld49]

Bonjour Le Forum,BlueMonkey,

j'ai fais comme ceci et j'ai une erreur, je te mets le code, j'ai du faire une erreur
merci
jacky

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
Sub TrieVeterans_M()
 
    Dim lastLine As Long
    lastLine = Range("B7:G7").End(xlDown).Row
    Range("B7:G105").Select
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "F7:F" & lastligne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "G7:G105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("VeteransHommes").Sort
        .SetRange Range("B7:G105")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[BlueMonkey]

Salut,

j'ai une erreur

Quel code/message d'erreur ? sur quelle ligne ?

Pour infos dans ma version d'Excel, le code du post #1, provoque une erreur d'exécution dès la ligne 8 Worksheets("VeteransHommes").Sort.SortFields.Clear.
Erreur 438 Propriété ou méthode non gérée par cet objet.

L'idée suggérée au post #2, est de remplacer toutes les références à une fin de ligne n°105 par & lastLine ; que soit dans la colonne F ou non.

[jacfld49]

Bonjour Blue Monkey,

l'erreur est sur la ligne 4 qui est en jaune
merci
jacky

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
Sub TrieVeterans_M()
'
    Dim lastLine As Long
    lastLine = Range("B7:G7").End(xlDown).Row
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "F7:F" & lastligne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("VeteransHommes").Sort.SortFields.Add Key:=Range( _
        "G7:G105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("VeteransHommes").Sort
        .SetRange Range("B7:G105")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[casefayere]

Bonsoir,
sans vouloir me meler et sans avoir tout parcouru de l'échange, j'aurais écris

Code :

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

lastLine = Range("B7:G7").CurrentRegion.Rows.Count + 6

car il suffit de regarder le résultat avec

Code :

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

lastLine = Range("B7:G7").End(xlDown).Row

chez moi, dans ce cas lastline = 1048576 (Excel 2007)

mais je peux me tromper dans le contexte !

PS : evites le jaune illisible et atroce