Discussion :

[mea4502]

Bonjour

J'aimerais copier dans le fichier qui se nomme DR1 de la ligne A17 et la copie s'arrete au moment où il retrouve dans la colonne C " Realisations" qu'il sarrete de copier et le colle dans mon fichier central.

Excusez moi mais j'ai besoin de ça urgemment car je dois rendre le travail avant midi.

Merci à vous pour votre gentillesse

[Marc-L]

Bonjour.

Et la marmotte met le chocolat dans le papier alu ‼ …

[mea4502]

voici le code mais j'aimerais que la copie s'arrete au moment où il retrouve dans la colonne C "réalisations"
Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(DR1).Sheets(1).Range("A17:i" & Range("i65000").End(xlUp).Row).Copy Workbooks(CENTRAL).Sheets(1).Range("A17")

[Daniel.C]

Bonjour,

Vite fait, comme ça, avant midi (non testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Copie()
    Dim Sh1 As Worksheet, Sh2 As Worksheet, Ligne As Long, Plage As Range
    Set Sh1 = Workbooks("DR1").Sheets(1)
    Set Sh2 = Workbooks("CENTRAL").Sheets(1)
    With Sh1
        Ligne = .Range("C17:C65000").Find("Realisations", , , xlWhole).Row - 1
        .Range("17:" & Ligne).Copy Sh2.[A17]
    End With
End Sub

[mea4502]

Merci d'avoir réagir aussi vite.

Dans le code au niveau de ROw - 1 . Range ça me met reference incorrecte

j'ai déclaré DR1 = Nom du fichier
Central c'est le nom de mon fichier de destination.
Moi j'aimerais copier dans le fichier DR1 feuille 1 les lignes de colonne a17 à i et la copie s'arrete dès qu'il trouve en colonne C "realisation au cours de la semaine"

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Demo()
    With Workbooks(DR1).Sheets(1)
        Set Cel = .Columns(3).Cells.Find("realisation au cours de la semaine", , , xlWhole)
 
        If Not Cel Is Nothing Then _
            .Range("A17:I" & Cel.Row - 1).Copy Workbooks("CENTRAL").Sheets(1).[A17]
    End With
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Les bourses ne témoignent pas l'état des économies, mais de la psychologie des investisseurs ! (Françoise Giroud)

[Marc-L]

Incomplet …

• DR1 & CENTRAL c'est quoi ? Des variables ou des noms ? Dans le dernier cas il manque les guillemets ‼

• "A17:i" : les colonnes de A à i sont copiées ?

• Pour rechercher dans la colonne C, voir la méthode Find par exemple …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !