inclusion

[mimi]

Bonjour à tous
J'ai excel 2000 avec windows 98
Pourriez-vous me donner la solution de mon probléme?
Le voici:j'ai 2 données sur 2 lignes différentes.Je voudrais les comparer pour avoir une troisiéme donnée comprenant les numeros qui ne sont pas communs.
ex: 05-02-03-04-01-06-07-08-09
02-03-04-07-08-09
Ce qui me donnerais comme troisiéme donnée: 05-01-06
J'espére avoir été clair tout en vous disant que je ne connais pas VBA.
Merci de votre réponse et bravo pour ce forum.

 

[Monique]

Bonjour,

Une solution dans le fichier joint, par insertion de lignes intermédiaires.

 

[mimi]

Chére Monique,je n'ai pas encore essayé mais je te remercie beaucoup pour la rapidité de ta solution.Je vous tiendrai au courant

 

[mimi]

Chére Monique
Cette solution est bonne ,mais je ne me suis pas appliqué dans le résultat que je voulais et qui est le suivant:
-02-03-04-07-08-09-05-01-06 , la troisiéme donnée se mettant derriére la seconde.
Avec toutes mes excuses ,en attendant vos réponses.
Merci,Mimi

 

[Monique]

Re,

Là, je ne trouve pas de solution, Mimi.
Quelqu'un passera par là et te donnera un coup de main.

 

[michel]

bonjour Mimi , bonjour Monique

Mimi , la procedure ci dessous repondra peut etre à ta demande ; je ne suis pas sur d'avoir bien compris la logique du resultat souhaité .

Sub tri()

Dim tablau As String
Dim e As String
Dim b As String
Dim val As String
Dim cible As Object
Dim resultat As String
Dim compteur As Byte

b = Range("a1").Value

For compteur = 1 To Len(b)
e = Mid(b, compteur, 1)

Select Case e
Case 0 To 9
val = val & e

With Range("a2")
Set cible = .Find(val, LookIn:=xlValues)
If cible Is Nothing And Len(val) > 1 Then
resultat = resultat & "-" & val
val = ""
End If
End With

Case Else
val = ""

End Select
Next

Range("a3") = Range("a2") & resultat

End Sub


bonne journée
Michel

 

[michel]

rebonjour

...je ne suis pas encore bien reveillé ...

le Dim tablau As String ne sert à rien....

bonne journée
michel

 

[mimi]

Bonjour à tous
Merci Michel et Monique
J'ai peut-etre trouver la solution en imbriquant des SI
Bon week-end et à +
Mimi