Discussion :

[Mathsdeb]

Bonjour à tous,

J'ai trouvé la macro ci-dessous sur internet qui permet de faire un tri par ordre alphabétique:

Code :

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

1
2
3
Sub Tri_Alpha()
 Range("A2:C1000").Sort Key1:=Range("A2"), Order1:=xlAscending
End Sub

Je l'ai collé sur 3 feuilles de la fenêtre VBA. Mais lorsque je retourne sur mes 3 onglets et que j'insère les boutons, la macro ne fonctionne que sur un onglet. Pour les autres j'ai le message
d'erreur ci-dessous :

[unparia]

Bonjour
Où as-tu mis cette procédure ?
Ta réponse à cette question est probablement la réponse à ton problème.

[Mathsdeb]

Bonjour,

Je ne comprends pas. De quelle procédure parlez vous svp?

Merci par avance

Cordialement

[unparia]

Je ne comprends pas. De quelle procédure parlez vous svp?

Au hasard : de la seule que tu nous montres dans cette discussion !

[Mathsdeb]

Bonsoir,

Oui c'est clair y'en qu'à qu'une

Je l'ai collé dans la fenêtre VBA, dans 3 feuilles.

J'espère avoir répondu correctement

Merci par avance pour ton aide

Cordialement

[unparia]

Si tu as mis cette procédure dans le module de code chacune de tes trois feuilles, elle ne peut que fonctionner. Dans la mesure, toutefois, où elle est alors (dans ce cas-là) appelée par une ligne de code également mise dans le module de code de la feuille concernée.

[Mathsdeb]

Bonsoir à tous,

J'ai mis cette procédure dans les modules mais ca ne marche toujours pas

merci par avance pour votre aide précieuse

cordialement

[joe.levrai]

Bonjour,

n'y aurait-il pas des cellules fusionnées sur la zone de ces deux feuilles où tu veux faire le tri ?

si c'est le cas, retire les fusions où adopte une autre stratégie pour gérer le tri

[Theze]

Bonjour,

Cette procédure peut être mise dans un module standard (une seule fois, supprimer les autres) et appelée par tes trois boutons (un sur chaque feuille) et ça sera la feuille active que sera triée. Comme le dit si bien joe.levrai, évites les cellules fusionnées, elles posent souvent problème !