Ttypes de données personnalisé
FloM73
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Pour comptabiliser des données issues d'un gros fichier, j'ai créé un type perso et plusieurs tableaux (5) correspondants à ce type :
Type Tableau
Mois as integer
Quantite as integer
Temps as date
...
end type
dim DonneeSud(99) as Tableau
dim DonneeNord(99) as Tableau
...
Mon problème c'est que je ne sais pas comment faire pour passer ces tableaux en variable pour les initialiser et les remplir alors je tappe le même code 5 fois avec un test devant genre :
if secteur = Sud then donneeSud(i).Mois = i+1 ; donneeSud(i).Quantité =donneeSud(i).Quantité +1 ...
if secteur = Nord then donneeNord(i).Mois = i+1...
Ce qui est extrèmement fastidieux ! Si quelqu'un pouvait m'indiquer la syntaxe pour pouvoir appeler une fonction qui rempli le tableau appelé, genre :
RempliTableau (QuelTableau)
Sub RempliTableau (QuelTableau)
QuelTableau(i).Mois= i + 1
QuelTableau(i).Quantite = a + b...
end sub
Ce serait une grande aide.
FloM73 (grande débutante en Excel VBA).
Pour comptabiliser des données issues d'un gros fichier, j'ai créé un type perso et plusieurs tableaux (5) correspondants à ce type :
Type Tableau
Mois as integer
Quantite as integer
Temps as date
...
end type
dim DonneeSud(99) as Tableau
dim DonneeNord(99) as Tableau
...
Mon problème c'est que je ne sais pas comment faire pour passer ces tableaux en variable pour les initialiser et les remplir alors je tappe le même code 5 fois avec un test devant genre :
if secteur = Sud then donneeSud(i).Mois = i+1 ; donneeSud(i).Quantité =donneeSud(i).Quantité +1 ...
if secteur = Nord then donneeNord(i).Mois = i+1...
Ce qui est extrèmement fastidieux ! Si quelqu'un pouvait m'indiquer la syntaxe pour pouvoir appeler une fonction qui rempli le tableau appelé, genre :
RempliTableau (QuelTableau)
Sub RempliTableau (QuelTableau)
QuelTableau(i).Mois= i + 1
QuelTableau(i).Quantite = a + b...
end sub
Ce serait une grande aide.
FloM73 (grande débutante en Excel VBA).
A voir également:
- Ttypes de données personnalisé
- Fuite données maif - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Story personnalisé facebook c'est quoi - Guide
- Supprimer les données de navigation - Guide
- Sauvegarde des données - Guide
3 réponses
Bonsoir,
tu peux le déclarer en tableau
dim DonneeSud(99,4) as Tableau
donnee(0,0).Mois = 2 sera la 1ère donnée mois du sud
donnee(0,1).Mois = 5 sera la 1ère donnée mois du nord
.....
Ou bien dans ton type ajouter un champ secteur as string
donnee(0).Secteur = "sud"
.....
eric
tu peux le déclarer en tableau
dim DonneeSud(99,4) as Tableau
donnee(0,0).Mois = 2 sera la 1ère donnée mois du sud
donnee(0,1).Mois = 5 sera la 1ère donnée mois du nord
.....
Ou bien dans ton type ajouter un champ secteur as string
donnee(0).Secteur = "sud"
.....
eric
Je n'ai pas testé la deuxième solution (car je ne vois pas comment récupérer séparement les données de chaque secteur ensuite) mais la première méthode marche à merveille.
Grace à vous mon programme a subit aujourd'hui un régime drastique et ce n'était pas du luxe.
Il me reste un problème de format date mais ça c'est une autre question...
Florence.