Discussion :

[JukeBoX]

Bonsoir,

C'est encore moi Merci encore à ARTURO83 de m'avoir grandement aider
Je suis coincé pour trouver et exécuter une macro...

Je vais essayer d'expliquer ce que devrait faire cette macro :

Je dispose d'un tableau avec plusieurs colonnes -

Colonne A : Nom
Colonne B : Code
Colonne C : Adresse
Colonne D : Code Postal + Ville
Colonne G : Numéro

J'ai une macro qui me permet de modifier ce tableau en prenant en compte des valeurs se trouvant dans un autre fichier et de comparer chaque ligne de ce tableau avec ces valeurs et si identique copier sur la même ligne des valeurs de l'autre fichier à la place de celles du tableau
J'aimerai en plus comparer sur cette ligne plusieurs colonnes entres elles avant de réaliser cette condition.
J'ai joint un fichier pour que cela soit plus clair

Voici mon code pour le moment :

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
Sub Comparer ()
Dim NombreLigne As Integer
Dim OS As Worksheet
NombreLigne = 2000
 
    For i = 1 To NombreLigne
        If Cells(i, 5) = OS.Range("D8").Value And Cells(i, 2) = OS.Range("F8").Value Then
            Cells(i, 9).Value = OS.Range("D11").Value
            Cells(i, 3).Value = OS.Range("D15").Value
            Cells(i, 4).Value = OS.Range("D16").Value
            ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=2, Criteria1:= _
            OS.Range("F8").Value
            MsgBox "MODIF OK"
        End If
    Next
        If MsgBox("PAS DE MODIF) = vbYes Then
        End If
End Sub

Merci d'avance de me sortir de ce casse-tête