Discussion :

[max60fr]

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 :

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

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

[Philippe Tulliez]

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

[max60fr]

Bonjour M.Tulliez ,

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

J'ai effectué la petite modif et ne récolte pas la bonne valeur ..


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 ?...

[Philippe Tulliez]

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 :

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

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 :

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

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

[max60fr]

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.