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

copier dans premiere ligne vide

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
O

oliv67

XLDnaute Occasionnel
bonjour le forum

je souhaite copier les donnees de la feuille 1
dans la feuille2, mais seulement à partir de la premiere ligne vide de la colonne A

comment faire.

olivier
 

Pièces jointes

Trier par date Trier par votes
Re : copier dans premiere ligne vide

Bonjour oliv67,

Test ceci:

Code: 
Sub Copie()

With Sheets("Feuil1")
 .Range("A1:L" & .Range("A65536").End(xlUp).Row).Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End With

End Sub

Cette ligne de code te permet de trouver la première ligne vide de la colonne A de la feuille 2
Code: 
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)


A+
 
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonjour,
j'ai à peu près la même problèmatique sauf que je veux copier que les données (collage spécial)
Je voudrais ajouter la date de la copier à côté de la sélection collée, comme je débute et que suis qu'a premières pages de VBA pour les nuls 🙂...compliqué

Merci pour aide
Phil
 
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonsoir Phil,

Sur la base du fichier d'Olivier regarde si cela te convient :

Code: 
Sub Copie()
Application.ScreenUpdating = False
    With Sheets("Feuil1")
       .Range("A1:L" & .Range("A65536").End(xlUp).Row).Copy
         With Sheets("Feuil2")
            .Range("A65536").End(xlUp).Offset(1, 12) = Format(Date, "dd-mmm-yyyy") & " à " & Time
            .Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlValues
          End With
       Application.CutCopyMode = False
    End With
Application.ScreenUpdating = True
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonjour,
est-il possible de copier les valeurs de cellules d'une feuille synthese par exemple B3 H5 G17 F19..ces valeurs devraient être copiées sur une ligne dans une feuille historique (la premiere vide) afin de constituer un tableau de suivi (valeur de B3 H5 G17 F19 de synthese copiées dans A2 B2 C2 D2 puis ligne d'après).
Encore mieux est-il possible de lancer cette manipulation automatiquement à la fermeture d''excel par exemple
Merci pour votre aide je ne suis qu'au début de VBA pour les nuls..
Bonnes fêtes de fin d'année à tous!
 
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonjour Phil,

Voici une façon de faire à adapter (nom des feuilles, cellules copiées)

Dans un module de code standard:
Code: 
Sub Transfert()

Dim Tablo(3), Derlign As Long

Tablo(0) = Sheets("synthese").Range("B5").Value
Tablo(1) = Sheets("synthese").Range("H5").Value
Tablo(2) = Sheets("synthese").Range("G17").Value
Tablo(3) = Sheets("synthese").Range("F19").Value

Derlign = Sheets("Récap").Range("A65536").End(xlUp).Row
Sheets("Récap").Range("A" & Derlign + 1 & ":D" & Derlign + 1) = Tablo

End Sub

Dans le module du ThisWorkbook:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Transfert
ThisWorkbook.Save
End Sub

Le contenu des cellules sera copier à chaque fermeture du fichier, les modifications seront automatiquement enregistrées.

Bonne Année à tous
 
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonsoir,
et merci beaucoup! pour l'histoire vous contribuez à préserver notre planête car auparavant je devais imprimer pour garder une synthèse!
Bonne année!
Philippe
 
Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bonjour j'aimerais faire la meme chose copier coller une ligne dans la premiere LIGNE vide, et ceux dans la COLONNE A. Parce qu'avec ma base de donnee, la colonne A n'est pas forcemment completee, alors que la ligne comprends des infos.

Je joints a ma demande un fichier pour que vous puissiez comprendre. Je voudrais selectionner une ligne, resultat de ma macro filtre, puis qu'en lancant une autre macro, celle-ci copie-colle sur la premiere ligne vide la ligne selectionnee en OGx dans la feuille Goods out.

Au plaisir de vous lire
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copier dans premiere ligne vide

Bon apres de multiples recherches sur ce forum et d'autres j'ai finalement reussi a faire ce que je voulais. Pour ce que ca interesse, je mets donc ici le code.

Code: 
Sub xXx()
Selection.Copy
    Sheets("Goods out").Select
    Sheets("Goods out").Range("D65536").End(xlUp).Offset(1, 0).Select 'Selectionne la ligne vide dans la colonne D
    ActiveSheet.Rows(ActiveCell.Row).EntireRow.Select 'Selectionne la ligne dont la derniere cellule est vide en partant du bas
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False 'Permet d'arreter la fonction copy
    
End Sub

En esperant que cela puisse vous aider 🙂

Payou
 
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

K
  • Question Question
Microsoft 365 tableau avec fonctionnement en double logique
Réponses
7
Affichages
259
KRISS2A
K
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
505
akm
A
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
305
juju91
J
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
624
lcouaci
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
510
AtTheOne
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
301
MATLEA
M
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
528
Nico77
N
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
782
safranien
S
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
474
Phil69970
E
  • Résolu(e)
Microsoft 365 problème
2
Réponses
19
Affichages
667
ebe
E
T
  • Résolu(e)
XL 2019 calcul Delta Date ( et A ou( B C D E ))
Réponses
4
Affichages
168
TooFatBoy
J
  • Question Question
XL 2019 Problème d'affichage sur cellule non-vide pour Excel
Réponses
6
Affichages
285
JFC256
J
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
302
agnesd
A
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
574
Bambi35
B
  • Question Question
XL 2019 texte vide et bordure bouton masquer vba
5 6 7
Réponses
103
Affichages
4 K
vgendron
S
  • Résolu(e)
Autres Categoriser par rapport à la date de naissance, année et categorie
Réponses
8
Affichages
250
Skippy
S
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
357
nabilexcel2007
N
  • Question Question
XL 2019 Copier une cellule d'une ligne toutes les 5 lignes
Réponses
8
Affichages
389
sylvanu
  • Question Question
XL 2019 nombres de jours entre deux articles identiques commandés
Réponses
3
Affichages
177
Hecatonchire
H
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
461
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…