Discussion :

[awa123]

Bonjour,

je cherche à savoir si mon tableau à une dimension est vide ou pas?
pour cela j'ai fais le test suivant:

j'ai créer un petit tableau gantt_m1( )
de dimension 50 : redim gantt_m1(50)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    gantt_m1(1) = 1
      ' je lui affecte la valeur 1 à la première case de mon tableau virtuel
    'et la je fais le test pour savoir s'il confirme bien que mon tableau est non complétement vide
    For i = 0 To UBound(gantt_m1)
 
        If gantt_m1(i) = "" Then
            MsgBox "le tableau est vide"
        End If
 
    Next i

Hélas , il m'affiche bien que mon taleau est vide , or ce n'est pas le cas !

deuxième petite question :

j'ai vu qu'on pouvait parcourir un tableau sur les lignes comme l'exemple suivant:

Code :

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

1
2
3
    For i = 0 To 10
        tab_exemple(i) = Range("A" & i + 2)
    Next

mais comment parcourir les colonne sur une même ligne?

merci beaucoup

[parmi]

Bonjour,

Dans ton 1er exemple, tu affectes une valeur à l'item 1 de ton tableau. Ta boucle commence à 0 donc elle trouve le 1er item vide...

Pour lire une ligne

Code :

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

1
2
3
    For i = 0 To 10
        tab_exemple(i) = Cells( 1, i+1)  'lecture le ligne 1
    Next

[Marc-L]

Bonjour, bonjour !

Code :

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

1
2
3
4
5
6
7
8
 
    For i = 0 To UBound(gantt_m1)
 
        If gantt_m1(i) = "" Then
            MsgBox "le tableau est vide"
        End If
 
    Next i

Hélas , il m'affiche bien que mon taleau est vide , or ce n'est pas le cas !

En fait il affiche ce qui lui est demandé ! Et si ce n'est pas bon, la logique de programmation est donc à revoir ‼
La condition teste uniquement si un indice de la variable tableau est vide, rien à voir donc avec l'intégralité du contenu ! …

Pour une variable tableau de valeurs numériques, pour savoir si elle est vide, rien qu'en effectuant la somme, non ?‼

Code :

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

1
2
3
4
5
6
Sub Demo()
    ReDim gantt_m1%(50)
 
    gantt_m1(0) = 1
    If Application.Sum(gantt_m1) = 0 Then MsgBox "Tableau vide !"
End Sub

Tel quel, il n'y aura pas de message; par contre en mettant en commentaire la ligne n°4 …


Quant à la seconde question, c'est plus simple d'utiliser la propriété Cells, consulter son aide … (B-A-BA)

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …