[VBA-E] fusionner 2 pages

Je t'ai donnée la solution pour obtenir la dernière ligne renseignée de ta plage. Pour les raisons que tu indiques, je n'utilise jamais UsedRange si l'utilisateur a accés à la feuille de calcul pour la bonne raison qu'une ligne même vide mais à laquelle tu as accédé, est incluse dans la plage ainsi obtenue
Il te reste néanmoins deux options. L'une d'elles te convient forcément.
Indique-nous la plage (un exemple suffira) qu'on puisse te guider sur la solution à retenir

A+

Citation:

---

Envoyé par ouskel'n'or

une ligne même vide mais à laquelle tu as accédé, est incluse dans la plage ainsi obtenue

---

ca doit en effet venir de ca... mais la ca devient bien complexe !!!

en gros je fais un AutoFilter et donc lui fait comme si 65000 lignes étaient utilisées alors qu'elles ne le sont pas

Code:

---

1 2 3 4

WsBs.Activate WsBs.Cells.Select Selection.AutoFilter Field:=8, Criteria1:="LOGICIEL" Selection.AutoFilter Field:=18, Criteria1:="<>"

---

il faut donc que je puisse copier le contenu de cette sélection vers une worksheet nommée WsInstance, feuille où je vais faire des traitements.

A la fin de ce traitement, je copierai tout dans une feuille WsResultat

ps: mais ca zappe quand meme la question de folaï "y'a t'il une solution de copier/coller de pages ?"

Modif : .... ca marche pas :( j'ai 59000 et quelques lignes que ca soit en utilisant SpecialCells ou UsedRange

selection.Copy WsInstance.cells(1,1)

oui ca je sais bien, mais avec une select du style, j'arrive pas a retrouver le nombre de lignes "qui va" bien !


c'est toujours un nombre enooooorme que ca soit avec la méthode SpecialCells ou la méthode UsedRange... :(

et :

Code:

---

WsInstance.Cells(1,1).CurrentRegion.Rows("2:" & WsInstance.UsedRange.Rows.Count).Copy Destination:=WsResultat.Cells(WsResultat.Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row, 1)

---

ben ca marche pas et pour la meme raison !!! y'a trop de lignes !!! il me compte un truc enooooorme (59000 passées) alors que j'ai que 6000 lignes dans mon tableau... ca vient du moment ou j'ai fait les 2 AutoFilter d'affilée...

sinon je vais faire connement une boucle pour compter mes lignes et ca sera reglé...

j'ai oublié d'enlever un des UsedRange :

et :

Code:

---

1 2 3

Wsinstance.Cells(1, 1).CurrentRegion.Rows("2:" & Wsinstance.Cells(1, 1).CurrentRegion.Rows.Count).Copy Destination:=WsResultat.Cells(WsResultat.Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row, 1)

---

en fait non... ca ne focntionne que la premiere fois !!!

si j'execute 2 fois consécutives, la seconde partie (destination de la copie) fait bugguer comme avant en erreur 1004

Code:

---

1 2 3

WsResultat.Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row

---

fait donc planter à la 2eme exécution... j'ai trouvé un moyen de contourner mais c'est absolu étrange (en fait j'ai une boucle sur le nombre de ligne plus haut dans le prog, je recupere donc le nombre de boucles effectuées...)

++