Discussion :

[said.bouaziz]

Bonjour,

Étant novice sur le langage VBA, j'aimerais savoir si quelqu'un parmi vous pourrait m'aider à mettre en place une macro qui me permettrait de comparer deux colonnes sur deux fichiers Excel distincts et compléter d'autres colonnes sur le fichier de destination, quand la condition est vérifiée ( quand les valeurs des cellules comparées sont identiques ) .

Par avance merci de votre aide !

[mjpmjp]

bonjour,
tu est à quelle étape de ton problème ?
quelle est la difficulté par étape ?

a) liaison des fichier
b) comparaison des colonnes

@+JP

[said.bouaziz]

Bonjour,

Je suis vraiment à la phase initiale.

En résumé, j'aimerais comparer les valeurs de la colonne B du fichier A avec les valeurs de la colonne F du fichier B, si les valeurs sont identiques, il faudrait remplir d'autres colonnes sur le fichier B en se basant sur le fichier A.

Merci pour ton aide !

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris les valeurs à comparer dans la colonne F du classeur B sont les 4 derniers caractères de la colonne B du classeur A.
Pour faire ce genre de chose, j'utilise la fonction EQUIV (MATCH pour la version anglaise et en VBA)

A lire éventuellement ces deux billets sur ce sujet

• Comment comparer (matcher) des données dans Excel
• Exporter les données comparées (« Matchées »)

[mjpmjp]

bonjour,
voila un début de liaison entre 2 classeur OUVERT

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private LigneNB_A As Double
Private LigneNB_B As Double
 
Private Sub CommandButton1_Click()
    '----- nombre de lignes des colonnes
    'classeur_A (celui la)
    LigneNB_A = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B2").End(xlDown).Row
    'classeur_B (l'autre)
    LigneNB_B = Workbooks("Classeur_B.xlsm").Sheets("Feuil1").Range("F2").End(xlDown).Row
    MsgBox LigneNB_A & " et " & LigneNB_B
End Sub

ce bout de code donne le nombre de ligne des 2 zones jaunes

[said.bouaziz]

Bonjour @mjpmjp,

Merci pour ta réponse.

En effet, je souhaiterais comparer deux fichiers Excel A et B et effectuer quelques manips quand la condition est vérifiée ou pas :

1 - On compare la colonne B du fichier A avec la colonne F du fichier B, si les cellules sont identiques :

--> On remplit les colonnes vertes du fichier B avec les données correspondantes, contenues dans les colonnes vertes du fichier A.

Autre manip supplémentaire :

- Si on s’aperçoit qu'il existe des données sur la colonne B du fichier A mais pas dans la colonne F du fichier B, on ajoute la ligne avec les données correspondantes contenues dans les colonnes vertes du fichier A.

Voici le lien vers les fichiers en question : https://www.cjoint.com/c/LBpkdSUlJrz

[mjpmjp]

bonjour,
on vat procéder par petit bout

la colonne F de B ne contient qu'une partie (la partie droite 4) de la colonne B de A

oups ... il y a des trous dans les colonnes !!!

du coup , on change de méthode :
pour avoir le nombre de ligne exact (avec les trous) on part du bas de la feuille !!!

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
 
Private LigneNB_A As Double 'nombre de ligne max du fichier A colonne B
Private LigneNB_B As Double 'nombre de ligne max du fichier B colonne F
Private LigneExcelNB As Double 'nombre de ligne totale de la feuille excel sur un PC (65635 à 1048576)
Private DataFichAColB As String 'contenu de la colonne B du fichier A
 
Public Sub Cmd1()
    '----- nombre de lignes d'une feuille Excel
    'classeur_A (celui la)
    LigneExcelNB = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("BZ1").End(xlDown).Row
    '----- nombre de lignes des colonnes
    'classeur_A (celui la)
    LigneNB_A = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B" & LigneExcelNB).End(xlUp).Row
    'classeur_B (l'autre)
    LigneNB_B = Workbooks("Classeur_B.xlsm").Sheets("Feuil1").Range("F" & LigneExcelNB).End(xlUp).Row
    '----- boucle du fichier A colonne B
    For n = 2 To 2 'LigneNB_A
        DataFichAColB = Right(Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B" & n).Value, 4)
    MsgBox DataFichAColB
    Next n
End Sub

et on garde que la partie droite de la colonne B



pour le moment , voila le code principal avec la comparaison et les emplacement (libre) pour le traitement du résultat

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
 
Private LigneNB_A As Double 'nombre de ligne max du fichier A colonne B
Private LigneNB_B As Double 'nombre de ligne max du fichier B colonne F
Private LigneExcelNB As Double 'nombre de ligne totale de la feuille excel sur un PC (65635 à 1048576)
Private DataFichAColB As String 'contenu de la colonne B du fichier A
Private DataFichBColF As String 'contenu de la colonne F du fichier B
Private DataExiste As Boolean 'si false ajouter le data
 
Public Sub Cmd1()
    '----- nombre de lignes d'une feuille Excel
    'classeur_A (celui la)
    LigneExcelNB = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("BZ1").End(xlDown).Row
    '----- nombre de lignes des colonnes
    'classeur_A (celui la)
    LigneNB_A = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B" & LigneExcelNB).End(xlUp).Row
    'classeur_B (l'autre)
    LigneNB_B = Workbooks("Classeur_B.xlsm").Sheets("Feuil1").Range("F" & LigneExcelNB).End(xlUp).Row
    '----- boucle du fichier A colonne B
    For n = 2 To LigneNB_A
        'au début de la recherche le data n'a pas été trouvé
        DataExiste = False
        'lecture de la cellule
        DataFichAColB = Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B" & n).Value
        'un trou ?
        If DataFichAColB <> "" Then
            DataFichAColB = Right(Workbooks("Classeur_A.xlsm").Sheets("Feuil1").Range("B" & n).Value, 4)
            '----- boucle du fichier B colonne F
            For i = 2 To LigneNB_B
                DataFichBColF = Workbooks("Classeur_B.xlsm").Sheets("Feuil1").Range("F" & i).Value
                'un trou ?
                If DataFichBColF <> "" Then
                    If DataFichAColB = DataFichBColF Then
                        'le data a été trouvé
                        DataExiste = True
                        'completer avec colonne
                    End If
                End If
            Next i
        End If
        'le data a t il été trouvé
        If DataExiste = False Then
            'ajouter le data dans le fichier B
        End If
    Next n
End Sub

à plus tard