somme si appartient à une liste

Version imprimable

Bonjour tous le monde
débutant en VBA et je cherche à optimiser mon code
j'ai une liste des comptes et je cherche à faire des regroupements
somme si égal à x ou y ou z ou ....
y a t il une solution éviter de répiter OR .... or ....or ...
surtout que dans une autres partie du code je dois regrouper vers 20 comptes !!!!
voiçi partie du code
Code:

1 2 3 4 5 For I = LBound(Tablo, 1) To UBound(Tablo, 1) If Tablo(I, 1) = "64007571" Or Tablo(I, 1) = "64007581" Or Tablo(I, 1) = "64027591" Or Tablo(I, 1) = "64757571" Or Tablo(I, 1) = "64757581" Or Tablo(I, 1) = "64757591" Or Tablo(I, 1) = "64907571" Or Tablo(I, 1) = "64907581" Then MOEUVREICF = MOEUVREICF + Tablo(I, 5) End If Next I
Merci à tous et bonne et heureuse journée

Bonjour,

Code:

1
2
Liste = Array("64007571", "64007581", "64027591") 'etc.
If IsNumeric(Application.Match(Tablo(I, 1), Liste, 0)) Then

Merci Monsieur pour la réponse
mais j'arrive pas à adapter :(
est ce je dois conserver le boucle for??
car quand j'ai fais ca j'ai obtenu zero comme résultat alors que les compte contient des valeurs
Merci encore

Code:

1
2
3
4
5
6
7
8
9
 For I = LBound(Tablo, 1) To UBound(Tablo, 1)
  Liste = Array("64007571", "64007581", "64027591", "64757571", "64757581", "64757591", "64907571", "64907581")
If IsNumeric(Application.Match(Tablo(I, 1), Liste, 0)) Then
        MOEUVREICF = MOEUVREICF + Tablo(I, 5)
    End If
Next I
If MOEUVREICF <> "" Then Sheets("ENERGIE").Range("F34") = MOEUVREICF
If MOEUVREICF = "" Then Sheets("ENERGIE").Range("F34") = 0
Sheets("ENERGIE").Range("F34").NumberFormat = "#,##0.000"

23/11/2015, 11h31
Daniel.C

Citation:

est ce je dois conserver le boucle for??

Non, ça remplace. Match est l'équivalent de la fonction Excel EQUIV. Si la valeur "Tablo(I, 1)" est contenue dans Liste, "Application.Match(Tablo(I, 1), Liste, 0)" est numérique.

Citation:

car quand j'ai fais ca j'ai obtenu zero comme résultat alors que les compte contient des valeurs

Je ne vois pas ce qui peut renvoyer 0 ?

désolé du dérangement ... chui débutant :(
j'ai un message d'erreur suite à ça :
Code:

1 2 3 4 5 6 7 8 9 ' For I = LBound(Tablo, 1) To UBound(Tablo, 1) Liste = Array("64007571", "64007581", "64027591", "64757571", "64757581", "64757591", "64907571", "64907581") If IsNumeric(Application.Match(Tablo(I, 1), Liste, 0)) Then MOEUVREICF = MOEUVREICF + Tablo(I, 5) 'Next I If MOEUVREICF <> "" Then Sheets("ENERGIE").Range("F34") = MOEUVREICF If MOEUVREICF = "" Then Sheets("ENERGIE").Range("F34") = 0 Sheets("ENERGIE").Range("F34").NumberFormat = "#,##0.000"
message erreur : erreur d'exécution 9 : l'indice n'appartient pas à la sélection :(
message d'erreur devant : If IsNumeric(Application.Match(Tablo(I, 1), Liste, 0)) Then
merci encore

23/11/2015, 11h56
Daniel.C

Citation:

désolé du dérangement ... chui débutant

Pas de problème, on est tous passé par là. D'après le message, la valeur de "Tablo(I, 1)" ne se trouve pas dans "Liste". Fais attention de "Tablo(I, 1)" est numérique, tu ne trouveras pas de correspondance dans Liste. Si tu mets "64007571", il s'agit d'une valeur texte, pas d'un nombre.
23/11/2015, 12h08
BENNASR

Mon tableau est téléchargé via un fichier TXT et si c'est un probème de format je crois quand j'ai utilisé if = x or y or z normalement je dois affronter à une même problème alors que c'est pas le cas !!!
Pour corriger que dois je faire??
* j'ai modifié la colonne A du tableau : format nombre sans chiffre après virgule ni espace mais le problème existe encore ...
* Existe-t-il autre fonction au lieu de MATCH
* Dois je revenir à la fonction IF .... OR ..... OR

ENCORE MERCI
23/11/2015, 13h46
Daniel.C
Citation:

Existe-t-il autre fonction au lieu de MATCH

Essaie :
Code:

1 2 3 4 If IsNumeric(Application.Match(CStr(Tablo(I, 1)), Liste, 0)) Then MOEUVREICF = MOEUVREICF + Tablo(I, 5) End If Next I
Est-ce que tu peux mettre un classeur exemple, sans données confidentielles, en pièce jointe ?
23/11/2015, 14h16
BENNASR

ça marche :)
Bravo DANIEL et bonne et heureuse journée
cordialement