Problème de macro copier/coller

Bonjour à tous,

Voici mon problème:

J'ai crée une Macro qui copie des celleules de la feuille1, pour les coller dans un tableau dans la feuille2.

Je souhaite éffectuer cette opération plusieurs fois, mais en incrémentant mon collage d'une ligne à chaque fois.

Quelqu'un a-t-il une idée de comment je pourrais écrire cela dans mon code?

Merci d'avance

Bonjour kariboo,

est-ce qu'on pourrait avoir un bout de ta macro ?

Voici le code:

https://www.excel-pratique.com/~files/doc/code.txt

Merci

Bonjour,

pour incrire a la ligne suivante.

Application.GoTo REFERENCE:="R300C1"

Selection.End(xlUp).Select

A +

Bonsoir,

essaye ceci :

With Sheets("tableau")
    .Cells(4, 2) = Sheets("Feuille de calcul").Range("A4")
    .Cells(4, 3) = Sheets("Feuille de calcul").Range("D7")
    .Cells(4, 4) = Sheets("Feuille de calcul").Range("D8")
    .Cells(4, 5) = Sheets("Feuille de calcul").Range("D19")
    .Cells(4, 6) = Sheets("Feuille de calcul").Range("D20")
End With

Amicalement

Dan

Merci pour vos précieuses info, pour le moment ça ne marche pas, mais j'ai optimisé le code et fait plusieurs essais avec differentes instructions (if, for...), avec une incrémentation de la valeur de 'n' (voir code)

Cela dit, c'est toujours pas ça.

Voici mon nouveau code, comment faire pour effectuer cette opération plusieurs fois, mais en inscrivant les valeurs une ligne en dessous à chaques fois?

https://www.excel-pratique.com/~files/doc/g20rJcode.txt

Merci pour votre aide

Amicalement

Bonjour,

un exemple en feuille1,regarde le code VBA.

J'ai appliqué la formule que je t'ai proposé .

https://www.excel-pratique.com/~files/doc/Bouton_option.xls

A +

Bonjour,

Supprime n = 4 et mets ceci après WITH SHEETS("TABLEAU") --> n = .Range("B65536").End(xlUp).Row + 1

A te relire

Dan

Ahhhhh, merci beaucoup.....

9a fonctionne formidablement bien, je vais pouvoir profiter du week end, sans penser à ce programme qui me taraude l'ésprit...

Merci a toi et passe un excellent week end

Peace

Je viens de recevoir ton mail Dan, ça marche aussi, le code est même encore plus simple...

Merci a toi, merci à vous de m'avoir aidé, j'éspère pouvoir en faire autant un jour.

Bon week end à vous

Amicalement

KaRiBoO