Discussion :

[demahom08]

Bonjour

Je fais appel à votre savoir, ô spécialistes de VBA.

J'ai une première feuille Excel (FEUILLE1) avec 3 colonnes.

- La colonne 1 (Référence) .
- La colonne 2 (montant)
- La colonne 3 (DATE) est... une date. Aucune donnée renseignée dans la colonne.

Ma seconde feuille (FEUILLE2) contient les mêmes colonnes.

Mon objectif est de comparer le contenu de Référence et montant dans les 2 feuilles et de réaliser les opérations suivantes dans FEUILLE 3 :

1. si Référence + montant est identique*, conserver les lignes et supprimer ou masquer les autres
2. pour chaque ligne conservée, copier les données de colonne DATE

[Daniel.C]

Bonjour

2. pour chaque ligne conservée, copier les données de colonne DATE

de quelle feuille ?

[demahom08]

bon c'est une feuil de classeur xl
j'ai un 2 grand tableau diferent sur deux feuil differentes dans le meme classeur xl trois colonne et quelle que fois ya les meme donnés alors je veut avoir une troisieme feuil ou je trouve les meme donné trouver
ou les references et les montant soi le meme
cordialement

[Daniel.C]

Bien compris. Si la référence et les montants sont identiques, on recopie la date, mais où la prend-on ? sur quelle feuille ?

[demahom08]

bon des fois, il y a deux différentes date pour les même références et le même montant alors on doit recopier les deux date différentes dans les deux ligne l'une après l'autre sur la troisième feuille avec les données double.

cordialement

mel-k

[Daniel.C]

Essaie :

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
26
27
28
29
30
31
32
33
34
Sub test2()
    'Réf. 111025.xlsm demahom08
    Dim Plage1 As Range, Plage2 As Range, c As Range, Plage3 As Range
    Dim Var As Variant
    With Sheets("Feuil1")
        Set Plage1 = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 2)
        Plage1.Copy Sheets("Feuil3").[A1]
    End With
    With Sheets("Feuil2")
        Set Plage2 = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 2)
        Plage2.Copy Sheets("Feuil3").Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
    With Sheets("Feuil3")
        Set Plage3 = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 2)
        Plage3.RemoveDuplicates Columns:=Array(1, 2)
        Set Plage3 = Plage3.Resize(, 1)
        For Each c In Plage3
            c.Offset(, 2).Value = Evaluate("sumproduct((Feuil1!" & Plage1.Resize(, 1).Address & "=" & c.Address & _
            ")*(Feuil1!" & Plage1.Resize(, 1).Offset(, 1).Address & "=" & c.Offset(, 1).Address & "),Feuil1!" & _
            Plage1.Resize(, 1).Offset(, 2).Address & ")")
            If c.Offset(, 2).Value = 0 Then c.Offset(, 2).Value = ""
            Var = Evaluate("sumproduct((Feuil2!" & Plage2.Resize(, 1).Address & "=" & c.Address & _
            ")*(Feuil2!" & Plage2.Resize(, 1).Offset(, 1).Address & "=" & c.Offset(, 1).Address & "),Feuil2!" & _
            Plage2.Resize(, 1).Offset(, 2).Address & ")")
            If Var <> 0 Then
                If c.Offset(, 2) = "" Then
                    c.Offset(, 2).Value = Var
                Else
                    c.Offset(, 3).Value = Var
                End If
            End If
        Next c
    End With
End Sub