classer par ordre alpha

Jelf

XLDnaute Occasionnel

• 4 Septembre 2008

• #2

Re : classer par ordre alpha

Bonjour le forum, bonjour nrdz83.
Comment t'aider ???, il y a des mots de passe partout.

Amicalement

Jelf

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Septembre 2008

• #3

Re : classer par ordre alpha

desolé je viens de m'en apercvoir je le remets sans pass

Cijoint.fr - Service gratuit de dépôt de fichiers

d'avance merci à tous 😎

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Septembre 2008

• #4

Re : classer par ordre alpha

bonjour a tous
A ajouter dans le module2

Code:

Sub classerpararmements()
Range("A2:P" & [A65000].End(xlUp).Row).Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("A3") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=n + 1
End Sub
Sub classerparnom()
Range("A2:P" & [A65000].End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("A3") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=n + 1
End Sub

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Septembre 2008

• #5

Re : classer par ordre alpha

un grand merci pierre jean j'avais essayer ce code et j'avais une erreur a ce niveau OrderCustom:=n + 1
enfin la ça fonctionne un grand merci, mes amitiés 😎

 

Vote positif 0 Vote négatif