Discussion :

[mlww]

Bonjour,

si quelqu'un pourrait éclairer ma lanterne, car la je mis perd

Je désire sélectionner une plage de cellules dans une colonne, et trier ces cellule dans un ordre croissant

j'ai un message d'erreur 1004 erre dans la sélection

Merci d'avance

Code :

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

1
2
3
4
5
6
 
With Workbooks("BdC_CC.xlsm").Sheets("Données")
    .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With

[joe.levrai]

Bonjour,

si la feuille n'est pas active, le Select ne fonctionnera pas, est-ce le cas ?
et puis, pas besoin de faire un .Select sur ton Range et juste derrière utiliser "Selection", autant tout de suite utiliser le Range dans ta ligne de Sort


si ce premier conseil ne résous pas ton problème, c'est qu'il y en a un second !
que vaut .Range("A" & .Rows.Count).End(xlUp).Row ? ça te donne quel numéro de ligne ?
ajoute un point devant le Range("A1") de ta ligne 4 également

[Menhir]

Est-ce que le fichier "BdC_CC.xlsm" est ouvert quant tu lances ta macro ?

[mlww]

Bonjour,

Le fichier BdC_CC est ouvert
la feuille "Données" est pas active

Quand j'exécute la ligne seule Range("A" & .Rows.Count).End(xlUp).Row,

il me renvoie la valeur de 8
ce qui correspond au nombre de ligne non contenant mes valeur

Donc vous me proposez de réduire la ligne jusque comme ci-dessus

Code :

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

1
2
3
4
5
 
With Workbooks("BdC_CC.xlsm").Sheets("Données")
    .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With

[joe.levrai]

oui

tu n'as pas ajouté le . devant Range("A1").

étant donné que tu n'es pas sur la même feuille, c'est l'erreur fatale ! Deuxième effet Kiss Cool

[mlww]

Ok,

j'ai corrigé mon erreur,
cela fonctionne bien quand la feuille est active
mais pas contre feuille inactive cela ne marche pas

comment réaliser cette sélection et ce tri sans que la feuille soit actives

[Menhir]

Par contre la feuille "Données" n'est pas active

Peu importe puisque tu pointes directement dessus avec ton With.

Quand j'exécute la ligne seule Range("A" & .Rows.Count).End(xlUp).Row ,
il me renvoi la valeur de 8
ce qui correspond au nombre de ligne non contenant mes valeur

Il n'y aurait pas un "non" en trop dans ta phrase.
Sinon, il faut que tu expliques.

Donc vous me proposer de réduire la ligne jusque comme ci-dessus

Code :

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

1
2
3
4
With Workbooks("BdC_CC.xlsm").Sheets("Données")
    .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With

Enlève "Selection". Tu appliques le Sort directement au Range.
https://msdn.microsoft.com/fr-fr/lib.../ff840646.aspx

comment réaliser cette sélection et ce tri sans que la feuille soit actives

En réalisant un code correct (voir ma remarque sur le Selection).

[Invité]

Code :

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

.Range(.Range("A1"), .Cells(.Rows.Count, "A").End(xlUp)).Sort

pas de select