Un Range variable ?

Bonjour,
Je suis actuellement stagiaire et mon responsable souhaite que je développe un petit programme sous vba. Je cherche a faire une boucle de tri de blocs de 3 colonnes. Seulement ces colonnes sont créées par le programme et je ne connais pas a l'avance combien de blocs vont être créés. J'ai donc voulu faire en sorte que le range a trier soit variable. Mais voilà plusieurs jours que je teste differentes syntaxe, sans succès... Voilà la ligne qui pose soucis :

Code:

---

1 2	Worksheet("tmpgraph").Range(Cells(l, k), Cells(l, k + 1)).sort key1:=Worksheet("tmpgraph").Range("G4") l=l+1

---

L'erreur renvoyée est l'erreur '1004', erreur définie par l'application ou l'objet.

Voilà, désolé je n'ai que mon téléphone pour accéder a internet je pourrais vous apporter plus de détails si nécessaire.

En vous remerciant

Édit: pas d'erreur avec cette syntaxe mais pas de tri non plus...

Code:

---

Worksheet("tmpgraph").Range("" & k + 1 & l & " : " & k & l &"").sort Key1:= worksheet("tmpgraph").Range("G4")

---

Bonjour, bonjour,

pour moi si il y en a une !

Avec l'Enregistreur de macros, dans un classeur comportant deux feuilles de calculs,
sélectionner celle qui n'est pas active puis lire le code ainsi obtenu …

Ne pas confondre objet (Worksheet) et collection (Worksheets) !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Tout d'abord merci de t'être intéressé à mon problème. Le "worksheet" est une simple erreur de frappe de ma part, ce n'est pas mon soucis. En fait je cherche simplement a remplacer les lettres ET le chiffre d'un Range. Par exemple, je voudrais remplacer Range("A1:B4") par Range(k,i:k+1,i+3) mais je ne trouve pas la bonne syntaxe. J'ai tenté un range(.cells(i, k), .cells(i+3, k+1) ) mais ça ne passe pas non plus...
J'espère que je me suis fait comprendre.
Merci encore

Code:

---

Worksheets("tmpgraph").Range(Worksheet("tmpgraph").Cells(l, k), Worksheets("tmpgraph").Cells(l, k + 1)).Sort...

---

Ou en simplifiant

Code:

---

1 2 3 4

With Worksheets("tmpgraph") .Range(.Cells(l, k), .Cells(l, k + 1)).Sort...   End With

---

Ou en re simplifiant

Code:

---

1 2 3 4

With Worksheets("tmpgraph") .Cells(l, k).Resize(, 2).Sort...   End With

---