Discussion :

[did103]

Bonjour à tous

Je viens de créer ma 1ère Form.
C'est pas mal

Petite question pour les zinitiés...
Où doit-on placer le code des fonctions
Cela fait une erreur 1004 quand on le met dans le code de la Form et je n'ai pas trouvé où le mettre pour qu'il soit vu.

[JackOuYA]

Bonsoir,


C'est quoi comme fonction ?
on peu voir ?

si c'est fonctions sont destinées à n'être utilisée que dans ton userform tu peu les mettre dans le code de ton userform, sinon, rajoute un module à ton projet .

[supersnail]

ça dépend quand tu veux que ton code soit exécuté...

[did103]

Voilà le code de ma fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Extract(str as String, num as Integer)
    Dim pos As Integer
 
    For i = 1 To num
        pos = InStr(1, str, ";")
        If pos = 0 Then
            Extract = str
        Else
            Extract = Left(str, pos - 1)
            str = Mid(str, pos + 1, Len(str))
        End If
    Next i
End Function

Le but est de restituer les données dans le userform lors de l'ouverture.
A la précédente fermeture, ces données ont été enregistrées avec des ; comme séparateurs.

Si la fonctionest dans le code du userform, lors du "show" j'ai une erreur 1004,
indiquant un pb dans le code du userform.
Si je mets la fonction dans un module, le code userform bloque en me signalant "fonction inconnue".

[JackOuYA]

Bonsoir,

on peu voir comment tu utilise ta fonction ?

[did103]

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()
.....
        CA = Extract(info, 1)
        Jour = Extract(info, 2)

[ucfoutu]

Dans un moidule et déclarée publique
Mais :
1) tu devrais définir le type de ta fonction (pas fait...)
2) qu'est cette boucle :

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To num
        pos = InStr(1, str, ";")
        If pos = 0 Then
            Extract = str
        Else
            Extract = Left(str, pos - 1)
            str = Mid(str, pos + 1, Len(str))
        End If
    Next i

qui fait num fois la même chose sans utiliser i ?
Il y a très sûrement mieux à écrire que celà !
Qu'est Num ?
A quoi sert-t-il d'écrire que

Code :

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

str = Mid(str, pos + 1, Len(str))

dans une fonction qui, elle, est censée retourner la valeur Extract.... ?
Tout cela me parait assez anormalement broussailleux ...