Discussion :

[Elwina]

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]

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.

[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)

[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

[Elwina]

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.

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...

[Elwina]

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]

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]

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]

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]

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]

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]

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.