recherche dans deux fichiers différents

[NICOALBERT]

Bonjour le forum,

Je me tourne vers vous car je n'arrive pas à créer une macro qui puisse me permettre de comparer deux fichiers.

Exemple: si dans le fichier suivi paiement la cellule G4 est vide alors rechercher le N° de dossier dans suivi intervention et si la cellule date de paiement correspondant contient une date alors la copier la coller dans suivi paiement en G4 et colorer la cellule en vert.

Cordialement.

 

[Guest]

Re : recherche dans deux fichiers différents

Bonjour,

en précisant que la colonne "Paiement effectué" devait contenir X c'eût été mieux.

A+

 

[NICOALBERT]

Re : recherche dans deux fichiers différents

Bonjour Hasco,

En faite dans l'exemple je me suis tromper c'est lorsque la cellule est verte et avec la date que je met la croix dans la colonne Paiement Effectué mais je ne veut pas automatiser la mise en place de la croix car j'ai des choses à faire avant de mettre la croix , lorsque je met la croix c'est que le dossier est clos.

Cordialement

 

[Guest]

Re : recherche dans deux fichiers différents

Re

Sois plus précis

A+

 

[NICOALBERT]

Re : recherche dans deux fichiers différents

Re,

En fait ce que je cherche c'est :

1-recherche une cellule vide dans la colonne G du fichier Suivi paiement
2-une fois que la macro trouve une cellule vide , qu'elle compare les N° de dossier identique dans les deux dossier et si une date de paiement est inscrite dans la colonne E du fichier suivi Intervention alors on copie cette date et on la colle dans le fichier suivi paiement et coloration de la cellule en vert pour que je puisse les voirs plus facilement car dans mon vrai fichier j'ai plus de 35000 lignes.

Cordialement.

 

[Guest]

Re : recherche dans deux fichiers différents

Re,

Portion corrigée:

 If Not IsDate(cDest) Then
            Set cSource = PlageSource.Columns(1).Find(what:=cDest(1, -5), _
                                After:=PlageSource(1, 1), _
                                LookIn:=xlValues, _
                                lookAt:=xlWhole, _
                                searchorder:=xlByRows)
            If Not cSource Is Nothing Then
                If IsDate(cSource(1, 5)) Then
                    cDest = cSource(1, 5)
                    cDest.Interior.ColorIndex = 4
            End If
        End If

Par contre cela ne ressemblera pas au résultat que tu mettais dans ton fichier précédent ou les lignes du résultat attendu ne concernait QUE les lignes qui n'avaient pas de X. D'ou la nécessité d'être clair et précis.

A+

 

[NICOALBERT]

Re : recherche dans deux fichiers différents

Re-bonjour HASCO,

J'ai un petit soucis lorsque je colle la portion de code modifié j'ai un message d'erreur qui me dit next sans for alors que For est bien présent.

A+

 

[Guest]

Re : recherche dans deux fichiers différents

Re,

La macro complète avec amélioration du temps de traitement

Private Sub cmdRechercher_Click()
    Dim wk As Workbook, PlageSource As Range, cSource As Range, cDest As Range
    Dim ModeCalcul As XlCalculation
    ModeCalcul = Application.Calculation
 
    On Error Resume Next
    Set wk = Workbooks("Suivi Intervention.xls")
    On Error GoTo 0
    If wk Is Nothing Then
        MsgBox "Vérifiez que le classeur 'Suivi Intervention.xls' soit ouvert et recommencez", vbExclamation, "Recherche dates paiement"
        Exit Sub
    End If
 
 
    ModeCalcul = Application.Calculation
    Set PlageSource = wk.Sheets("Feuil1").Range("A1").CurrentRegion
 
    On Error GoTo FIN
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    For Each cDest In Me.Range("A1").CurrentRegion.Columns(7).Cells
        If Not IsDate(cDest) Then
            Set cSource = PlageSource.Columns(1).Find(what:=cDest(1, -5), _
                                After:=PlageSource(1, 1), _
                                LookIn:=xlValues, _
                                lookAt:=xlWhole, _
                                searchorder:=xlByRows)
            If Not cSource Is Nothing Then
                If IsDate(cSource(1, 5)) Then
                    cDest = cSource(1, 5)
                    cDest.Interior.ColorIndex = 4
            End If
        End If
    Next
 
FIN:
    With Application
        .Calculation = ModeCalcul
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

A+

 

[NICOALBERT]

Re : recherche dans deux fichiers différents

Bonsoir le forum,

Lorsque j'essaie de modifier le code "For Each cDest In Me.Range("A1").CurrentRegion.Columns(7).Cells" pour déplacer la colonne "date de paiement" sa ne marche plus est ce moi qui mi prend mal , je voudrais placer la colonne N° dossier en B et date de paiement en O

Cordialement.

 

[NICOALBERT]

Re : recherche dans deux fichiers différents

Bonjour le forum,

Est ce que quelqu'un sait pourquoi je n'arrive pas a faire ma modif .

A+