Tester si l'ensemble des variables d'un tableau a 2 dimensions contiennent zéro.

Bonjour ,

Je cherche à vérifier que toutes les valeurs des variables d'un tableau a deux dimensions , contiennent la valeur zéro.
=> Tablo_CptDep(4, 0)
Ce sont les variables "0" (deuxieme dimension du tableau) que je cherche a tester.
Forcemment, je tourne en rond.. Le code ci dessous n'as pas trouvé les instructions adéquates !
Y a -t-il une instruction simple englobant tous les éléments du tableau ?
Merci !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Tablo_CptDep(4, 0)   Sub es()     Tablo_CptDep(1, 0) = 0 Tablo_CptDep(2, 0) = 1 Tablo_CptDep(3, 0) = 0 Tablo_CptDep(4, 0) = 0     If UBound(Tablo_CptDep) Then   MsgBox "Ok"   End If     End Sub

---

Bonjour,
Il suffit de tester la deuxième dimension :) soit If UBound(Tablo_CptDep, 2) Then

Je vous conseille la lecture de ce tutoriel titré Utiliser les variables tableaux en VBA Excel

Bonjour M.Tulliez ,

Merci pour votre (rapide..) réponse.

J'ai effectué la petite modif et ne récolte pas la bonne valeur ..
Pièce jointe 626077

D'autant plus que grace au tutoriel (merci pour cela..) , j'avais l'impression que nous étions dans la bonne voie ...

Ou cela pêche-t-il ?...

Pièce jointe 626080

Bonjour,
Désolé, j'ai répondu un peu vite

Voici un exemple de test sur la valeur de la deuxième dimension et si l'une des valeurs est différente de 0, on sort de la boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub t() Dim Tbl(4, 0) Dim flag As Boolean Dim e As Single Dim msg As String Tbl(0, 0) = 1 Tbl(1, 0) = 0 Tbl(2, 0) = 0 Tbl(3, 0) = 0 Tbl(4, 0) = 0   While flag = 0 And e < UBound(Tbl) flag = (Tbl(e, 0) <> 0) e = e + 1 Wend MsgBox IIf(flag, "Pas ok", "Ok") End Sub

---

[EDIT]
Il est possible d'effectuer la somme de la table mais sauf erreur de ma part, il n'est pas possible d'effectuer la somme d'une dimension spécifique
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub t() Dim tbl(4, 0) Dim flag As Boolean Dim e As Single Dim msg As String tbl(0, 0) = 0 tbl(1, 0) = 0 tbl(2, 0) = 5 tbl(3, 0) = 0 tbl(4, 0) = 5   MsgBox "La somme est " & Application.WorksheetFunction.Sum(tbl)   End Sub

---

Impeccable !
Merci pour votre cogitation appropriée.
Faire la somme de la table faisait partie aussi de mes essais ... infructueux !...
Un double merci donc .. votre implication le mérite.
Bien cordialement.
Max.