Copier/Coller les onglet VBA
Résolu/Fermé
zizou026
Messages postés
101
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
20 novembre 2024
-
5 août 2021 à 07:45
zizou026 Messages postés 101 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 20 novembre 2024 - 25 août 2021 à 18:48
zizou026 Messages postés 101 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 20 novembre 2024 - 25 août 2021 à 18:48
A voir également:
- Copier/Coller les onglet VBA
- Copier coller pdf - Guide
- Copier-coller - Accueil - Windows
- Historique copier-coller android - Guide
- Symbole clavier copier coller - Guide
- Rouvrir onglet fermé - Guide
4 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
5 août 2021 à 16:37
5 août 2021 à 16:37
Bonjour,
pour copier une plage de cellule:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.copy
pour trouver la dernière ligne:
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
et pour la couleur:
https://www.excel-pratique.com/fr/vba/couleurs
ce qui donne :
affecter cette macro à un raccourci clavier, car le bouton ce n'est pas judicieux car les données copiées vont se trouver sur cette feuille!
Voilà
pour copier une plage de cellule:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.copy
pour trouver la dernière ligne:
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
et pour la couleur:
https://www.excel-pratique.com/fr/vba/couleurs
ce qui donne :
Option Explicit
Sub test()
Dim DerniereLigneUtilisee As Long
Dim DerniereCellule_Adresse
DerniereCellule_Adresse = Worksheets("Feuil1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Worksheets("Feuil1").Range("A1:" & DerniereCellule_Adresse).Copy _
Destination:=Worksheets("Report").Range("A1")
DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range("A1:" & DerniereCellule_Adresse).Font.ColorIndex = 41 'bleu clair
DerniereLigneUtilisee = Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Row + 1
DerniereCellule_Adresse = Worksheets("Feuil2").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Worksheets("Feuil2").Range("A2:" & DerniereCellule_Adresse).Copy _
Destination:=Worksheets("Report").Range("A" & DerniereLigneUtilisee)
DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range("A" & DerniereLigneUtilisee & ":" & DerniereCellule_Adresse).Font.ColorIndex = 10 ' vert
DerniereLigneUtilisee = Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Row + 1
DerniereCellule_Adresse = Worksheets("Feuil3").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Worksheets("Feuil3").Range("A2:" & DerniereCellule_Adresse).Copy _
Destination:=Worksheets("Report").Range("A" & DerniereLigneUtilisee)
DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range("A" & DerniereLigneUtilisee & ":" & DerniereCellule_Adresse).Font.ColorIndex = 40 ' marron clair
End Sub
'https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.copy
'https://www.excel-pratique.com/fr/vba/couleurs
'https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
affecter cette macro à un raccourci clavier, car le bouton ce n'est pas judicieux car les données copiées vont se trouver sur cette feuille!
Voilà
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
166
5 août 2021 à 10:13
5 août 2021 à 10:13
Bonjour,
avez-vous essayé de passer par l'enregistreur de macro ? Et ensuite rattacher celle-ci à votre bouton...
avez-vous essayé de passer par l'enregistreur de macro ? Et ensuite rattacher celle-ci à votre bouton...
zizou026
Messages postés
101
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
20 novembre 2024
1
5 août 2021 à 10:41
5 août 2021 à 10:41
Bonjour,
Merci pour votre réponse, je n'ai pas fait de macro car je ne sais pas comment définir le X (les dernières lignes sont variables).
Cordialement,
Azis
Merci pour votre réponse, je n'ai pas fait de macro car je ne sais pas comment définir le X (les dernières lignes sont variables).
Cordialement,
Azis
zizou026
Messages postés
101
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
20 novembre 2024
1
5 août 2021 à 17:06
5 août 2021 à 17:06
Bonjour cs_Le Pivert,
Du sûr mesure, excellent. Un grand merci à toi et ce forum d'être là...
@+++
Zizou
Du sûr mesure, excellent. Un grand merci à toi et ce forum d'être là...
@+++
Zizou
13 août 2021 à 17:54
Sans abuser de ta gentillesse, je souhaite une information que je ne comprends pas.
Ta formule fonctionne parfaitement BIEN. Lorsque je l'ai adapté à mon tableau sur deux onglets l'un est correctement copier (avec toutes les informations) par contre l'autre ne prend que les deux premiers colonne.
Je ne comprends pas le problème (les deux onglets sont extraites à partir d'un macro, penses-tu qu'il y a incidence?
Par avance, je te remercie de ton aide.
Cordialement,
Azis
13 août 2021 à 18:35
Je t'ai mis le code avec les commentaires pour l'adapter;
Option Explicit Sub test() 'Ctrl w 'déclaration variable Dim DerniereLigneUtilisee As Long Dim DerniereCellule_Adresse As Variant 'copie feuil1 --> Report DerniereCellule_Adresse = Worksheets("Feuil1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Worksheets("Feuil1").Range("A1:" & DerniereCellule_Adresse).Copy _ Destination:=Worksheets("Report").Range("A1") 'couleur DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Range("A2:" & DerniereCellule_Adresse).Font.ColorIndex = 5 'bleu 'copie feuil2 --> Report DerniereLigneUtilisee = Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Row + 1 DerniereCellule_Adresse = Worksheets("Feuil2").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Worksheets("Feuil2").Range("A2:" & DerniereCellule_Adresse).Copy _ Destination:=Worksheets("Report").Range("A" & DerniereLigneUtilisee) 'couleur DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Range("A" & DerniereLigneUtilisee & ":" & DerniereCellule_Adresse).Font.ColorIndex = 4 'vert 'copie feuil3 --> Report DerniereLigneUtilisee = Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Row + 1 DerniereCellule_Adresse = Worksheets("Feuil3").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Worksheets("Feuil3").Range("A2:" & DerniereCellule_Adresse).Copy _ Destination:=Worksheets("Report").Range("A" & DerniereLigneUtilisee) 'couleur DerniereCellule_Adresse = Worksheets("Report").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address(RowAbsolute:=False, ColumnAbsolute:=False) Range("A" & DerniereLigneUtilisee & ":" & DerniereCellule_Adresse).Font.ColorIndex = 26 'Fuchsia End Sub 'Voilà
@+ Le Pivert
14 août 2021 à 06:21
Il ne veut pas et reprend toujours 2 colonnes. Au lieu qu'il cherche la dernière cellule automatiquement, peut-on définir de copier de A à L?
Bien à toi,
Zizou
14 août 2021 à 07:57
OUI en consultant le lien donné post3:
pour copier une plage de cellule:
à+
15 août 2021 à 20:26
J'ai repris la formule du post3, ça reprends les données de A à L mais seulement 3 lignes de A1 à A3.
Par contre, j'ai gardé ta formule pour l'onglet Feuil2 et Feuil3 qui fonctionnent impeccablement.
Merci pour ta patience et ton aide, je te souhaite une excellente soirée.
Cordialement,
Zizou