Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour un "copier et coller transposé"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fd.30
  • 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 !

S'inscrire
F

fd.30

XLDnaute Junior
Bonjour à tous,

Je viens de créer un bouton pour copier une zone "G3:G225" dans feuil1

" Range("G3:G225").Copy "


Je voudrais maintenant créer un bouton "coller avec transposition" dans feuil2
pour coller les valeurs " G3:G225 " de feuil1 en " B5:HP5 " feuil2.


car je n'arrive pas à faire ceci :
-----------------------------

En fait, dans feuil1 j'ai une zone "G3:G225". Ce sont des valeurs qui changent tous les jours.

L'idéal pour moi, serait d'avoir un bouton qui me fasse un copier de
" G3:G225 " dans feuil1 et un coller transposé dans feuil2 sur "B5:HP5"; et qui changent de lignes à chaque coller (incrémentation des lignes), afin d'archiver quotidiennement les valeurs.

exemple : destination du coller
-----------------------------
sur : B5:HP5
puis B6:HP6
puis B7:HP7 etc...


Merci pour réponses, çà doit pas être évident
 
Trier par date Trier par votes
Re : Macro pour un "copier et coller transposé"

Salut FD30

Une fois que tu as fait ton copier,

tu place ton pointeur la ou tu veux coller :

ex
worksheet("feuill2").select
range("A2").select
ActiveSheet.Paste

vu que tes copies sont des lignes :

range("B5").offset(i,0).select

où i est une variable d'indexation à incrémenté à chaque copie afin de sauté une ligne ou sinon :

range("B65535").end(xlup).offset(1,0).select

cela te selectionne la premiére cellule vide en partant de la fin de la feuille.

A+ et bon courage.
 
Vote positif 0 Vote négatif
Re : Macro pour un "copier et coller transposé"

Bonjour fd.30, WILFRIED, pierrejean

Un autre exemple,

Code: 
Sub Copie()

Application.ScreenUpdating = False
Sheets("Feuil1").Range("G3:G225").Copy

With Sheets("Feuil2")
   If .Range("B5") = "" Then
      .Range("B5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
   Else
      .Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=True
   End If
      .Range("B" & .Range("B65536").End(xlUp).Row + 1).Activate
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
283
AtTheOne
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
998
Pac41240
P
Y
  • Question Question
XL 2019 copier/coller colonne vers ligne
Réponses
4
Affichages
501
sylvanu
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
2
Réponses
15
Affichages
1 K
lafleur
L
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
109
aurejotrail
A
P
  • Résolu(e)
Microsoft 365 Macro VBA pour Copier coller une valeur sur plusieurs feuilles
Réponses
9
Affichages
540
pat66
P
M
  • Question Question
XL 2021 Créer une macro pour faire un tirage aléatoire d'un tournoi
Réponses
2
Affichages
797
marco22
M
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
D
  • Résolu(e)
Microsoft 365 Création d'une macro VBA - copier coller dans un nouveau tableau
Réponses
8
Affichages
860
job75
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
J
  • Question Question
XL 2019 copier coller par macro
Réponses
5
Affichages
853
Phil69970
S
  • Résolu(e)
XL 2019 Couper coller une ligne d'une feuille1 vers feuille2 grâce à un bouton ou case à cocher
Réponses
6
Affichages
922
sylvanu
A
  • Question Question
XL 2019 Copier une plage dans un fichier fermé en VBA
2
Réponses
21
Affichages
2 K
Amilo
A
Q
  • Question Question
Google Sheets Script permettant de copier d'un doc google sheet A et un script permettant de coller sur un doc google sheet B
Réponses
0
Affichages
881
Quent17
Q
D
  • Résolu(e)
XL 2019 VBA - Copier Coller d'un fichier A vers fichier B
Réponses
2
Affichages
714
drizzydunck
D
  • Question Question
XL 2019 copier et coller avec boucle
Réponses
14
Affichages
817
br44
M
  • Question Question
XL 2016 extraire les données dans tableau excel et les copier dans un autre
Réponses
3
Affichages
693
melltel
M
J
  • Question Question
Autres Macro pour copier coller les cellules (Validation) et Dates de mon tableau
Réponses
9
Affichages
783
Jacky 17
J
N
  • Question Question
XL 2019 VBA copier coller sous condition
Réponses
6
Affichages
2 K
Navillus
N
S
  • Question Question
XL 2016 Copier Coller selon cellules de référence
Réponses
6
Affichages
2 K
Stéfane
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…