Bonjour,
Je suis nouvelle sur le forum et utilise VBA ponctuellement.
Je cherche à faire évoluer une macro qui me permet actuellement de comparer le contenu de 2 cellules dans 2 fichier différents vers un code qui me permet de 2 comparer en plus 2 autres cellules quand la première comparaison est vrai.
Voici mon code actuel :
Do While VMAJ.Sheets(VFeuille).Cells(VLigne, 2).Value <> ""
' tant que colonne 2 n'est pas vide dans mon fichier VMAJ
VNUM = WorksheetFunction.Match(VMAJ.Sheets(VFeuille).Cells(VLigne, 2).Value, VREF.Sheets(VFeuille).Columns("B"), 0)
Range(VMAJ.Sheets(VFeuille).Cells(VLigne, 2), VMAJ.Sheets(VFeuille).Cells(VLigne, 10)).Copy _
Destination:=VREF.Sheets(VFeuille).Cells(VNUM, 2)
' variable vnum pour mémoriser la ligne à mettre à jour
' Match = equiv dans excel (ce que l'on cherche, ce que l'on trouve, " 0" pour recherche exacte)
' doit copier plage C à j de vligne dans vnum
VLigne = VLigne + 1
Loop
.....
TraitErr:
Select Case Err.Number
Case 1004 'n° VNUM introuvable dans VREF
VREF.Sheets(VFeuille).Rows(3).Insert
VNUM = 3 'on sait que VNUM forcément égal à 3
Err.Number = 0 ' annule l'erreur
Resume Next 'revient à l'instruction qui suit l'erreur cad copy ici
Case Else
msgbox prompt:="Erreur n° " & Err.Number & Chr(10) & Err.Description, Title:="Contactez moi au 06....."
Exit Sub
End Select
Les 2 cellules supplémentaires à comparer contiennent des dates, ne sont pas contigues des précédentes et sont :
VMAJ.Sheets(VFeuille).Cells(VLigne, 4) et
VREF.Sheets(VFeuille).Columns("D")
et je ne parviens pas à intégrer ce paramètre dans la fonction match.
Je vous remercie par avance de votre aide. C'est la première fois que je pose une question. J'espère avoir décrit clairement mon problème.
Cordialement
Je suis nouvelle sur le forum et utilise VBA ponctuellement.
Je cherche à faire évoluer une macro qui me permet actuellement de comparer le contenu de 2 cellules dans 2 fichier différents vers un code qui me permet de 2 comparer en plus 2 autres cellules quand la première comparaison est vrai.
Voici mon code actuel :
Do While VMAJ.Sheets(VFeuille).Cells(VLigne, 2).Value <> ""
' tant que colonne 2 n'est pas vide dans mon fichier VMAJ
VNUM = WorksheetFunction.Match(VMAJ.Sheets(VFeuille).Cells(VLigne, 2).Value, VREF.Sheets(VFeuille).Columns("B"), 0)
Range(VMAJ.Sheets(VFeuille).Cells(VLigne, 2), VMAJ.Sheets(VFeuille).Cells(VLigne, 10)).Copy _
Destination:=VREF.Sheets(VFeuille).Cells(VNUM, 2)
' variable vnum pour mémoriser la ligne à mettre à jour
' Match = equiv dans excel (ce que l'on cherche, ce que l'on trouve, " 0" pour recherche exacte)
' doit copier plage C à j de vligne dans vnum
VLigne = VLigne + 1
Loop
.....
TraitErr:
Select Case Err.Number
Case 1004 'n° VNUM introuvable dans VREF
VREF.Sheets(VFeuille).Rows(3).Insert
VNUM = 3 'on sait que VNUM forcément égal à 3
Err.Number = 0 ' annule l'erreur
Resume Next 'revient à l'instruction qui suit l'erreur cad copy ici
Case Else
msgbox prompt:="Erreur n° " & Err.Number & Chr(10) & Err.Description, Title:="Contactez moi au 06....."
Exit Sub
End Select
Les 2 cellules supplémentaires à comparer contiennent des dates, ne sont pas contigues des précédentes et sont :
VMAJ.Sheets(VFeuille).Cells(VLigne, 4) et
VREF.Sheets(VFeuille).Columns("D")
et je ne parviens pas à intégrer ce paramètre dans la fonction match.
Je vous remercie par avance de votre aide. C'est la première fois que je pose une question. J'espère avoir décrit clairement mon problème.
Cordialement
