Discussion :

[Lison Lisette]

Bonjour…

J’éprouve quelques difficultés à me faire comprendre par VBA…

Je m’explique.

J’ai deux fichiers :
- un fichier « BDD » = une base de données
- un fichier de travail à remplir

J’aimerais que la macro «scanne» la deuxième colonne du fichier de travail «à compléter », et qu'elle recherche dans BDD ce qu'elle y trouve
- Si elle trouve un identifiant correspondant dans la BDD (rechercher dans la colonne 1), insérer en vert toutes les lignes de la BDD correspondante juste au-dessus de cet identifiant dans le fichier de travail
- Si elle ne trouve pas l’identifiant dans la BDD, mettre en rouge

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
Sub Démo_test_comparaison_BDD()
 
Application.ScreenUpdating = False
 
'Macro recherche de correspondances dans la BDD
 
Dim Kol As New Collection
Dim LastLig1 As Long, LastLig2 As Long, i As Long
Dim c As Range
 
'mémoriser tous les ID de la feuille de travail à compléter
With Sheets("A compléter")
    .AutoFilterMode = False
    LastLig2 = .Cells(Rows.Count, 2).End(xlUp).Row
 
    For i = 2 To LastLig2
        On Error Resume Next
        Kol.Add .Range("A" & i).Value, .Range("A" & i).Value
        On Error GoTo 0
    Next i
 
'recherche de l'élément dans la feuille BDD
    For i = 1 To Kol.Count
        With Sheets("BDD")
            .AutoFilterMode = False
            LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
        End With
        .Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
        Set c = Sheets("BDD").Range("A1:A" & LastLig1).Find(Kol(i), lookat:=xlWhole)
 
'dans le cas ou l'id existe dans la BDD, le colorier en vert et le copier dans la feuille de calcul
 
'...comment faire insérer toutes ces lignes non pas à la fin du code mais juste en dessus de l'identifiant en question ?
        If Not c Is Nothing Then
            Sheets("BDD").Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
 
            .Range("A2:L" & LastLig2).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 4
            .Range("A2:L" & LastLig2).SpecialCells(xlCellTypeVisible).Copy Sheets("A compléter").Range("B" & LastLig1 + 1)
            Set c = Nothing
 
'dans le cas ou il n'existe pas, mettre la la cellule de l'id en rouge dans le formulaire
        Else
            .Range("A2").SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
        End If
    Next i
    .AutoFilterMode = False
End With
Sheets("BDD").AutoFilterMode = False
 
End Sub

Problème 1 : la question est dans le code

Problème 2 : cette macro s'applique à deux feuilles dans un même classeur, il suffit de rajouter

Code :

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

worksheets("gffdg")

devant chaque

Code :

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

sheet("qqch")

pour que ça marche entre deux classeurs différents ? Mais comment faire dans le cas ou les classeurs ont des noms différents à chaque fois ? Je pense que la macro sera liée au fichier "BDD" donc pour ce classeur il faudrait mettre ActiveWorksheet.Sheet("qqch") ? Il existe une possibilité en VBA de faire ouvrir à l'utilisateur une msgbox ou il irait chercher le deuxième fichier (genre le fameux parcourir...) et enregistrer le nom du fichier à ce moment là ?

Problème 3 : Pourquoi cette macro ne fonctionne pas en l'état actuel, mais ne m'envoie aucun msg d'erreur (et me laisse donc un peu dans le flou sur comment résoudre le problème !)