Dictionnaire VBA

Hello la famille,

J'ai passé 3 jours au debeugage pour un excel pour le calcul du plus court chemin selon l'algo de dijksra, je commence à abondonner, ça devient une usine à gaz

Dans mon fichiers j'ai des modules de classe ( Noeud, arc, liste de noeuds, listedarc), les deux listes sont modélisées par des dictionnaires. (je pensais que c'etait plus simple mais je galère)

La création du graphe marche bien (tout les methodes de la classe liste de noeuds marche sauf une). J'ai un soucis juste avec une méthode pour enlever un noeud d'une la liste de noeud. Je vous la mets en PJ avec un petit test.

Si quelqu'un y voit plus claire et comprends bien les dico vba , je le remercie d'avance pour les clarifications qui apportera à ce forum.

Dans l'attente d'un oeil de génie

Excelement,

Bonjour,

voici une correction (si j'ai bien compris)

'Méthode pour enlever un noeud existant
Public Sub Enlever(NomNoeud As String) 'le nom est la clef
    Dim n As Noeud
    'n = LNoeuds(NomNoeud)
    LNoeuds.Remove NomNoeud
End Sub

Bonjour,

Ca marche bien maintenant, je vous remercie tous pour le temps que vous avez consacré à ma question

Bien à vous