Bonjour le Forum,
J'ai un projet dans lequel je crée et j'utilise plusieurs objets Dictionary.
Je les ai créé avec
Dim DictXX as Object
et
Set DictXX = New Scripting.Dictionary
où XX = 01 à 12
et ils sont actuellement dans les modules là où j'en ai besoin.
Chacun de mes DICOs gere des infos particulières.
Je ne vais pas rentrer dans le détails ici.
Mais voici les 2 aspects de VBA que auxquels je suis confronté et pour lesquels je n'arrive pas à trouver de solutions :
1°) je voudrais réunir la création de tous les dicos dans un (nouvelle) module dédié.
Est ce qu'il serait possible de faire une boucle pour les créer du genre ...
for i = 1 to 12
Var01 = "Dict" & right("00" & i, 2)
Set Var01 = = New Scripting.Dictionary
next i
Mais je ne souhaite pas créer 12 fois le Dico Var01
mais les 12 Dicos dont le noms respectif serait Dict01, Dict02, Dict03 ... jusqu'à Dict12.
Est ce possible.
Si oui, je suis preneur d'une solution.
2°) L'objet Scripting.Dictionary est un objet dont la propriété .Name n'existe pas.
Alors comment puis récupérer le nom de nom dictionnaire lorsque je travaille avec ses items et ses clés ?
J'ai cherché pendant plusieur jours dernièrement pour créer un function qui me renverrait cette info
mais sans succès pour le moment.
Est ce possible.
Si oui, je suis preneur là aussi d'une solution.
Merci d'avance pour votre aide sur ces 2 questions.
Cdt
P.SARGNON
J'ai un projet dans lequel je crée et j'utilise plusieurs objets Dictionary.
Je les ai créé avec
Dim DictXX as Object
et
Set DictXX = New Scripting.Dictionary
où XX = 01 à 12
et ils sont actuellement dans les modules là où j'en ai besoin.
Chacun de mes DICOs gere des infos particulières.
Je ne vais pas rentrer dans le détails ici.
Mais voici les 2 aspects de VBA que auxquels je suis confronté et pour lesquels je n'arrive pas à trouver de solutions :
1°) je voudrais réunir la création de tous les dicos dans un (nouvelle) module dédié.
Est ce qu'il serait possible de faire une boucle pour les créer du genre ...
for i = 1 to 12
Var01 = "Dict" & right("00" & i, 2)
Set Var01 = = New Scripting.Dictionary
next i
Mais je ne souhaite pas créer 12 fois le Dico Var01
mais les 12 Dicos dont le noms respectif serait Dict01, Dict02, Dict03 ... jusqu'à Dict12.
Est ce possible.
Si oui, je suis preneur d'une solution.
2°) L'objet Scripting.Dictionary est un objet dont la propriété .Name n'existe pas.
Alors comment puis récupérer le nom de nom dictionnaire lorsque je travaille avec ses items et ses clés ?
J'ai cherché pendant plusieur jours dernièrement pour créer un function qui me renverrait cette info
mais sans succès pour le moment.
Est ce possible.
Si oui, je suis preneur là aussi d'une solution.
Merci d'avance pour votre aide sur ces 2 questions.
Cdt
P.SARGNON