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

Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Créer une discussion

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
Trier par date Trier par votes
Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod, bonjour le forum,

Peut-être comme ça :
Code: 
Sub Macro1()
Sheets("Feuil1").Columns(1).Copy Sheets("Feuil2").Range("D1")
Sheets("Feuil1").Columns(3).Copy Sheets("Feuil2").Range("E1")
Sheets("Feuil3").Columns(2).Copy Sheets("Feuil4").Range("G1")
Sheets("Feuil3").Columns(6).Copy Sheets("Feuil4").Range("H1")
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod
post prod à dit:
j'avais juste oublier de dire que la copie origine et destination commence en ligne 7
Cliquez pour agrandir...
Ha oui c'est couillon ! Essaie comme ça alors :
Code: 
Sub Macro1()
With Sheets("Feuil1")
    .Range("A7:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
    .Range("C7:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
    .Range("B7:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
    .Range("F7:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod, bonjour de forum,

Ce sont les numéro de colonne 1 = A, 2 = B, 3 = C, etc... J'aurais pu écrire :
Code: 
Sub Macro1()
With Sheets("Feuil1")
    .Range("A7:A" & .Cells(Application.Rows.Count, "A").End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
    .Range("C7:C" & .Cells(Application.Rows.Count, "C").End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
    .Range("B7:B" & .Cells(Application.Rows.Count, "B").End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
    .Range("F7:F" & .Cells(Application.Rows.Count, "F").End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub
 
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

  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
338
CHRIS1945
C
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
307
berru76
B
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
255
vgendron
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
213
finarobert
F
N
  • Question Question
Microsoft 365 Barème kilométrique
Réponses
3
Affichages
209
goube
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
271
AD74
A
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
503
caseras
C
D
  • Question Question
XL 2013 Copie de fichier excel VBA
Réponses
2
Affichages
145
Valtrase
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
297
job75
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
979
job75
F
Procédure de mise à jour et copie de plages de données
Réponses
5
Affichages
166
Cléa
L
  • Résolu(e)
Microsoft 365 Vba formulaire en bogage avec les ongles masqués
2 3
Réponses
30
Affichages
680
fanfan38
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
512
sousou
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
294
Kristelle1555
K
  • Question Question
XL 2016 Cumul des heures par numéro de semaine.
Réponses
4
Affichages
198
halecs93
S
  • Résolu(e)
XL 2021 Export et transformation de plusieurs fichiers de données automatique
Réponses
5
Affichages
544
sandydavneo
S
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
862
Max
M
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
285
Colette29
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…