Ecrire à la suite

Bonjour,

j'aimerai copier le contenu de la Colonne A de la feuille "Base" vers la feuille "Historique" à la suite des données déja présentes de la colonne B.


Voilà mon code, sachant que :
--> la cellule H1 de la feuille "Base" représente le compte des cellules remplies de la colonne A (avec la formule =nbval )
--> la cellule B1 de la feuille "Historique" représente le compte des cellules templies de la colonne B (avec la formule =nbval )

Code:

---

1 2 3 4 5 6

N = Worksheets("Base").Range("H1") M = Worksheets("Feuil_historique").Range("B1") Worksheets("Base").Range("A1:A&N&").Select Selection.Copy Worksheets("Feuil_historique").Range("B&M&").Paste

---

Malheurseusement je n'y arrive pas, est-ce que quelqu'un peut m'aider ?

Merci d'avance.

Bonjour le forum

Code:

---

1 2 3 4 5

N = Worksheets("Base").Range("H1") M = Worksheets("Feuil_historique").Range("B1")   Worksheets("Base").Range("A1:A" & N).Copy Worksheets("Feuil_historique").Range("B" & M).Paste

---

bonjour dolin007 Jean-Pierre49 le forum. un autre exemple attention au noms des feuilles

Code:

---

1 2 3 4

With Sheets("Base") .Range("a1:a" & .Range("a65536").End(xlUp).Row).Copy _ Destination:=Sheets("Historique").Range("b65536").End(xlUp)(2) End With

---

Alors, pour ta proposition Jean-Pierre, j'ai une erreur d'execution '438' "Propriété ou methode non gérée par cet objet"...

Et Laetitia, ta proposition de code me copie toute la feuille "Base" pour la coller à partir de la suite de la feuille "Historique".

J'ai bien fait attention aux noms dans les 2 cas.

Je continue de chercher, vos réponses me donnent des pistes.

Si vous avez des idées n'hésitez pas,

merci

Une précision, la colonne A de la feuille "historique" est composée de formules, comment faire pour ne copier que le résultat de ces formules et non les formules elles même ?

re, mettre le nom des feuilles puis essai comme cela

Code:

---

1 2 3 4 5 6 7 8 9

Sub essai() Dim N As Long, M As Long N = Sheets(1).Range("H1") M = Sheets(2).Range("B1") With Sheets(1) Sheets(1).Range("A1" & ":a" & N).Copy _ Destination:=Sheets(2).Range("b" & M) End With End Sub

---

Ca marche presque, ce qu'il me faudrait c'est une solution pour copier les valeurs des cellules, et non les formules. Que peux-tu me proposer ?

Merci d'avance !

Avec

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub essai() Dim N As Long, M As Long N = Sheets(1).Range("H1") M = Sheets(2).Range("B1")   Sheets(1).Range("A1:A" & N).Copy Sheets(2).Range("B" & M).PasteSpecial Paste:=xlPasteValues     End Sub

---

PERFECTO ! MERCI LAETITIA, MERCI JEAN PIERRE ! Jvais pouvoir avancer sur mon projet à présent.

Et sans passer par le presse papier

Code:

---

1 2 3 4 5 6

Sub essai() Dim N As Long, M As Long N = Sheets(1).Range("H1") M = Sheets(2).Range("B1") Sheets(2).Range("B" & M &":B" & M+N-1).Value=Sheets(1).Range("A1:A" & N).Value End Sub

---

Et je propose de s'en passer du N et M en H1 et B1 respectivement(à chercher en fonction des données remplies des 2 feuilles)