OVH Cloud OVH Cloud

récupérer variable

2 réponses
Avatar
Robert
Bonsoir

Sur Xl 2003 en VBA uniquement

Je galère un peu pour récupérer le contenu d'une variable qui change
plusieurs fois. Je m'explique :
la variable "a" passe dans une boucle pour me donner la valeur de x
éléments. Ces éléments peuvent être en doublons ou pas. Je voudrais
faire la somme du nombre d'éléments différents.
ex: "a" vaut tantôt PL, CB, R, FS, PL, CB, FS...
Il me faut faire la somme de PL (donc 2), puis celle de CB (2) etc...

Pour attaquer mon problème, j'avais pensé à un tableau dynamique :
myArray() qui se compléterais à chaque passage de "a" dans la boucle avec
ReDim Preserve myArray(n) où "n" vaut 1 au début et prend +1 à chaque
passage de boucle
"a" est donc de type String, "n" de type Byte

mais ça ne donne rien!!!

merci de m'aiguiller sur une piste

Robert

2 réponses

Avatar
Trirème
Bonsoir Robert,
Si les items à dénombrer sont peu nombreux, avec un :

PL=0:CB=0:R=0:FS=0:PL=0:CB=0:FS=0...
Select Case a
Case "PL"
PL=PL+1
Case"CB"
CBË+1
Case...

Case Else
'Cas non prévu
Anomalie = Anomalie+1
End Select

Cordialement
Trirème

Bonsoir

Sur Xl 2003 en VBA uniquement

Je galère un peu pour récupérer le contenu d'une variable qui change
plusieurs fois. Je m'explique :
la variable "a" passe dans une boucle pour me donner la valeur de x
éléments. Ces éléments peuvent être en doublons ou pas. Je voudrais
faire la somme du nombre d'éléments différents.
ex: "a" vaut tantôt PL, CB, R, FS, PL, CB, FS...
Il me faut faire la somme de PL (donc 2), puis celle de CB (2) etc...

Pour attaquer mon problème, j'avais pensé à un tableau dynamique :
myArray() qui se compléterais à chaque passage de "a" dans la boucle avec
ReDim Preserve myArray(n) où "n" vaut 1 au début et prend +1 à chaque
passage de boucle
"a" est donc de type String, "n" de type Byte

mais ça ne donne rien!!!

merci de m'aiguiller sur une piste

Robert


Avatar
Robert
Merci de ta réponse Trirème...
mais le nombre d'item est indéterminé et leur valeur aussi !!!
Il faut donc tout récupérer : le nombre et les valeurs...
D'où l'idée de "construire" un tableau qui se complète au fur et à
mesure que la boucle le nourrit.

Si vous avez d'autres pistes ?

Robert

Bonsoir Robert,
Si les items à dénombrer sont peu nombreux, avec un :

PL=0:CB=0:R=0:FS=0:PL=0:CB=0:FS=0...
Select Case a
Case "PL"
PL=PL+1
Case"CB"
CBË+1
Case...

Case Else
'Cas non prévu
Anomalie = Anomalie+1
End Select

Cordialement
Trirème

Bonsoir

Sur Xl 2003 en VBA uniquement

Je galère un peu pour récupérer le contenu d'une variable qui change
plusieurs fois. Je m'explique :
la variable "a" passe dans une boucle pour me donner la valeur de x
éléments. Ces éléments peuvent être en doublons ou pas. Je voudrais
faire la somme du nombre d'éléments différents.
ex: "a" vaut tantôt PL, CB, R, FS, PL, CB, FS...
Il me faut faire la somme de PL (donc 2), puis celle de CB (2) etc...

Pour attaquer mon problème, j'avais pensé à un tableau dynamique :
myArray() qui se compléterais à chaque passage de "a" dans la boucle avec
ReDim Preserve myArray(n) où "n" vaut 1 au début et prend +1 à chaque
passage de boucle
"a" est donc de type String, "n" de type Byte

mais ça ne donne rien!!!

merci de m'aiguiller sur une piste

Robert