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

Copier-colle sur plage variable + sans la 1ère ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion franck70
  • 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

franck70

XLDnaute Junior
Bonjour à tous,

J'ai un programme qui va chercher les données dans 2 onglets et les colles dans un autre onglet. Comme le nombre de ligne est variable, j'ai ajouté qu'il devait prendre les lignes de la 2ème ligne jusqu'à la dernière ligne remplie.

Mon petit problème, c'est que quand il n'y a pas de données, la dernière ligne remplie étant la ligne d'entête, il me la prend dans le copier-coller...

Par exemple dans le fichier joint, quand je lance la macro, il me colle le libellé de l'onglet feuil 3 dans l'onglet feuil1 alors qu'il faudrait ne rien copier.

Merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Copier-colle sur plage variable + sans la 1ère ligne

Bonjour

il y a d'autres moyens de procéder mais pour votre code voilà la solution

Code: 
Sub Macro1()
'
' Macro1 Macro
    Sheets("Feuil2").Select
    derlig03 = [B65000].End(xlUp).Row
    If derlig03 < 2 Then derlig03 = 2
    Range("A2:D" & derlig03).Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Feuil3").Select
    derlig04 = [B65000].End(xlUp).Row
    If derlig04 < 2 Then derlig04 = 2
    Range("A2:D" & derlig04).Select
    Selection.Copy
    Sheets("Feuil1").Select
    derlig05 = [B65000].End(xlUp).Row
    Range("A" & derlig05 + 1).Select
    ActiveSheet.Paste
End Sub

ou

Code: 
Sub Macro1()
'
' Macro1 Macro
    derlig03 = Sheets("Feuil2").[B65000].End(xlUp).Row
    If derlig03 < 2 Then derlig03 = 2
    Sheets("Feuil2").Range("A2:D" & derlig03).Copy Sheets("Feuil1").Range("A2")
    derlig04 = Sheets("Feuil3").[B65000].End(xlUp).Row
    If derlig04 < 2 Then derlig04 = 2
    derlig05 = Sheets("Feuil1").[B65000].End(xlUp).Row
    Sheets("Feuil3").Range("A2:D" & derlig04).Copy Sheets("Feuil1").Range("A" & derlig05 + 1)
    Sheets("Feuil1").Select
End Sub

😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier-colle sur plage variable + sans la 1ère ligne

Bonsoir franck70, gilbert_RGI, le forum,
Une autre solution (cliquez sur le bouton « Mise à jour des données » de la feuille « Recap ».
Ce code peut gérer plusieurs feuilles, , à condition que la feuille « Recap » se situe en dernière position.
Cordialement,
Bernard
 

Pièces jointes

Dernière édition:
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

  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
137
eastwick
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
304
AtTheOne
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
190
StéphaneDeLà
S
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
159
eric72
E
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
281
safranien
S
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
704
Eric 888
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
446
AtTheOne
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
412
Laurent78
L
M
  • Question Question
XL 2021 Copier coller les valeur d'une ligne si la case contiens "x"
Réponses
2
Affichages
605
manga419
M
F
  • Question Question
XL 2019 Export vers GoogleSheet
Réponses
3
Affichages
506
job75
B
  • Résolu(e)
XL 2019 Progress Bar et Autofill - embellissement MAcro
Réponses
2
Affichages
346
benoit.guinebretiere@free
B
C
  • Question Question
Microsoft 365 copier coller en changeant la disposition et plage de donnees variable
Réponses
5
Affichages
727
cg1980
C
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
790
salma_hayek
S
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
416
Eric 888
  • Résolu(e)
Microsoft 365 Copier les valeurs d'un formulaire dans la première ligne vide du tableau
Réponses
3
Affichages
456
job75
X
  • Question Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
813
xsara63
X
D
  • Question Question
XL 2021 Copier coller des colonnes suivant le nom de la colonne et non pas le N° de colonne idem ligne
Réponses
8
Affichages
863
desmonts
D
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
278
Lu76Fer
Q
  • Question Question
XL 2019 copier une ligne en fonction de la valeur d'une cellule
Réponses
10
Affichages
965
quetzal974
Q
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…