Comparaison 2 cellules

[fido76]

Bonjour à tous

Je suis nouveau sur ce forum et après plusieur jours de recherche je me decide en fin demander de l'aide sur ce forum.


Voila mon problème.
Prenons trois cellules A1,B1,C1
Dans A1 j ai une série de type 1-2-3-6-7-12-15-18-23-26 etc...

Lorsque je rentre par exemple une serie du type 1-2-6-7-12-23 dans la cellule B1, j aimerai qu apparaisse dans la cellule C1 la difference =(A1-B1), c est à dire 3-15-18-26



J'utilise excel 2000.

Merci d'avance

 

[job75]

Re : Comparaison 2 cellules

Bonjour fido, bienvenue sur le forum,

Ci-joint un fichier avec la fonction DIF sur VBA (Alt+F11) :

Function DIF(a$, b$)
Dim i As Integer, j As Integer, n$
a = "-" & a & "-"
b = "-" & b & "-"
i = 1
While i < Len(b)
j = Application.Find("-", b, i + 1)
n = Mid(b, i, j - i + 1)
If IsNumeric(Application.Find(n, a)) Then a = Replace(a, n, "-")
i = j
Wend
DIF = Right(a, Len(a) - 1)
DIF = Left(DIF, Len(DIF) - 1)
End Function

A+

 

[Catrice]

Re : Comparaison 2 cellules

Bonsoir,

ci-joint un exemple avec une macro Function

Edit : Bonsoir Job75, plus rapide

 

[fido76]

Re : Comparaison 2 cellules

Ca marche impeccable merci mille fois