Discussion :

[kenny49]

bonjour,

j'ai un tableau déclaré ainsi:

Code :

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

Public branchs() As String

J'aimerais savoir comment on peut connaitre le nb d'element du tableau, initialisé ou non.

Merci

[AlainTech]

UBound?

[alsimbad]

salut

Code :

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

1
2
3
4
Sub tableau()
Dim letableau(2)
MsgBox UBound(letableau)
End Sub

avec ça ça ça fonctionne, mais pas si tu fais

Code :

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

1
2
3
4
Sub tableau()
Dim letableau()
MsgBox UBound(letableau)
End Sub

parceque dans ce cas, l'indice n'appartient pas a la selection car si le tableau est vide, il est a -1 le ubound

[kenny49]

Code :

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

MsgBox ("nb bre" + UBound(branchs))

'me renvoie 'Type mismatch'

de plus; UBound ne fait pas partie des fonctions affichées quand je fais Ctrl+espace dans l'éditeur (peut etre que ca change rien mais bon).

et sinon vous avez si on peut mettre facilement des commentaires sur pls lignes ?


merci

[AlainTech]

Remplace le + par un & (opérateur de concaténation).

Pour les commentaires, il faut afficher le menu édition et regarder dans les icônes qu'il propose.

[kenny49]

Ca change effectivement
=> quel difference fais tu entre & et +?
quel est le type de retour de la fnction UBound?

Merci

je continuerai cette conversation avec toi demain si nécessaire et si tu veux bien encore répondre.

bonne soirée

[ouskel'n'or]

5 + 5 = 10
5 & 5 = "55"
+ additionne
& concatène en convertissant les valeurs en chaîne de caractères

[kenny49]

merci, c'est intéressant.

J'ai malgré tout toujours un problème:
'Subscript out of range' sur la ligne: 'If (UBound(branchs) > 0) Then'

Voici les lignes de code qui pourront nous aider à résoudre ce problème:

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
Public branchs() As String
Sub display_all()
Dim i As Integer
'branches if there are (3 max)
For i = 0 To 2 ' branchs if there are are present in H4->J4
    If Cells(4, i + 8).Value = "" Then
        Exit For
    End If
    ReDim Preserve branchs(i)
    branchs(i) = Cells(4, i + 8).Value
    MsgBox ("BRANCH(i) = " + branchs(i)) 'OK ca fonctionne 
Next
If (UBound(branchs) > 0) Then
MsgBox ("nb bre" & UBound(branchs))
End If
end sub

[kenny49]

Nouvelle question, et dernière normalement:

Comment savoir si un tableau a été initialisé?

(car s'il ne l'est pas, UBound() foire ).

Merci

[alsimbad]

ben tu t'arrange pour qu'il soit toujour positif

Code :

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

1
2
3
4
5
6
Public branchs(1) As String
Sub display_all()
Dim i As Integer
'branches if there are (3 max)
For i = 1 To 3 ' branchs if there are are present in H4->J4
    If Cells(4, i + 7).Value = "" Then

ps : c'est qu'une combine que j'aurais employé, je pretend pas pas que ce soit la regle pour gerer un tableau()

[alsimbad]

je prens même pas la peine de corriger ce que j'ai dis, je pense que c'est une bétise, sorry
par contre je me suis penché sur ton code, je pense qu'il ne marche pas a cause de l'exit for. si tu teste la premiere cellule et qu'elle est vide, a cause du exit for, tu sore de la boucle, tu ne teste pas la deuxieme cellule, et tu prend l'instruction suivante sans avoir incrementé le ubound, et donc erreur.

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
Sub display_all()
Dim branchs()
Dim i As Integer
'branches if there are (3 max)
For i = 1 To 3 ' branchs if there are are present in H4->J4
    If Cells(4, i + 8).Value = "" Then
       ' Exit For ' ici c'est pas bon, je pense essaye sans
    End If
    ReDim Preserve branchs(i)
    branchs(i) = Cells(4, i + 7).Value
    MsgBox ("BRANCH(i) = " & branchs(i)) 'OK ca fonctionne
Next
If (UBound(branchs) > 0) Then
MsgBox ("nb bre" & UBound(branchs))
End If
End Sub

[Marty35]

Pour information une solution est donnée à ce problème dans le tutoriel de Silkyroad.
Je sais que cette réponse apparaît un peu tard mais j'espère qu'elle pourra aider ceux qui comme moi se voient confrontés au test d'un tableau vide.