Autres copier des lignes dans une autre page excel à la suite...

[hervoul]

Bonjour,
-Je voudrais simplement (façon de parler) créer une macro qui copie les lignes B17 à K20 de l'onglet 'calculs" dans l'onglet "récapitulatif" .
- Les lignes seraient copiées les unes à la suite des autres dans le tableau, au fur et a mesure de chaque copie...
merci.
*RVoul

XLS 97-2003

 

[Staple1600]

Bonsoir le fil, Hervoul

Hervoul
Voir le point RGPD de la charte du forum
Et par conséquent remplacer le fichier du message#1

 

[Staple1600]

Re

En attendant une version anonymisée de ton fichier,
cette macro fait le job

Sub azinga()
Dim t
t = Sheets("calculs").Range("B17:K20").Value
Feuil2.Cells(Rows.Count, 1).End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)).Value = t
End Sub

 

[hervoul]

Bonsoir le fil, Hervoul

Hervoul
Voir le point RGPD de la charte du forum
Et par conséquent remplacer le fichier du message#1

ahhh les noms? c'est ça?
oops désolé

 

[hervoul]

Re

En attendant une version anonymisée de ton fichier,
cette macro fait le job

Sub azinga()
Dim t
t = Sheets("calculs").Range("B17:K20").Value
Feuil2.Cells(Rows.Count, 1).End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)).Value = t
End Sub

ça devrait être bon avec le fichier...

 

[Staple1600]

Re

Oui, c'était les noms

Ma macro fonctionne sur ton fichier non ?
(Je l'ai testé sur le 1er fichier)

 

[hervoul]

oops merci .. oui tout OK !!!!!!!!