Discussion :

[HIGGUINS]

Bonjour,

J'ai créé un tableau avec 9 colonnes (A à I) avec la 1ère ligne correspondant aux en-têtes de colonnes. Les nouveaux enregistrements viennent s'inscrire automatiquement sur la dernière ligne de mon tableau. Est-ce qu'il est possible à partir de ce moment-là qu'Excel reclasse le tableau par ordre alphabétique (tri sur la colonne A).

En vous remerciant d'avance de votre aide.

[Pierre Fauconnier]

Salut.

Voici le code générique

Code :

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

Range("a:i").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes

Tu peux l'insérer dans un évènement (tel que Deactivate de la feuille, par exemple).

Attention. Si tu le places au sein de Change de la feuille, l'utilisateur risque d'être surpris, même s'il a alors le tri en temps réel.

[HIGGUINS]

Bonjour,

Je viens d'essayer le code et cela ne marche pas. Erreur 1004.

[Pierre Fauconnier]

Donne le code complet...

Si tu l'utilises au sein d'une procédure événementielle de la feuille de calcul concernée, il n'y a pas de raison qu'il provoque une erreur, sauf si ta feuille est protégée.

[HIGGUINS]

Etant nulle en VBA, j'ai simplement recopié le code ci-dessus dans la procédure évènementielle de ma feuille. Avec worksheet et deactivate.

[Pierre Fauconnier]

Code :

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

1
2
3
Private Sub Worksheet_Deactivate()
Range("a:i").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes
End Sub

Mets un copier-coller de ton code svp, on perdra moins de temps.

[HIGGUINS]

Merci pour ta réponse. Cela marche. Erreur inattention. J'avais mal indiqué le nombre de ligne.

Merci bcp.

[Pierre Fauconnier]

Perso, il n'y a pas de nombre de lignes dans mon code...

Mais bon, si ta solution te convient, tant mieux. Je suppose que tu as des données sous les lignes à trier...

[HIGGUINS]

Bonjour,

Au début j'ai saisie le code suivant dans la procédure évènementielle:
Private Sub Worksheet_Deactivate()
Range("a:i").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes
End Sub

Cela me met le message suivant : Erreur exécution1004 : La méthode sort de la classe range à échoué.

Si je saisie ce code :
Private Sub Worksheet_Deactivate()
Range("a1:i1580").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes
End Sub

Cela marche. Je me suis posé la question justement pour les données rentrée à la suite de la ligne 1580. J'ai rentré 5 enregistrements supplémentaires à la suite. Il me les prends en compte puisque qu'il me les classes dans le tableau. Par contre si je supprime des enregistrements et donc ma dernière ligne de mon tableau est la 1575, alors de nouveau j'ai ce message d'erreur.