Code macro copie

Version imprimable

15/07/2013, 11h23
mea4502

Code macro copie

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
15/07/2013, 11h31
Marc-L

Bonjour.

Et la marmotte met le chocolat dans le papier alu ‼ …
15/07/2013, 11h34
mea4502

code macro copie

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:

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

Bonjour,

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

Code:

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

15/07/2013, 11h45
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 :plusser: pour chaque message ayant aidé puis sur :resolu: 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 !
15/07/2013, 12h18
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"
15/07/2013, 12h30
Daniel.C

Citation:

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

vérifie que tu as bien remplacé "DR1" par le nom exact de ton classeur dans la ligne :

Code:

Set Sh1 = Workbooks("DR1").Sheets(1)

Code:

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

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