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 :
Merci d'avance de me sortir de ce casse-tête
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
Partager