VBA - Propriété Type en fonction d'une variable string

Bonjour Patrice,

Je m'attendais à cette réponse.

En fait je développe un logiciel pour une structure, et ce sous VBA. Au lancement je masque l'application excel et n'affiche que les userform qui vont me permettre de travailler.

Pour l'instant, toutes mes données sont enregistrées par tableau de données, dans chaque onglet, sous forme de base de données (oui je sais excel c'est pas fait pour, Access aurait été mieux, mais c'était plus simple pour la structure, bref). Et j'utilise ces arrays à chaque instant pour mes données.

Du coup j'ai des tableaux correspondants à des entités.
Par exemple ma liste de Bénévoles dans un onglet, avec A: Matricule B: Nom C:Téléphone etc...
Un onglet avec une liste d'horaires de présences avec Colonne A : Référence de l'horaire, B : Matricule du bénévole concerné, C : Horaire de début, D : Horaire de fin etc...
et j'ai comme ça différentes listes de données diverses avec des Matricules pour différencier chaque ligne.

Jusqu'à présent j'utilise des arrays à 2 dimensions pour charger ces données. Au lancement je génère un array "liste_bénévoles()", je le dimensionne au nombre de données et je le remplis.

J'ai donc liste_bénévoles(i,0) <= matricules, liste_bénévoles(i,1) <= Nom etc...
et j'ai de la même façon une liste par type de données, avec à chaque fois le nombre de "colonnes" correspondant.

L'utilité de travailler ainsi c'est de ne pas travailler avec les feuilles excel qui prennent bien plus de temps en terme de calculs.

Lors de l'utilisation des données de ces différentes listes, je vais utiliser des procédures qui vont fonctionner quelle que soit la liste, sous peu que les arguments soient bien saisis.

Par exemple j'ai une fonction de Tri AZ et une Tri ZA (méthode bubble), qui ont chacune pour arguments : nom_array_a_trier, index_maximum, nombre_de_colonnes, colonne_à_trier

Ainsi, peu importe la liste, peu importe sa taille (nombre d'index ou de "colonnes") je peux la trier, avec une seule procédure.

Seulement voilà, j'aimerai remplacer cette méthode avec des arrays n'ayant plus qu'une "colonne" et donc à une seule dimension, et au lieu d'avoir une information (nom, prénom, âge ...) par colonne au sein de la même ligne pour une entité (Bénévole), de tout avoir au sein d'une variable d'un type personnalisé.

Imaginons une liste de 4 bénévoles :
Pierre - 35 ans - Homme - Président
Michelle - 48 ans - Femme - Trésorière
Simone - 58 ans - Femme - Secrétaire
Henry - 23 ans - Homme - Service Civique

J'aimerai remplacer ça :

dim liste_bénévoles()

redim mon_array(3,3) 'rappel 0 = le premier index

liste_bénévoles(0,0) = "Pierre"
liste_bénévoles(0,1) = 35
liste_bénévoles(0,2) = "Homme"
liste_bénévoles(0,3) = "Président"

liste_bénévoles(1,0) = "Michelle" 'et cetera vous avez compris le principe (ici je simplifie, c'est évidemment alimenté par des boucles for next. 

Par ça :

Type Bénévole_Type
Prénom as string
Age as long
Sexe as string
Statut as string
End Type

dim liste_bénévoles() as bénévole_type

redim liste_bénévoles(3)

liste_bénévoles(0).prénom = "Pierre"
liste_bénévoles(0).age = 35
liste_bénévoles(0).sexe = "Homme"
liste_bénévoles(0).statut = "Président"

liste_bénévoles(1).prénom = "Michelle" 'et cetera encore une fois vous avez compris le principe. 

Alors pourquoi modifier ainsi ?

2 raisons.

1) Pour une question de visibilité. En effet, quand je manipule les données dans le code, à l'heure actuelle j'ai des numéros d'index, et je dois sans cesse me rappeler que mon_array(i,4) (donc la 5ème "colonne" de mon array) est la date de machin, ou le lieu de truc... Avec des noms de propriétés ça serait limpide. : "mon_array(4).cotisation"

2) Et c'est la raison principale, pendant l'utilisation de mon programme, il arrive évidemment qu'il faille ajouter des données, c'est tout le principe. Sauf que l'ajout d'une donnée dans un array de plusieurs dimensions n'est pas possible car on ne peut pas utiliser Redim Preserve, ce qui me force actuellement à recharger toutes les données à chaque fois que j'en ajoute une, vous comprendrez qu'en terme d'efficacité on a connu mieux. Avec la méthode que je cherche à utiliser, je pourrais utiliser Redim Preserve car il n'y aurait plus qu'une dimension dans chacun de mes arrays.

Cela fonctionne super bien pour presque toutes mes procédures lorsque celles-ci sont spécifiques et situationnelle. Par exemple lorsque je sais que je dois utiliser telle propriété pour telle liste (array). Mais dès que je veux appeler une procédure générique j'ai besoin de ce que je vous ai demandé à l'origine, parce que les arrays sont différents, avec des variables Types personnalisés différents, et donc les propriétés (.Propriété) appelées sont différentes.

En effet avant,, quelle que soit ma liste je pouvais utiliser l'index pour un test par exemple. "Si ma_liste(i,4) =3 alors truc" mais là du coup, ça va donner "Si ma_liste(i).ancienneté=3 alors truc".

Dans ce cas exemple ça marche, parce que c'est spécifique à cette liste et cette propriété, mais dans le cas où je veux que la procédure fonctionne quelle que soit la liste, mais en variant sur les arguments, ba il me faut ce que je vous ait demandé. Vous comprenez ?

Voilà, c'est un peu long désolé. Je suis conscient que mon approche peut être déroutante.

J'apprends en même temps de développer, et je crois que la chose la plus importante ce n’est pas de savoir-faire, mais de savoir que ça existe/que c’est possible et donc savoir où chercher. Ce pourquoi je souhaitais savoir si une méthode existait. Voilà.

Ah et j'ai pensé à l'utilisation de modules de classes, mais pour l'instant c'est un peu trop complexe à mon goût...

En tout cas merci pour votre intérêt.

Cordialement

HardEcho