Macro de comparaison

[Cyr25]

Bonjour à tous,

Je cherche une macro qui comparerait deux versions différentes d'un fichier et en créerait un qui mettrait en rouge souligné ce qui a été ajouté et en bleu barré ce qui a été supprimé.
Le fichier se nommerait Redline[nom du fichier en derniere version].xls
Pour la selection des fichiers, le top serait un userform avec deux fenetres "parcourir" qui permettrait une recherche sur le disque dur. Si cela s'avere trop compliqué je pourrais simplement placer les deux fichiers dans un dossier spécifique.
En document joint, je vous met un exemple, les fichier Redline est un apercu de ce que je voudrais obtenir.

Merci d'avance

 

[gilbert_RGI]

Re : Macro de comparaison

Bonjour à tous,

Je cherche une macro qui comparerait deux versions différentes d'un fichier et en créerait un qui mettrait en rouge souligné ce qui a été ajouté et en bleu barré ce qui a été supprimé.
Le fichier se nommerait Redline[nom du fichier en derniere version].xls
Pour la selection des fichiers, le top serait un userform avec deux fenetres "parcourir" qui permettrait une recherche sur le disque dur. Si cela s'avere trop compliqué je pourrais simplement placer les deux fichiers dans un dossier spécifique.
En document joint, je vous met un exemple, les fichier Redline est un apercu de ce que je voudrais obtenir.

Merci d'avance

Bonjour

Voila un code qui peut vous mettre sur le chemin de ce que vous voulez obtenir

Sub ComparaisonDeListes()
'comparaison de liste dans deux classeurs
Set sh2 = Workbooks("classeur2").Sheets("Feuil1").Range("A1:A300")

Set sh1 = Workbooks("classeur1").Sheets("Feuil1")

For Each c In sh2
MaValeur = c.Value
If MaValeur <> "" Then
Set Plage = sh1.Columns("A:A").Cells.Find(MaValeur, lookat:=xlWhole)

 If Not Plage Is Nothing Then

  c.Range("F1") = "*"

 Else

  c.Range("F1") = ""

 End If
 End If
Next
End Sub

Salutations

Bon courage 😀

RGI

 

[Cyr25]

Re : Macro de comparaison

Désolé gilbert_RGI pour le temps de réponse mais je n'étais pas disponible.
Merci pour ton bout de code, je suis débutant en VBA et cela va m'aider dns ma progression.