Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb de tri

Pb de tri

2 réponses
Avatar
Vince
Bonjour,

Lorsque je trie un tableau avec cette proc,
souvent la première ligne qui se trouve en A3 ne se trie pas ?
Merci beaucoup

Sub Tri_auto_après_classement()

Application.ScreenUpdating = False
Sheets("Tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A3:K15000").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Vince,

enlève la partie Header:=xlGuess
xlNo est mit par défaut. (La plage entière doit être triée).
xlGuess. Microsoft Excel détermine s'il existe un en-tête et, le cas
échéant, son emplacement.

isabelle


Bonjour,

Lorsque je trie un tableau avec cette proc,
souvent la première ligne qui se trouve en A3 ne se trie pas ?
Merci beaucoup

Sub Tri_auto_après_classement()

Application.ScreenUpdating = False
Sheets("Tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A3:K15000").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub


Avatar
Vince
Merci beaucoup Isabelle
Vince

"isabelle" a écrit dans le message de
news:
bonjour Vince,

enlève la partie Header:=xlGuess
xlNo est mit par défaut. (La plage entière doit être triée).
xlGuess. Microsoft Excel détermine s'il existe un en-tête et, le cas
échéant, son emplacement.

isabelle


Bonjour,

Lorsque je trie un tableau avec cette proc,
souvent la première ligne qui se trouve en A3 ne se trie pas ?
Merci beaucoup

Sub Tri_auto_après_classement()

Application.ScreenUpdating = False
Sheets("Tableau").Select
ActiveSheet.Unprotect Password:="toto"
Range("A3:K15000").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub