Désactivation temporaire de la commande SORT

[CactusX]

Bonjour le Forum,

Est-il possible sous XL 97, par une routine VBA de désactiver temporairement la fonction de tri du menu Données puis Trier uniquement sur la feuille 1 ?

Merci.

 

[vincent]

bonjour

cette macro devrait te convenir.elle trie dans l'ordre croissant la range("a1") etant la reference.

Sub Macro1()
With Application.CommandBars("Data")
.Controls("&Trier...").Enabled = False
Sheets(1).Cells.Sort Cells(1, 1)
.Controls("&Trier...").Enabled = False
End With
End Sub

si tu veux plus d'info demande.

bye

 

[CactusX]

Bonsoir Vincent, le forum,

Je cherchais juste à supprimer la commande Trier. Mon appli. se charge du reste et ton code fonctionne.

Merci encore.