copier-coller toutes les X lignes.

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Malkav
  • 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
M

Malkav

Guest
Salut à tous,

Je viens vous poser une petite question car je bloque un petit peu.

Mon but est récupérer les matricules, nom et prénom d'un fichier d'extraction, onglet "extract" et de les coller dans un autre onglet "tableau recap". (voir excel joint)

Je ne vois pas trop le moyen compte tenu de mes connaissances. il me faudrait juste la manip de copier coller, car je pense être capable de faire la boucle...

auriez vous une idée???

Merci beaucoup la communauté 🙂
 

Pièces jointes

Trier par date Trier par votes
Re : copier-coller toutes les X lignes.

Bonjour,

si ta demande est juste de copier les données de "extract" et de les coller à la suite de l'onglet tableau recap, alors je ferais cela :

Code: 
sheets("extract").activate
sheets("extract").range("a1").select
Selection.CurrentRegion.Select
Selection.Copy

sheets("tableau recap").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

En fait le but est juste de récupérer une seule fois le matricule, nom, et prénom et le copier dans "tableau recap".

J'ai 5 lignes TOTO dans l'onglet "extract" et je veux juste le coller une fois dans "taleau recap", et faire pareil pour chaque personne...

Et le code ne marche pas, j'ai un debug sur la ligne
"sheets("tableau recap").Range("A65536").End(xlUp).Offset(1, 0).Select"
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

yep

pour le bug, normal j'ai oublié une ligne il faut réactiver l'onglet où tu vas coller les données :
Code: 
Sheets("extract").Activate
Sheets("extract").Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets("tableau recap").Activate
Sheets("tableau recap").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

En fait ton code copie l’intégralité de la liste sur le premier onglet "extract",dans mon cas j'ai juste besoin des 3 premières colonnes et uniquement d'une ligne par "entité" (entité = matricule, nom, prénom).

copier les 3 premières colonne de la ligne 2 de "extract", la coller sur la ligne 2 de "tableau recap"
copier les 3 premières colonne de la ligne 7 de "extract", la coller sur la ligne 3 de "tableau recap"
copier les 3 premières colonne de la ligne 12 de "extract", la coller sur la ligne 4 de "tableau recap"

en sachant que le nombre de ligne a "sauter" est tjs le même.
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

Un poil plus long, mais bon, tant que la solution est là, soyons pragmatique !

Code: 
    ' Onglet tempo
Set NewFeuil = Worksheets.Add(Sheets(1))
NewFeuil.Name = "temp"

Sheets("extract").Activate
Sheets("extract").Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets("temp").Activate
Sheets("temp").Range("A65536").End(xlUp).Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

    ' Shooter les doublons
Sheets("temp").Activate
Sheets("temp").Range("a1").Select
Selection.CurrentRegion.Select
Selection.RemoveDuplicates Columns:=1, Header:=xlYes

    ' Coller les résultats
Sheets("temp").Activate
ActiveSheet.Rows("1:1").Select
Selection.Delete Shift:=xlUp

Sheets("temp").Activate
Sheets("temp").Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets("tableau recap").Activate
Sheets("tableau recap").Range("A65536").End(xlUp).Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

    ' Supprimer onglet temp
Application.DisplayAlerts = False
Worksheets("temp").Delete
Application.DisplayAlerts = True

Cela correspond-il mieux à ce que tu veux ?
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

don_pets à dit:
Un poil plus long, mais bon, tant que la solution est là, soyons pragmatique !

Code: 
    ' Onglet tempo
Set NewFeuil = Worksheets.Add(Sheets(1))
NewFeuil.Name = "temp"

Sheets("extract").Activate
Sheets("extract").Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets("temp").Activate
Sheets("temp").Range("A65536").End(xlUp).Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

    ' Shooter les doublons
Sheets("temp").Activate
Sheets("temp").Range("a1").Select
Selection.CurrentRegion.Select
Selection.RemoveDuplicates Columns:=1, Header:=xlYes

    ' Coller les résultats
Sheets("temp").Activate
ActiveSheet.Rows("1:1").Select
Selection.Delete Shift:=xlUp

Sheets("temp").Activate
Sheets("temp").Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets("tableau recap").Activate
Sheets("tableau recap").Range("A65536").End(xlUp).Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

    ' Supprimer onglet temp
Application.DisplayAlerts = False
Worksheets("temp").Delete
Application.DisplayAlerts = True

Cela correspond-il mieux à ce que tu veux ?
Cliquez pour agrandir...


Long mais efficace, je vais tester ca pour passer a la phase deux de mon casse tête 🙂
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

Re,

ou avec ceci pour effacer les données de la feuille recap avant de coller les données de la feuille 1

Code: 
Sub Macro1()
Application.ScreenUpdating = False
Sheets("tableau recap").Range("A2:C" & Range("A65535").End(xlUp).Row).ClearContents
    Range("A2:C" & Range("A65535").End(xlUp).Row).Copy
    Sheets("tableau recap").Select
    Range("A2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("$A$1:$C$" & Range("A65535").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
    [A1].Select
Application.ScreenUpdating = True
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : copier-coller toutes les X lignes.

phlaurent55 à dit:
Re,

ou avec ceci pour effacer les données de la feuille recap avant de coller les données de la feuille 1

Code: 
Sub Macro1()
Application.ScreenUpdating = False
Sheets("tableau recap").Range("A2:C" & Range("A65535").End(xlUp).Row).ClearContents
    Range("A2:C" & Range("A65535").End(xlUp).Row).Copy
    Sheets("tableau recap").Select
    Range("A2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("$A$1:$C$" & Range("A65535").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
    [A1].Select
Application.ScreenUpdating = True
End Sub

à+
Philippe
Cliquez pour agrandir...

Ah ouais quand même... j'ai vraiment hâte de m’améliorer... ce donne envie de coder comme ca...

Merci Philippe!
 
Vote positif 0 Vote négatif
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

treza88
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
TooFatBoy
MCenpls
  • Résolu(e)
Microsoft 365 Automatisation - Copier coller
Réponses
6
Affichages
877
MCenpls
MCenpls
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
P
  • Question Question
Microsoft 365 copier coller un onglet dans un autre fichier
Réponses
6
Affichages
756
pralo
P
M
  • Question Question
XL 2021 Copier coller les valeur d'une ligne si la case contiens "x"
Réponses
2
Affichages
657
manga419
M
Yuby
  • Question Question
XL 2013 VBA : Insertion ligne à la fin d'un tableau avec bouton
Réponses
3
Affichages
509
sylvanu
sylvanu
M
  • Résolu(e)
Microsoft 365 Copier/coller - Ajout/suppression lignes automatiques
Réponses
6
Affichages
996
M.Ben
M
A
  • Résolu(e)
XL 2010 VBA copier/coller cellules en fonction de 2 critères
Réponses
9
Affichages
1 K
arno1234
A
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
753
AtTheOne
AtTheOne
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
749
Staple1600
Staple1600
Cybertoto
  • Question Question
XL 2016 copier toutes les lignes entre janvier et fevrier
Réponses
4
Affichages
812
Cybertoto
Cybertoto
E
  • Question Question
Microsoft 365 Copier Coller X fois, selon la valeur d'une case
Réponses
4
Affichages
1 K
ExcelNewbie96
E
A
  • Question Question
Microsoft 365 Copie VBA d'un tableau présent et identique sur 12 onglets dans un autre onglet dont seules les lignes complétées sont copiées
Réponses
4
Affichages
792
AlexiaC
A
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
G
  • Question Question
Microsoft 365 Copier/Coller plage de cellule vers nouvel onglet
Réponses
3
Affichages
1 K
Jacky67
Jacky67
S
  • Question Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
2 K
StanislasC
S
N
  • Résolu(e)
XL 2016 Faire apparaitre des données uniques
Réponses
13
Affichages
1 K
Nath641
N
C
  • Question Question
Microsoft 365 Aide à la finalisation d'une formule VBA
Réponses
12
Affichages
910
xUpsilon
xUpsilon
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
S
  • Résolu(e)
Microsoft 365 VBA création ligne en fonction d'un nombre et occurrence copier coller
Réponses
6
Affichages
1 K
simsinaty
S
Retour