Discussion :

[Tazzou]

Salut à tous

dans une procédure événementielle j'ai ce code

Code :

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

1
2
3
4
5
6
Set SF = Forms("F_Planning").SF_Planning_PosteT_Sem2.Form
Colonne = 4
 
For Ligne = 1 To 20
   MsgBox "Ligne " & Ligne & " = " & IIf(Eclatage(Nz(SF.Controls("PosteL" & Ligne & "C" & Colonne), "0/0"), 0) = "1" Or Eclatage(Nz(SF.Controls("PosteL" & Ligne & "C" & Colonne), "0/0"), 0) = "1+" Or Eclatage(Nz(SF.Controls("PosteL" & Ligne & "C" & Colonne), "0/0"), 0) = "1*", 1, 0)
Next

mais lorsque j'arrive à la ligne 19 colonne 4 (champ vide) j'ai le message "L'indice n'appartient pas à la sélection" alors qu'il y a d'autres champ vide dans la même colonne qui ne déclenchent pas le message

Le débogueur bloque sur la ligne 10 de la fonction Eclatage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Eclatage(strDonnees As String, bytPos As Byte)
 
' déclaration
Dim Eclat() As String
 
' éclatage
Eclat = Split(strDonnees, "/")
 
' récupération en fonction de la position
Eclatage = Eclat(bytPos)
 
End Function

Voyez-vous l'erreur ???

Merci de votre aide c'est assez urgent.

[marot_r]

Bonjour

Split se base sur le séparateur donc probablement qu'il manque un séparateur et que tu récupères moins d'éléments que tu t'y attendais.

Une solution si c'est normal c'est d'utiliser un truc du genre

Code :

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

For i = lbound(tableau) to ubound(tableau)

Qui parcourt toutes les données quels que soient les indices min et max.

A+