Range et select

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:

---

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

---

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

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

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:

---

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

---

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

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

Code:

---

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

---

pas de select

Citation:

---

Envoyé par mlww

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

---

Peu importe puisque tu pointes directement dessus avec ton With.

Citation:

---

Envoyé par mlww

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.

Citation:

---

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

Code:

---

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

Citation:

---

Envoyé par mlww

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).

Oui tout a fait il y a un non en trop toutes mes excuses
maintenant l'ensemble fonctionne bien c'est cool

le seul soucis c'est que la feuil doit être active, pouvons nous faire sans quelle soit activée

Si tu as appliqué consciencieusement les deux points que nous avons soulevé (Select et le . devant ton Range("A1")) il n'y a plus de raison que la feuille soit active

Un grand merci a vous tous

grâce à votre aide tout fonctionne

Citation:

---

Envoyé par mlww

le seul soucis c'est que la feuil doit être active, pouvons nous faire sans quelle soit activée

---

Tu veux vraiment que je réponde une troisième fois à cette question ? :roll:

Non non , c'est bon

j'ai nettoyé mes lunettes et ca va mieux

merci de ton aide