Discussion :

[ponteprimo]

Bonjour,
Je voudrais indicer mon tableau par des string.
Exemple : ( On saisit le mois et on stocke dans la chaine MoisEnCours ).

Je veux constituer un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
monTAB ("Légumes" , MoisEnCours ) = "10 kg"
monTAB ("Fromages" , MoisEnCours ) = "8,5 kg"
monTAB ("Fruits"     , MoisEnCours ) = "2 kg"

Quand je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monTAB ("Fruits"     , MoisEnCours ) = monTAB ("Fruits"     , MoisEnCours ) + 5      ' Ajout de 5 kg pour le mois en cours

J'ai un message popup : "Incompatibilité de type"

J'ai déjà fait ça en PHP mais en VBA ... (???).
Merci de votre aide.

[Jean-Philippe André]

Salut,

je pense que tu cherches l'object Collection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub piou()
Dim a As New Collection
a.Add "plop", "plip"
Debug.Print a("plip")
End Sub

[Slooby]

Bonjour,

Je ne suis pas sûr qu'une collection fasse l'affaire, car il y a 2 paramètres.
A la rigueur un Dico de dico, mais c'est complexe.

Car ce que tu veux c'est obtenir un nombre (le poids) en utilisant 2 clés de type String (le nom du légume, et la date)

Pleins de choix s'offrent à toi, tous avec des avantages/défauts et différents niveaux de complexité.

Le mieux serait un Dico de Dico je pense, mais sinon, si tu est débutant, tu peux penser à utiliser une feuille Excel comme tableau de stockage.
Et utiliser le tableau Excel comme un tableau (tes fruits/légumes en tête de tableau) et en colonne les Dates.

C'est pas optimal, mais si ça peut marcher pourquoi pas. Tout dépend de ton niveau.

Désolé de ne pas pouvoir t'aider plus.

Slooby

[Jean-Philippe André]

Pour gerer la double cle, perso j'utilise une concatenation avec un | en separateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a.Add "plop", "plip|plap"

mais le debat reste ouvert sur le dico de dico

[Marc-L]

Bonjour,

tout dépend du volume de données et le traitement à réaliser mais avec une présentation si légère …

Car déjà avec juste une variable tableau supplémentaire stockant les noms
et via la simple fonction de formule de calculs EQUIV (et oui, même en VBA !) on a l'indice de la position du nom …
Là aussi on peut utiliser une collection pour juste ressortir cet indice …

Le nombre d'éléments (les noms) doit être connu pour pouvoir dimensionner la première dimension du tableau MonTAB
au préalable car elle n'est pas redimensionnable en cours de traitement, cf l'aide VBA …

Diverses autres possibilités comme effectivement la clef concaténée avec une collection ou un dictionnaire …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[patricktoulon]

bonsoir en vba on peut pas faire comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monTAB ("Légumes" , MoisEnCours ) = "10 kg"

si on considère que montab est un tableau il doit etre indicé par des numériques (ligne, colonne) et on ne peut pas lui attribuer une valeur (=5)

je pense qu'il va falloir soit faire un tableau de tableau soit un dico voir dico de dico

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set mondico=createobject("Scripting.Dictionary")

'on créé l'entré de mes patates

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mondico("légumes" & moisencours)=5

si demain je reviens au marché et que j'en rachète un peu plus parce que mes patates elles étaient bonnes et même si il m'en reste encore
alors j'ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mondico("légumes" & moisencours)=mondico("légumes" & moisencours)+2

ce matin j'en ai fait cuir 3 kilos
alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mondico("légumes" & moisencours)=mondico("légumes" & moisencours)-3

le mois prochain je refait mes courses
je rachète donc des patates (j'aime beaucoup les patates ) mais attention il m'en reste du mois dernier alors
j'achète 10 kilo (purré qu'est ce que j'en bouffe de cucurbitacée)
et je met mon stock a jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mondico("légumes" & moisencours)=mondico("légumes" & moisencours-1)+10

attention cependant a enregistrer les donné sur sheets pour les recalculer par la suite a l'ouverture du fichier ou autre un dico travaillant principalement en mémoire se détruit a la fermeture d'Excel on est pas en PHP hein!!!!!

demain j'aimerais bien une bonne purrée faite maison avec un peut de beurre salée au sel de Guérande
tu m'appelle quand c'est prêt