Données verticale en horizontale en VBA

  • Initiateur de la discussion Initiateur de la discussion abc
  • Date de début Date de début

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 !

abc

XLDnaute Impliqué
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 +
 
Re : Données verticale en horizontale en VBA

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


Sinon, c'est que j'ai rien compris
A+
kjin
 
Re : Données verticale en horizontale en VBA

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 +
 
Re : Données verticale en horizontale en VBA

re,
Dans le cas ou la cellule C10 est non vide:

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


A+
kjin
 
- 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

Discussions similaires

Réponses
12
Affichages
874
Réponses
8
Affichages
431
Retour