Copier en vba colonne
Jockx
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
J'ai besoin d'aide pour faire un macro: j'e dois copier une colonne en valeur d'une feuille sur une autre feuille. Puis losque cette colonne a changé recommencer mais copier cette colonne à la suite de l'autre.
J'ai besoin d'aide pour faire un macro: j'e dois copier une colonne en valeur d'une feuille sur une autre feuille. Puis losque cette colonne a changé recommencer mais copier cette colonne à la suite de l'autre.
A voir également:
- Copier en vba colonne
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
11 réponses
Bonjour
ceci devrait convenir
Cordialement
ceci devrait convenir
Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
Sheets("feuil1").Range("A1:A" & DerniereLigne).Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)
Cordialement
Bonjour à tous
pour Julia: Jockx semble vouloir empiler les colonnes et non ajouter en dessous de la 1° colonne
proposition de code
Michel
pour Julia: Jockx semble vouloir empiler les colonnes et non ajouter en dessous de la 1° colonne
proposition de code
Option Explicit
'------------------------------------------------
Sub Empiler_colonnes()
Dim Derlig As Integer, Tampon As Range, Colvid As Integer
With Sheets(1)
Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
Set Tampon = .Range("A1:A" & Derlig)
End With
With Sheets(2)
If .Range("A1") <> "" Then
Colvid = .Rows(1).Find(what:="", after:=.Cells(1, "XFD")).Column
Else
Colvid = 1
End If
Tampon.Copy .Cells(1, Colvid)
.Activate
End With
End Sub
Michel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Etonnant.
Faut
-cliquer sur le lien
- acceder au fichier
-ouvrir ou enregistrer .
https://www.cjoint.com/c/GBivlk0dXIA
Faut
-cliquer sur le lien
- acceder au fichier
-ouvrir ou enregistrer .
https://www.cjoint.com/c/GBivlk0dXIA
Merci beaucoup pour vos réponses mais je n'arrive toujours pas à ouvrir vos fichiers. Un message d'erreur s'ouvre me disant " Impossible d'ouvrir le fichier "..." car son format ou son extension n'est pas valide. Vérifier que le fichier n'est pas endommagé et que son extension correspond bien au format du fichier."
Pouvez vous m'envoyer le code vba?
Pouvez vous m'envoyer le code vba?
bonjour
c'est le B.... avec ci-joint qui refuse les classeurs avec des macros
pour envoyer des classeurs avec ou sans macro
essaie avec
https://mon-partage.fr/
Michel
c'est le B.... avec ci-joint qui refuse les classeurs avec des macros
pour envoyer des classeurs avec ou sans macro
essaie avec
https://mon-partage.fr/
Michel
Bonjour
Voilà le code
cordialement
Voilà le code
Sub Empiler_colonnes()
Dim Derlig As Integer, Tampon As Range, Colvid As Integer
With Sheets("COMMANDE")
Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
Set Tampon = .Range("A1:A" & Derlig)
End With
With Sheets("JANVIER 2017")
.Range("A1:A100").ClearContents
If .Range("A1") <> "" Then
Colvid = .Rows(1).Find(what:="", after:=.Cells(1, "XFD")).Column
Else
Colvid = 1
End If
Tampon.Copy
.Cells(1, Colvid).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Activate
End With
End Sub
cordialement
