Microsoft 365 Copier/coller un plusieurs lignes

A-F

XLDnaute Nouveau
Bonjour tout le monde,
Je reviens vers vous avec une autre question.
Je souhaits copier certains colonnes dans une fichier (Table) dans une autre fichier Excel (base_PDHH).
Je demande de copier le ligne si le la valeur de cellule de colonne C = 85.
Sauf qu'il copie et colle autant de fois qu'il trouve 85 tous les lignes.
Mais je veux qu'il copie une fois certains colonne de la ligne où il a trouvé le 85.
Je ne vois pas le problème.

Merci d'avance pour votre aide ^^


VB:
Sub EPCI()

    Dim C As Range
    Dim nb As Integer, i As Integer, NextRow As Integer
    Dim FinalRow As Long, FinalRow1 As Long
    Dim Classeur As Workbook
    Dim LaFeuille As Worksheet
    Dim FichierEx As String
    Dim Chemin As String
   
   
    'On désactive le presse-papier et le raffraichissement de l'écran
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
' ***** Copier les donner des communes dans le fichier "Base_PDHH":
       
          'Activer le fichier Table.xlsx
    Chemin = "Y:\PDHH\INDICATEURS GIE\INSEE_RP\Table.xlsx"
    Set Classeur = Application.Workbooks.Open(Chemin)
    Workbooks("Table.xlsx").Activate
   
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
             
             
     For i = 3 To FinalRow
           
           
                 For Each C In Workbooks("Table.xlsx").Worksheets("EPCI").Range("C" & i & ":C" & FinalRow) 'Le code dep
                   
               
                     If C.Value = "85" Then ' si la valeur de cellule = 85
                     
                       
                                Workbooks("Table.xlsx").Worksheets("EPCI").Range("B" & i).Copy 'Lib EPCI
               
                                'Trouver la dernier ligne
                                Workbooks("Base_PDHH.xlsx").Activate
                                FinalRow1 = Cells(Rows.Count, 2).End(xlUp).Row + 1
                               
                                'Paste
                                Cells(FinalRow1, 2).Select
                                ActiveCell.PasteSpecial Paste:=xlPasteValues
                       
                       
                                 Workbooks("Table.xlsx").Worksheets("EPCI").Range("I" & i).Copy 'Population AnnéeN
               
                                'Trouver la dernier ligne
                                Workbooks("Base_PDHH.xlsx").Activate
                                FinalRow1 = Cells(Rows.Count, 2).End(xlUp).Row
                               
                                'Paste
                                Cells(FinalRow1, 3).Select
                                ActiveCell.PasteSpecial Paste:=xlPasteValues
                               
                               
                                Workbooks("Table.xlsx").Worksheets("EPCI").Range("N" & i).Copy
               
                                'Trouver la dernier ligne
                                Workbooks("Base_PDHH.xlsx").Activate
                                FinalRow1 = Cells(Rows.Count, 2).End(xlUp).Row
                               
                                'Paste
                                Cells(FinalRow1, 4).Select
                                ActiveCell.PasteSpecial Paste:=xlPasteValues
                        End If
                    Next
        Next
End Sub
 
Dernière édition:

LeSaintKebab

XLDnaute Nouveau
Je souhaits copier certains colonnes dans une fichier (Table) dans une autre fichier Excel (base_PDHH).
Je demande de copier le ligne si le la valeur de cellule de colonne C = 85.
Sauf qu'il copie et colle autant de fois qu'il trouve 85 tous les lignes.
Mais je veux qu'il copie une fois certains colonne de la ligne où il a trouvé le 85.
Bonjour @A-F,

J'aimerais bien t'aider mais je dois t'avouer que j'ai du mal à comprendre ce que tu recherches...
Je ne comprends pas bien, tu parles de lignes puis de colonnes et je suis un peu perdu :(
Pourrais-tu reformuler ta demande stp ?

En attendant de te lire.

Cordialement,
LSK
 

A-F

XLDnaute Nouveau
Bonjour @A-F,

J'aimerais bien t'aider mais je dois t'avouer que j'ai du mal à comprendre ce que tu recherches...
Je ne comprends pas bien, tu parles de lignes puis de colonnes et je suis un peu perdu :(
Pourrais-tu reformuler ta demande stp ?

En attendant de te lire.

Cordialement,
LSK
Bonjour,
Merci pour t'avoir intéresser à mon problème, mais j'ai réussit à le résoudre.
j'avais un boucle de trop ;-)
Je voulais copier les lignes ou il trouve 85 comme département. Je savais que j'ai 9 ligne et que je doit copier 9 ligne dans le fichier export mais le programme copiait chaque ligne de mon tableau 9 fois.
 

LeSaintKebab

XLDnaute Nouveau
Bonjour,
Merci pour t'avoir intéresser à mon problème, mais j'ai réussit à le résoudre.
j'avais un boucle de trop ;-)
Je voulais copier les lignes ou il trouve 85 comme département. Je savais que j'ai 9 ligne et que je doit copier 9 ligne dans le fichier export mais le programme copiait chaque ligne de mon tableau 9 fois.
Bonsoir,

Tant mieux si ton problème est résolu, c'est le principal ;)

Bonne soirée,
LSK
 

Discussions similaires