Pb filtre en VBA

[Jacques25]

Bonjour à tous,

Je rencontre un petit soucis avec une macro créée à l'aide de l'enregistreur de macro.
Il s'agit tout bêtement (enfin je croyais) de filtrer des données en ordre croissant afin de les copier par la suite.

quand je le fais manuellement la colonne est copier sans soucis. Quandd j'enregistre la manipulation j'obtiens le code suivant :

Range("A2:AD500").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Si je lance ma macro, il y a bien un titre en ordre croissant mais la ligne de titre est elle aussi classée en ordre croissant.

Qu'est ce que je dois changer pour que ma ligne de titre reste inchangé (toujours en titre en de colonne)?

Merci pour votre aide.
Bonne journée.

Jacques

 

[PMO2]

Re : Pb filtre en VBA

Essayez de changer xlGuess par xlYes

 

[Jacques25]

Re : Pb filtre en VBA

Salut PMO2,

Merci pour ta réponse ça marche nickel, quelle est la différence entre les 2?

Merci
Bonne journée

 

[herve62]

Re : Pb filtre en VBA

Salut
essaye de faire :
Range("A2:AD500).select
Application.CutCopyMode = False
Selection.sort .............. ta suite

OU
Header:=xlYes au lieu de GUESS

 

[herve62]

Re : Pb filtre en VBA

On s'est croisé en répondant simultanément avec PM02
le HEADER=XLYES supprime la 1ere cellule ( donc ici de la colonne puisque tri par colonne) de la selection
car Header signifie aussi "En-tête" ou "titre en anglais

 

[Jacques25]

Re : Pb filtre en VBA

Salut Hervé62,

Merci pour ce complément d'information.

Bonne fin de journée.

Jacques

 

[PMO2]

Re : Pb filtre en VBA

Header:= (il y a-t-il un en-tête)
xlYes (il y a une ligne d'en-tête)
xlNo (il n'y a pas de ligne d'en-tête)
xlGuess (Excel interprète selon le contexte s'il y a une ligne d'en-tête ou non)