1 pièce(s) jointe(s)
Macro - Comparer plusieurs colonnes avec données variables
Bonsoir,
C'est encore moi :mrgreen: Merci encore à ARTURO83 de m'avoir grandement aider :ccool:
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 :mrgreen:
Voici mon code pour le moment :
Code:
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 :aie:
