Excel - macro

Bonjour,

Je me suis sous excel 2010, je me suis fait faire un petit programme pour mon boulot sous la version 2010, mais une fois que le programme est ouvert et que je clique sur un onglet, une erreur s'affiche : voir screen 1

Si je lance le debogage, une ligne est surlignée en jaune, je pense qu'il y a une erreur, mais je n(y connais pas assez pour la corriger ! voir screen 2.

Est ce que quelqu'un pourrait m'aider ?

Cordialement

Merci

8 vues et personne peut me donner une solution !!

Je vous joins le fichier

Bonjour,

Des instructions inutiles ……

L'enregistreur de macros n'est pas un instrument de programmation. Il doit servir uniquement de guide pour trouver les instructions à écrire.

Apprenez à utiliser la méthode "Sort" de la classe Range. Cette méthode suffit en général.

Sub ALPHA()
'
' ALPHA Macro
'

    ActiveSheet.Unprotect
    Range("B4:D202").Sort key1:=Range("C3"), Order1:=xlAscending, Header:=xlYes
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End S

ub

Merci pour la réponse, je n'ai plus d'erreur, mais le tri ne se fait pas.

cordialement

McIntosh34 a écrit :

Merci pour la réponse, je n'ai plus d'erreur, mais le tri ne se fait pas.

Forcément, tous les éléments de votre colonne NOM sont déjà triés. Faites un essai avec un élément non trié.

merci, mais normalement je dois pouvoir faire un tri croissant et décroissant non ?

Apres correction :

McIntosh34 a écrit :

mais normalement je dois pouvoir faire un tri croissant et décroissant non ?

Alors, il vous faut 2 procédures :

Sub tri_AZ()
'
' Tri croissant
'

'
    ActiveSheet.Unprotect
    Range("B3:D202").Sort key1:=Range("C3"), Order1:=xlAscending, Header:=xlYes
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Sub tri_ZA()
'
' Tri décroissant
'

'
    ActiveSheet.Unprotect
    Range("B3:D202").Sort key1:=Range("C3"), Order1:=xlDescending, Header:=xlYes
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Edit: modif plage de tri

Merci thev, mais comment inserer , je ne comprend rien en vba.

Le programme que j'ai mit en piece jointe, il fonctionne chez toi ?

Merci

En apportant la modification ci-dessus, cela devrait fonctionner chez toi.

ci-jointe une solution pour tri ascendant et descendant.