Microsoft 365 Copier coller en incrémentant

[Thomaszw]

Bonjour,

Je désire réaliser une macro qui copie/colle des cellules d'une feuille à une autre.
Le texte présent dans les cellules cellules que je désire copier y est placé à l'aide de formule.
Donc première étape, je dois réaliser un copier/coller des valeurs.
Seconde étape, je dois transposer les cellules qui sont verticales à la base en horizontale.

Jusque là rien de compliqué on est d'accord, en enregistrant une macro ca fonctionne tout seul.

Mon souci vient du fait que les cellules que je copie, je désire que sur la nouvelle feuille, la ligne sur laquelle sont copiées mes cellules s'incrémente de 1 à chaque nouvelle action de ma macro afin de conserver les anciennes valeurs.

J'ai trouvé sur votre forum des infos pour le faire avec le code suivant : ligVide = Sheets("Feuilles1").Range("A" & Rows.Count).End(xlUp).Row + 1

Mais vu que je réalise des copier/coller spéciaux, je n'ai pas réussi à l'intégrer à ma macro.

Je serais preneur de toute aide que vous pourriez m'apporter.

J'ai joint un fichier test qui montre ce que j'ai déjà pu faire.

Merci.
Bonne journée

 

[sylvanu]

Bonjour Thomas,
Une idée en PJ :

Remplacer :
     Range("A2").Select
par :
    Taille = Sheets("Feuille commande").Cells(Rows.Count, 1).End(xlUp).Row
    Range("A" & Taille + 1).Select

 

[Thomaszw]

Un grand merci
Ca fonctionne nickel.

 

[mapomme]

Bonjour @Thomaszw, @sylvanu ,

Cette macro devrait le faire aussi (sans intermédiaire):

Sub Ajout()
With Sheets("Feuille commande").Cells(Rows.Count, "a").End(xlUp).Offset(1)
   .Resize(, 8).Value = Application.Transpose(Sheets("Je cherche via le nom").Range("c2:c9").Value)
End With
End Sub