Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonsoir,
comment copier les données de la feuille1 en verticale sur la feuille 2 en horizontale plus une.
Code que j'ai actuellement mais ...
Sheets("Feuil1").Range("A1:A10").Copy Sheets("Feuil2").Range("C10")
Merci d'avance
A +
Bonsoir,
Si j'ai compris (à l'exception de "....en horizontal plus une")
Sub macro1()
Sheets("Feuil1").Range("A1:A10").Copy
Sheets("Feuil2").Range("C10").PasteSpecial Paste:=xlAll, Transpose:=True
Application.CutCopyMode = False
End Sub
Bonsoir,
merci c'est cela que je recherchais.
Pour le plus une ,les données doivent s'ajoutées dans la feuill 2 a la suite les unes des autres.
Je vais combiner avec
Selection.End(xlUp).Select
A +
Sub macro1()
Sheets("Feuil1").Range("A1:A10").Copy
Sheets("Feuil2").Range("C65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlAll, Transpose:=True
Application.CutCopyMode = False
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD