Problème avec range

Je souhaite trier des données mais ma plage peut varier. J'ai donc des conditions dans ma macro pour définir la plage de données à trier.

J'utilise la fonction sort que je maitrise lorsque la plage est connue mais lorsque j'introduis des variables pour définir la plage, j'ai un message d'erreur.

Le code que j'ai tapé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MaPlage As Range Dim MaCellule As Range Dim Ligne As Integer Dim Colonne As Integer   Ligne = 2 Colonne = 2   Set MaPlage = Range(Cells(Ligne, Colonne), Cells(Ligne + 9, Colonne + 1)) Set MaCellule = ActiveSheet.Cells(Ligne, Colonne + 1)   Worksheets("Classements").MaPlage.Sort Key1:=MaCellule, Order1:=xlAscending

---

J'ai le message d'erreur 438 : Propriété ou méthode non géré par cet objet.

Si je fait :

Code:

---

Worksheets("Classements").Range("B2:C11").Sort Key1:=MaCellule, Order1:=xlAscending

---

la macro s'exécute normalement donc le problème vient de MaPlage et pas de MaCellule

Si je fait :

Code:

---

MaPlage.select

---

j'ai bien la plage souhaitée qui est sélectionnée donc MaPlage a l'air d'être bien initialisée.

Merci pour votre aide car j'ai l'impression d'avoir tout essayé.

Code:

---

MaPlage.Sort Key1...

---

:

Citation:

---

Envoyé par Grangibs

...

j'ai bien la plage souhaitée qui est sélectionnée donc MaPlage a l'air d'être bien initialisée...

---

bonsoir,

Je vous propose qques propositions :

1) pour éviter les confusions , il est préférable de définir la feuille de travail (au cas où la feuille n'est pas active par ex...)

2) vous avez défini une plage, utiliser le nom de cet objet pour en utiliser les méthodes ou propriétés, c'est la correction de rdurupt :
maplage.sort...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub essai()       Dim MaPlage As Range Dim MaCellule As Range Dim Ligne As Integer Dim Colonne As Integer   'définir une feuille de travail Dim ws As Worksheet   'créer une instance de feuille pour éviter les confusions Set ws = Worksheets("Classements") Ligne = 2 Colonne = 2 'range "B2:C11" c'est bon mais de quelle feuille?   Set MaPlage = ws.Range(ws.Cells(Ligne, Colonne), ws.Cells(Ligne + 9, Colonne + 1)) Set MaCellule = ws.Cells(Ligne, Colonne + 1) 'C2   'c'est l'objet maplage qui est trié!! MaPlage.Sort Key1:=MaCellule, Order1:=xlAscending   End Sub

---

bonne continuation,

geogeo70

Bonjour,

Effectivement, en déclarant la feuille en même temps que je déclare MaPlage, je n'ai plus de soucis.

Merci à tous ceux qui ont pris la peine de me répondre.