Re:=> DEMO USF ListBox Unique Key Collection
bonsoir Hervé, re Jean-Marie 'qui doit plancher sur un USF
) re Phil, le Forum
Merci du compliment Hervé, oui c'est assez 'zoli'
Pour te répondre dans l'ordre :
On Error Go To 0
On Error GoTo 0 Invalide dans la procédure en cours tout gestionnaire d'erreurs validé. (c'est ce qu'il y a dans l'aide)
En clair, pour la Collection en Clef Unique, je fais exprès donc de générer une erreur sur la 'Key' de la Collection, (Interdiction d'avoir une 'Key' en double, donc le 'On Error Resume Next' ne prendra pas dans cette collection de doublon...
Par contre si j'ai une 'C...' dans mon programme plus bas, y pas bon, alors du coup je referme cette gestion d'erreur avec le GoTo dans la boucle elle-même...
Pour mieux comprendre, reprends ma démo et fais ceci exactement :
Set ColArticle = New Collection
For i = 1 To UBound(TabPlage)
On Error Resume Next
ColArticle.Add TabPlage(i, 1) & Chr(35) & TabPlage(i, 2), TabPlage(i, 1) & Chr(35) & TabPlage(i, 2)
'On Error GoTo 0
Next
MsgBox Sheets('Qui N'existe Pas').Range('A1')
Et tu auras tout compris
....
Comparaison TabArticle et TabPlage
Là je ne saisis pas ta question, c'est le moment le plus crucial de l'algo, si je ne compare pas ces deux tableau, je ne peux pas générer mon TabGeneral qui contient les Dates et Autre Infos, car TabArticle ne contient que les Clefs Uniques du 'Materiel' et 'Numéro de Matériel'... non ?
Pas de Doublons Sans Passer par une Collection
Ouh la ouh la Ouh la la !!! (LudVig Von 88, un groupe que David Connait aussi
)
Arf si un beau jour par hazard 'Hurricane' n'était pas passé sur XLD, je me fesais encorer 'C...' avec un algo de fou pour supprimer les doublons sans passer par cette propriété des 'Keys' uniques obligatoire dans une Collection... Une démo, qui filtre les doublons Sans Collection :
=>
Lien supprimé
Tu verras que c'est nettement plus 'indigeste' et qu'il y a vraiment de quoi y perdre son Latin, pardon son VBA !!! lol
Enfin donc Voilà Hervé, je pense que tu as de quoi occuper ton Samedi soir là lol
Bonne Soirée
@+Thierry
Message édité par: _Thierry, à: 11/06/2005 20:57