message erreur macro

Bonjour à tous,

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

Code:

---

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 :

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

Bonjour,

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

Merci par avance

Cordialement

Citation:

---

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

---

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

Bonsoir,

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

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

J'espère avoir répondu correctement :oops:

Merci par avance pour ton aide

Cordialement

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.

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

Bonjour,

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

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

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 !