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

Microsoft 365 Copie de données d'une feuille vers une autre et retour à la ligne

P

Pat13127

XLDnaute Nouveau
Bonjour la communauté !
Je recherche une moyen de copier des données d'une feuille vers une autre.

J'ai une première feuille nommée POINT_CA et je souhaite recopier des données vers la Feuille SYNTHESE_CA

Voilà mon code de départ :

VB: 
Sub Copie_CA()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TB(1 To 16) As Variant 'déclare la variable TB (TaBleau)
Set OS = Worksheets("POINT_CA") 'définit l'onglet source OS
Set OC = Worksheets("SYNTHESE_CA") 'définit l'onglet cible OC
LI = OC.Range("A" & Rows.Count).End(xlUp).Row + 1 'définit la première ligne vide LI de la colonne A de l'onglet cible OC
TB(1) = OS.Range("D6").Value 'définit TB(1)
TB(2) = OS.Range("A16").Value 'définit TB(2)
TB(3) = OS.Range("B16").Value 'définit TB(3)
TB(4) = OS.Range("C16").Value 'définit TB(4)
TB(5) = OS.Range("D16").Value 'définit TB(5)
TB(6) = OS.Range("E16").Value 'définit TB(6)
TB(7) = OS.Range("F16").Value 'définit TB(7)
TB(8) = OS.Range("G16").Value 'définit TB(8)

OC.Cells(LI, "A").Resize(1, 8) = TB 'renvoie le tableau TB dans la cellule redimensionnée ligne LI colonne A
MsgBox "LE CONTENU A ETE SAUVEGARDE !"

End Sub

Cela me copie bien les données de A16 à G16 ( D6 est la date ).

Je n'arrive pas à aller à la ligne pour recopier en dessous de cela pour copier :
A17,B17,C17,D17,E17,F17 et G17

....et ainsi de suite jusqu'à A21:G21

Tout marche bien , mais en définitive je n'arrive pas à "aller à la ligne" entre chaque série de données...
J'aurais aimé joindre mon fichier mais il contient trop de données que j'aurais à masquer.
Merci pour toute votre aide !
;-)
 
Trier par date Trier par votes

chagatte

XLDnaute Nouveau
Bonjour,

Essaye simplement en faisant une boucle sur tes lignes puis en réinitialisant le variant TB à chaque boucle.

VB: 
Sub Copie_CA()

    Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
    Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
    Dim LI As Long 'déclare la variable LI (LIgne)
    Dim TB(1 To 16) As Variant 'déclare la variable TB (TaBleau)
    Set OS = Worksheets("POINT_CA") 'définit l'onglet source OS
    Set OC = Worksheets("SYNTHESE_CA") 'définit l'onglet cible OC
    
    For i = 16 To 21
    
        LI = OC.Range("A" & Rows.Count).End(xlUp).Row + 1 'définit la première ligne vide LI de la colonne A de l'onglet cible OC
        TB(1) = OS.Range("D6").Value 'définit TB(1)
        TB(2) = OS.Range("A" & i).Value 'définit TB(2)
        TB(3) = OS.Range("B" & i).Value 'définit TB(3)
        TB(4) = OS.Range("C" & i).Value 'définit TB(4)
        TB(5) = OS.Range("D" & i).Value 'définit TB(5)
        TB(6) = OS.Range("E" & i).Value 'définit TB(6)
        TB(7) = OS.Range("F" & i).Value 'définit TB(7)
        TB(8) = OS.Range("G" & i).Value 'définit TB(8)
        
        OC.Cells(LI, "A").Resize(1, 8) = TB 'renvoie le tableau TB dans la cellule redimensionnée ligne LI colonne A
        Erase TB
        
    Next i
    
    MsgBox "LE CONTENU A ETE SAUVEGARDE !"

End Sub
 
Vote positif 0 Vote négatif
P

Pat13127

XLDnaute Nouveau
Pat13127 à dit:
Je viens de tester et UN ENORME MERCI !!!!!!
Parfaitement ce dont j'avais besoin !!!!
Cliquez pour agrandir...
Bonjour à tous !
Je fais remonter mon sujet, car pour être tout à fait parfaite ma formule pourrait-elle conserver la mise en forme conditionnelle des cellules d'origine ? N'utilisant pas la fonction Paste:=xlPasteValues, je ne sais pas comment m'y prendre.... Merci encore par avance,
;-)
 
Vote positif 0 Vote négatif

chagatte

XLDnaute Nouveau
Dans ce cas-là utilise plutôt un copier / coller sans passer par une variable tableau, comme ceci. Attention ce code copie le format + bordures + valeurs.

VB: 
Sub Copie_CA()

    Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
    Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
    Dim LI As Long 'déclare la variable LI (LIgne)

    Set OS = Worksheets("POINT_CA") 'définit l'onglet source OS
    Set OC = Worksheets("SYNTHESE_CA") 'définit l'onglet cible OC
    

        LI = OC.Range("A" & Rows.Count).End(xlUp).Row + 1 'définit la première ligne vide LI de la colonne A de l'onglet cible OC
        OC.Range("A" & LI & ":" & "A" & LI + 5).Value = OS.Range("D6").Value
        OC.Range("B" & LI & ":" & "H" & LI + 5).Value = OS.Range("A16:G21").Value
        OS.Range("A16:G21").Copy
        OC.Range("B" & LI & ":" & "H" & LI + 5).PasteSpecial Paste:=xlPasteFormats
        OS.Range("D6").Copy
        OC.Range("A" & LI & ":" & "A" & LI + 5).PasteSpecial Paste:=xlPasteFormats
    
    MsgBox "LE CONTENU A ETE SAUVEGARDE !"

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
623
TooFatBoy
U
  • Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
639
un internaute
U
A
  • Résolu(e)
Microsoft 365 Formule de copie a la suite VBA
Réponses
8
Affichages
344
Alexis84430
A
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
596
laurent950
R
  • Question
Microsoft 365 Copier des données d'un fichier à un autre en vérifiant si elles existent déjà
Réponses
1
Affichages
609
yal
Y
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
158
sebastien176
S
  • Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
572
Dranreb
R
  • Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
439
Aya_flo
A
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
262
mromain
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
421
steph_29120
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…