Macro copier des lignes d'une feuille et ne coller dans une autre feuille que celles qui sont différentes

**Elwina** · 18/10/2017, 15h05

Bonjour,

Jusqu'à présent j'ai réussie à me débrouiller avec une petite formation en programmation et en surfant sur le net pour résoudre mes problèmes. Mais j'avoue qu'aujourd'hui je bloque sur une macro qui pourtant me paraît facile :

j'ai 2 feuilles dans mon classeur :
- "anciennes données"
- "données mises à jour"

je souhaite copier uniquement les nouvelles lignes qui auront été créées de la feuille "données mises à jour" et les coller à la suite dans la feuille "anciennes données".

Ci-joint le fichier exemple.

Merci de votre aide.

Elwina

**MarcelG** · 18/10/2017, 15h58

Bonjour à toi, Bonjour au Forum,

D'après ce que je vois, il n'existe qu'un - une seule ligne - couple adresse + locataire dans chaque onglet.
En effet, une adresse peut se répéter, mais avec un locataire différent.

Par couple, j'entends la concaténation adresse, locataire
Si tel est le cas, alors j'entrevois une méthode possible :
- Créer un dictionnaire de tous les couples de la 1ère feuille
- Balayer chaque couple de la seconde. Si celui-ci n'existe pas dans le dictionnaire créé, alors ajouter les 3 données (adresse, locataire et date d'intervention) à la 1ère ligne libre de la 1ère feuille.

OK sur la méthode?
Le développement suivra.

**Elwina** · 19/10/2017, 13h36

Envoyé par MarcelG

Bonjour à toi, Bonjour au Forum,

D'après ce que je vois, il n'existe qu'un - une seule ligne - couple adresse + locataire dans chaque onglet.
En effet, une adresse peut se répéter, mais avec un locataire différent.

Par couple, j'entends la concaténation adresse, locataire
Si tel est le cas, alors j'entrevois une méthode possible :
- Créer un dictionnaire de tous les couples de la 1ère feuille
- Balayer chaque couple de la seconde. Si celui-ci n'existe pas dans le dictionnaire créé, alors ajouter les 3 données (adresse, locataire et date d'intervention) à la 1ère ligne libre de la 1ère feuille.
Nom : Capture.JPG
Affichages : 235
Taille : 69,2 Ko

Nom : Capture.JPG
Affichages : 235
Taille : 69,2 Ko

OK sur la méthode?
Le développement suivra.

Bonjour,

C'est tout à fait ça !
Par contre le code ne fonctionne pas. Cela affiche une erreur de compilation (cf. capture écran ci-jointe).
Et j'avoue que j'aurai du mal à corriger l'erreur car je ne connaissais pas la notion de dictionnaire...

**Menhir** · 18/10/2017, 16h35

Je n'ai pas ouvert ta pièce jointe. Il y aura donc certainement des ajustements à faire dans le code que je te donne.

Code :

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

Worksheets("anciennes données").Rows("1:" & Worksheets("anciennes données").Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets("données mises à jour").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

**MarcelG** · 18/10/2017, 16h54

Voilà! Voilà!

Par ce code, les lignes nouvelles peuvent être placées à n'importe quelle ligne de la feuille initiale

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
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Public Sub maj_données()
 
'Activer la référence Micosoft Scripting Runtime
Dim ledico As New Scripting.Dictionary
 
Dim derlign As Integer
Dim c As Range
Dim concat As String
 
Set ledico = CreateObject("Scripting.Dictionary")
With Worksheets("Anciennes données")
        derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
        For Each c In .Range("A5:A" & derlign)
                With c
                        concat = .Value & .Offset(0, 1).Value
                        'Pas de test d'existence
                        ledico.Add concat, concat
                End With
        Next c
End With
 
Dim derlign2 As Integer
Dim concat2 As String
 
With Worksheets("Données mises à jour")
        derlign = .Cells(.Rows.Count, 2).End(xlUp).Row
        For Each c In .Range("B4:B" & derlign)
                With c
                        concat2 = .Value & .Offset(0, 1).Value
                End With
                If Not ledico.Exists(concat2) Then
                        Debug.Print concat2
                        derlign = derlign + 1
                        With Worksheets("Anciennes données")
                                .Cells(derlign, 1) = c.Value
                                .Cells(derlign, 2) = c.Offset(0, 1).Value
                                .Cells(derlign, 3) = c.Offset(0, 2).Value
                        End With
                End If
        Next c
End With
 
'Vider le dctionnaire
ledico.RemoveAll
'Libérer la variable
Set ledico = Nothing
 
End Sub

**Elwina** · 19/10/2017, 15h45

Envoyé par MarcelG

Voilà! Voilà!

Par ce code, les lignes nouvelles peuvent être placées à n'importe quelle ligne de la feuille initiale

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
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Public Sub maj_données()
 
'Activer la référence Micosoft Scripting Runtime
Dim ledico As New Scripting.Dictionary
 
Dim derlign As Integer
Dim c As Range
Dim concat As String
 
Set ledico = CreateObject("Scripting.Dictionary")
With Worksheets("Anciennes données")
        derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
        For Each c In .Range("A5:A" & derlign)
                With c
                        concat = .Value & .Offset(0, 1).Value
                        'Pas de test d'existence
                        ledico.Add concat, concat
                End With
        Next c
End With
 
Dim derlign2 As Integer
Dim concat2 As String
 
With Worksheets("Données mises à jour")
        derlign = .Cells(.Rows.Count, 2).End(xlUp).Row
        For Each c In .Range("B4:B" & derlign)
                With c
                        concat2 = .Value & .Offset(0, 1).Value
                End With
                If Not ledico.Exists(concat2) Then
                        Debug.Print concat2
                        derlign = derlign + 1
                        With Worksheets("Anciennes données")
                                .Cells(derlign, 1) = c.Value
                                .Cells(derlign, 2) = c.Offset(0, 1).Value
                                .Cells(derlign, 3) = c.Offset(0, 2).Value
                        End With
                End If
        Next c
End With
 
'Vider le dctionnaire
ledico.RemoveAll
'Libérer la variable
Set ledico = Nothing
 
End Sub

Super ! Merci beaucoup !!!
Je n'avais pas assez décortiqué le code.
Maintenant que c'est fait, j'ai mieux compris et l'ai adapté !!!

Un grand merci pour votre aide et votre réactivité !!

**Elwina** · 19/10/2017, 13h45

Envoyé par Menhir

Je n'ai pas ouvert ta pièce jointe. Il y aura donc certainement des ajustements à faire dans le code que je te donne.

Code :

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

Worksheets("anciennes données").Rows("1:" & Worksheets("anciennes données").Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets("données mises à jour").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Bonjour,

Merci pour ce code mais il ne correspond pas à mon besoin.
Je souhaite copier et coller uniquement les nouvelles valeurs depuis la feuille "données mises à jour" dans la feuille "anciennes données" à la suite des lignes renseignées.
Les lignes de "anciennes données" ne doivent pas être écrasées mais complétées avec les nouvelles lignes qui vont apparaître dans "données mises à jour".
De plus l'ordre des lignes de "données mises à jour" est amené à changer.

J'espère que mes explications sont assez claires.

Merci en tout cas, c'est super sympa de répondre rapidement en plus !

**MarcelG** · 19/10/2017, 13h59

Bonjour Elwina,

Comme stipulé dans le commentaire, il faut activer la Référence "Scripting.Runtime"
Pour ce faire, dans ton éditeur de macros (VBE).
Menu Outils\Références.
Chercher (ordre alphabétique) puis Cocher la Référence
"Microsoft Scripting.Runtime"

En effet, un dictionnaire est un objet Scripting

Reviens après ce processus, en ayant surtout décortiqué le code pour le comprendre.
On est là!

**MarcelG** · 19/10/2017, 14h08

Salut,

Je viens de m'apercevoir qu'il y avait une redondance dans mon code

Code :

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

Dim ledico As New Scripting.Dictionary

et

Code :

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

Set ledico = CreateObject("Scripting.Dictionary")

2 lignes peuvent donc être supprimées.

Cette dernière et

Code :

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

Set ledico = Nothing

**Menhir** · 19/10/2017, 14h12

Envoyé par Elwina

Les lignes de "anciennes données" ne doivent pas être écrasées mais complétées avec les nouvelles lignes qui vont apparaître dans "données mises à jour".

Analyse ma ligne de code et tu pourras constater qu'elle n'écrase rien dans la feuille de destination.
Ce n'est pas pour rien que j'ai terminé la référence de destination par .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).

**Elwina** · 19/10/2017, 15h53

Envoyé par Menhir

Analyse ma ligne de code et tu pourras constater qu'elle n'écrase rien dans la feuille de destination.
Ce n'est pas pour rien que j'ai terminé la référence de destination par .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).

Merci pour votre aide, je me suis concentrée sur l'autre proposition de code et cela fonctionne parfaitement.

**MarcelG** · 19/10/2017, 16h40

Wilma,
N'oublie pas mes remarques quant aux redondances.
Regarde les autres méthodes et propriétés des dictionnaires, et reviens si nécessaire.

Bonne suite.

Macro copier des lignes d'une feuille et ne coller dans une autre feuille que celles qui sont différentes [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager