[VBA-E] Fusionner 2 feuilles

Mon probleme est strictement similaire à celui-là:
http://www.developpez.net/forums/sho...d.php?t=133597
Je veux fusionner deux pages. Seulement, ça bloque déja à la premiere etape. Pourquoi?

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ranklow As Long, rankhigh As Long ranklow = Worksheets("infos clients CP<5").Cells.SpecialCells(xlCellTypeLastCell).Row rankhigh = Worksheets("infos clients CP>=5").Cells.SpecialCells(xlCellTypeLastCell).Row 'inutile pour l'instant   MsgBox (ranklow) Worksheets("infos clients CP<5").Range(Cells(2, 1), Cells(ranklow, 255)).Copy 'c'est ici que j'ai un bug   Worksheets("infos clients").Range(Cells(2, 1), Cells(ranklow, 255)).Paste

---

ok merci! Bon je sais tjrs pas ce qui va pas. Copy a-t-il besoin d'un select peut etre?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub conca() Dim ranklow As Long, rankhigh As Long ranklow = Worksheets("infos clients CP<5").Cells.SpecialCells(xlCellTypeLastCell).Row rankhigh = Worksheets("infos clients CP>=5").Cells.SpecialCells(xlCellTypeLastCell).Row Worksheets("infos clients CP<5").Select Range(Cells(2, 1), Cells(ranklow, 256)).Select Selection.Copy Worksheets("infos clients").Select Range("A2").Select ActiveSheet.Paste Worksheets("infos clients CP>=5").Select Range(Cells(2, 1), Cells(rankhigh, 256)).Select Selection.Copy Worksheets("infos clients").Select Range(Cells(ranklow + rankhigh - 1, 1)).Select ActiveSheet.Paste

---

voila plus exactement mon code apres quelques modifs.

je passe par plus de select finalement puisque je ne pige pas ce qui ne va pas. En revanche il n'aime pas cette ligne:

Range(Cells(ranklow + rankhigh - 1, 1)).Select

le probleme ne vient pas du ranklow+rankhigh-1 car meme avec un nombre, ça ne passe pas.

Pourquoi à votre avis?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim ranklow As Long, rankhigh As Long ranklow = Worksheets("infos clients CP<5").Cells.SpecialCells(xlCellTypeLastCell).Row rankhigh = Worksheets("infos clients CP>=5").Cells.SpecialCells(xlCellTypeLastCell).Row Worksheets("infos clients CP<5").Select Range(Cells(2, 1), Cells(ranklow, 256)).Select Selection.Copy Worksheets("infos clients").Select Range("A2").Select ActiveSheet.Paste Worksheets("infos clients CP>=5").Select Range(Cells(2, 1), Cells(rankhigh, 256)).Select Selection.Copy Worksheets("infos clients").Select Cells(ranklow + 1, 1).Select ActiveSheet.Paste

---

ok probleme réglé tel quel. En revanche si quelu'un sait pourquoi mon premier code ne marchait pas, je suis toujours preneur. En fait, j'aimerai bien étendre mon savoir à l'aide d'un expert de vba :D

D'après le comportement de l'application, je parierais que ton code se trouve dans une feuille.

Je mets TOUJOURS dans un module, le code qui doit manipuler des données dans les feuilles .

En réalité, je ne mets, dans le code des feuilles, que les procédures événementielles propres aux feuilles .

De plus, dès que je dois faire référence à une feuille, j'en crée une instance (Set wksSrc = ..., par exemple).

merci pour la reponse.

Dis je peux te demander?

- Pourquoi les mettre dans un module exclusivement? Pour des raisons de netteté et de lisibilité ou est-ce que ça à des répercussions effectives sur le code ou la performance?

- J'ai lu dans la doc de programmation que "les collections coutent relativement cher en memoire", et qu'il faut donc les "affecter à une variable fortemet typé". Ce que tu me redis là. Pourrais-tu me montrer quoi changer pour appliquer ce type de méthode? Je pense être mal à l'aise avec les variables de type range en fait.

imaginons que Maplage soit une range, disons B1:C2, comment j'accede à la valeur en C2? Je dirais maplage.cells(2,2)? Value sert-il a quelque chose? Et comment se fait-il que l'utilisation d'une variable fasse gagner de la mémoire?