Discussion :

[levac]

bonjour, je cherche a trier les premiere colonnes de mon tableau mais mon code ne fonctionne pas sachant que je suis obligé des travaillé avec des objets, vus que sa ne marche pas j essaye qu avec la premiere colonne mais aucun succés

Code :

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

1
2
3
 
monclasseur.Sheets(1).Columns("A:A").Select
selection.Sort Key1:=monclasseur.Sheets(1).cells(1, 1), Order1:=xlAscending

[ouskel'n'or]

Tu es sûre que ta cellule A1 contient quelque chose ? Sinon, essaie avec Range

Code :

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

1
2
monclasseur.Sheets(1).Columns("A:A").Select
Selection.Sort Key1:=monclasseur.Sheets(1).Range("A1"), Order1:=xlAscending

A+

[levac]

il me declare une erreur " select method of range class failed " en me surlignant la ligne "monclasseur.Sheets(1).Columns("A:A").Select" et je ne vois pas pourquoi

[ouskel'n'or]

J'ai testé... Ma colonne A avait des données sur A1... je n'ai pas d'erreur

Comment instancies-tu ton classeur ? Tu as bien mis

Code :

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

1
2
3
4
5
Set MonClasseur = ActiveWorkbook
'ou
Set MonClasseur = workbooks("NomDuClasseur.xls")
'ou
Set MonClasseur = workbooks.open(filename:=Chemin & "NomDuClasseur.xls")

Juste une question

[wilfried_42]

Bonjour levac, ouskel'nor

Ca m'arrive souvent quand je veux aller trop vite, j'imagine qu'on ne peut pas selectionner un range avant un sheet et un sheet avant un classeur

Quand je divise mes ordres ca mache

Code :

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

monclasseur.Sheets(1).Columns("A:A").Select

devient :

Code :

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

1
2
3
workbook(monclasseur).select
sheets(1).select
range("A:A").select

sinon tu peux ecrire : (ca evite les select)

Code :

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

monclasseur.Sheets(1).range("A:A").Sort Key1:=monclasseur.Sheets(1).Range("A1"), Order1:=xlAscending

bonne journée

[levac]

je lé cré comme sa

Code :

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

Set monclasseur = GetObject(Stock_var.chemin_nom.Text + "\" + l_Jonction_affaire.nomaffaire + ".xls")

[levac]

il met toujours la meme erreur je ne comprend pas pourquoi, si c est du au reste du code de cette feuille je peux pas vraiment vous le montrer vu qu il est enorme meme en supprimant les commentaires