Discussion :

[Joévin]

Bonjour,

J'ai 2 classeurs EXCEl distincts : 1 pour les données sources (DS), et 1 pour la consolidation des données importantes (DI).

Je souhaite copier certaines lignes de ma feuille"DS" vers le feuille "DI" sous condition que la colonne F (de la feuille DS) ait pour valeur "C01".
Je sais le faire lorsqu'il n' a qu'une seule ligne qui répond à la condition (avec la fonction Do Until), mais ce n'est pas le cas donc je suis coincé.

Merci de votre aide

PS : je ne sais pas si mes explications sont suffisantes, mais je vous en donnerai plus si nécessaire.

[casefayere]

Bonjour,

Fait sans verif, à tester en tenant compte des observations :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub copier_C01()
Dim wb1 As Workbook, wb2 As Workbook, Ws1 As Worksheet, Ws2 As Worksheet
Dim dl1 As Long, dl2 As Long
Dim cel As Range, plage As Range
Set wb1 = Workbooks("classeur1.xls") 'classeur avec "DS"
Set wb2 = Workbooks("classeur2.xls") 'classeur avec "DI"
Set Ws1 = wb1.Sheets("DS")
Set Ws2 = wb2.Sheets("DI")
dl1 = Ws1.Range("F" & Ws1.Rows.Count).End(xlUp).Row
dl2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row + 1 'si les données à recevoir de "DI" sont en A
Set plage = Ws1.Range("F2:F" & dl1) 'si on commence la recherche en ligne 2
For Each cel In plage
    If cel.Value = "C01" Then 'correspondance exacte
    'si on copie les données de A dans A
        Ws2.Range("A" & dl2) = cel.Offset(0, -5).Value
        dl2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row + 1
    End If
Next cel
End Sub

[Joévin]

Merci pour ta réponse.

Finallement, j'ai utilisé le filtre automatique pour affiner ma sélection Selection.AutoFilter Field:=1, Criteria1:=Av_canicule.vNumeroContrat
puis copy vers l'autre fichier et ca fonctionne parfaitement.

Je te remercie pour ton aide.

Cependant, je rencontre un nouveau problème.

Mon fichier DI (données issus du fichier source DS) doit me permettre de publiposter un document WORD (contrat).

Le code du publipostage est le suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  Dim MyPath As String
    Dim CheminComplet As Variant
        MyPath = ActiveDocument.Path
    CheminComplet = MyPath & "\DonnéesPublipostage.xls"
 
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        CheminComplet _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="Feuille de calcul entière", _
        SQLStatement:="", SQLStatement1:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With

Le problème est que lorsque je lance la macro, le publipostage s'effectue avec l'ensemble des lignes d'origines (c'est à dire toutes les lignes présentent dans DS). Ainsi, je retrouve mes contrats publipostés avec les données de DI + x contrats dont les champs de fusion ne sont pas renseignés (x correspondant à la différence de ligne de données entre DS et DI).

Je ne sais pas si cela est clair.

Je vous remercie pour votre aide.