Discussion :

[magikmed]

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 :

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

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 :

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

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[magikmed]

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

[mercatog]

Code :

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

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

Ou en simplifiant

Code :

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

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

Ou en re simplifiant

Code :

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

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