Autres Comparer les donnees de 2 dictionnaires.

[bernardrustrel]

Bonjour à tous.

Sous XL 2007. Une fois de plus je vous sollicite afin de me venir en aide, je vous expose mon souci ci dessous.

Le formulaire joint sert à la réintégration de costumes qui ont été prêtés. A chaque costume sont liées des accessoires.

A l’ouverture de l’USF, on choisit le l’emprunteur à l’aide de la ComboBox « Nom ». Une fois le choix effectué, s’affichent ses coordonnées, le costume qui a été emprunté et bien sur les accessoires liés à ce dernier.

J’aimerais lors de la réintégration pouvoir comparer le liste des accessoires prêtés à celle des accessoires qui vont être réintégrés.

Pour ce faire j’ai crée 2 dictionnaires :

PretChkb pour les accessoires prêtés et ReintegChkb pour les réintégrés.

Dans le cas où subviendrait une modification des accessoires à réintégrer (ex : en décochant une case si un accessoire venait à manquer, ou en cochant une autre si l’emprunteur se trompait quant aux accessoires à rendre).

Après clic sur le bouton « Réintégrer », J’aimerais pouvoir récupérer la liste des accessoires manquants « AccManquants ». Et c’est là que je me triture les méninges afin d’avoir une solution viable.

Merci par avance pour votre ingénuosité et réativité.
Cordialement Bernard

 

[sousou]

Bonjour
tu peux essayer ceci:
Private Sub CommandButton1_Click()
Dim AccManquants, P, R, compare, phrase1, phrase2
phrase1 = "Acessoires manquants: ": phrase2 = "Accessoires Prètés: "
AccessoiresReintegres
For P = LBound(AccPretes) To UBound(AccPretes)
compare = False
For R = LBound(AccReinteg) To UBound(AccReinteg)
If AccPretes(P) = AccReinteg(R) Then
compare = True
End If
Next R
If compare = False Then phrase1 = phrase1 & "," & AccPretes(P)
phrase2 = phrase2 & "," & AccPretes(P)
Next P

MsgBox phrase1 & Chr(13) & phrase2
TextBox9 = Date



End Sub

 

[bernardrustrel]

Bonjour
Merci Sousou cela fonctionne comme il faut, il ne me reste qu'à l'adapter à mon Appli
Merci encore. cordialement. Bernard