Discussion :

[dolin007]

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 :

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

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.

[Jean-Pierre49]

Bonjour le forum

Code :

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

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

[laetitia]

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

Code :

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

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

[dolin007]

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

[laetitia]

re, mettre le nom des feuilles puis essai comme cela

Code :

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

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

[dolin007]

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 ?

[dolin007]

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 !

[Jean-Pierre49]

Avec

Code :

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

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

[dolin007]

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

[mercatog]

Et sans passer par le presse papier

Code :

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

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)