Discussion :

[khech]

Bonjour,
j'ai mon petit programme sympa qui me fait une copie de mon tableau qui se trouve dans Feuille source vers Feuille cible .
Il ajoute les données de source dans cible.
Ma question : Est il possible d'ajouter dans mon programme du code qui me permettrai de ne pas copier une ligne s'il est déjà présent dans la cible. Supposons que dans mes deux tableaux j'ai un identifiant unique pour chaque ligne qui se trouve dans la colonne B à partir de B5 si ça peut aider.

Mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub copie()
  Dim lg As Integer
  Dim plage As Range
  lg = Sheets("cible").Range("A65536").End(xlUp).Row
  Set plage = Sheets("source").Range("A5:V" & Range("B65536").End(xlUp).Row)
   sup = MsgBox("Voulez-vous copier ?", vbYesNo + vbQuestion)
  If sup = vbYes Then
   plage.Copy Sheets("cible").Range("A" & lg + 1)
  End If
End Sub

Merci par avance.

[Guillaume56]

Bonjour,

Un proposition : tu peux utiliser l'enregistreur de macro pour faire une suppression des doublons et ensuite copier et coller !

Guillaume

[Kimy_Ire]

Bonjour khech,

Voici une petite procédure qui doit faire ce que tu souhaites, il me semble.

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
35
36
37
38
39
Option Explicit
 
Sub recopie()
Dim oRng As Range
Dim oTable()
Dim n As Long, i As Long, j As Long
 
Dim nb_col As Integer
 
With Worksheets("source")
    Set oRng = .Range("B4")
 
    nb_col = 22
 
    n = .Cells(Rows.Count, oRng.Column).End(xlUp).Row - oRng.Row
    ReDim oTable(1 To nb_col, 1 To n)
 
    For i = 1 To n
        For j = -1 To nb_col - 2
            oTable(j + 2, i) = oRng.Offset(i, j)
        Next j
    Next i
 
End With
 
With Worksheets("cible")
    For i = LBound(oTable, 2) To UBound(oTable, 2)
        Set oRng = .Columns(2).Find(oTable(2, i), LookIn:=xlValues, LookAt:=xlWhole)
        If oRng Is Nothing Then
            Set oRng = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
            For j = LBound(oTable, 1) To UBound(oTable, 1)
                oRng.Offset(0, j - 2) = oTable(j, i)
            Next j
        End If
        Set oRng = Nothing
    Next i
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[khech]

re bonjour Kimy_Ire,
ça marche super bien. Il fait le job.
Merci bien pour votre rapidité et à bientôt.

[patricktoulon]

Bonjour
entre nous kimy_Ire a partir de 2007 il y avait beaucoup plus simple
vire les ligne en doublon dans la colonne "B"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub copie()
  Dim lg As Integer, plage
  With Sheets("source")
  Set plage = .Range("A5:V" & .Range("B" & Rows.Count).End(xlUp).Row)
  End With
   lg = Sheets("cible").Range("A" & Rows.Count).End(xlUp).Row
   sup = MsgBox("Voulez-vous copier ?", vbYesNo + vbQuestion)
  If sup = vbYes Then
    plage.Copy Destination:=Sheets("cible").Range("A" & lg + 1)
  End If
    Sheets("cible").Range("A" & lg + 1).Resize(plage.Rows.Count, plage.Columns.Count).RemoveDuplicates Columns:=2, Header:=xlNo
End Sub

[Kimy_Ire]

C'est vrai, j'y ai pensé...
Mais, j'aime bien me compliquer la vie !

C'est surtout que je maîtrise plus les méthodes que j'ai utilisées plus que celles que tu as utilisées. Mais j'en prends bonne note !

Merci Patrick.

Kimy

[patricktoulon]

re
et si pure vbiste tu est !!
utilisation de 2 variable tableaux et un dico
point barre