function pour userform

Bonjour à tous :D

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 :question:
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.

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 .

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

Voilà le code de ma fonction:

Code:

---

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

Bonsoir,

on peu voir comment tu utilise ta fonction ?

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:

---

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:

---

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

Code:

---

1 2 3 4 5

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

---

Intéresse-toi à la fonctrion split :lol:

Et Info c'est quoi merci d'être plus précis, si tu veux qu'on trouve ton problème ton probléme ne viens pas de ta fonction celle-ci fonctionne (même si l'on peu y trouver des problémes hors sujets....)

Citation:

---

Envoyé par ucfoutu

Intéresse-toi à la fonctrion split :lol:

---

c'est pas le probléme, celle-ci ne supprimera pas les erreur 1004 ;)

Ouais... ???

Tiens (avec ma boule de cristal) :

tout sur la userform (pas de module) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Command1_Click() Dim toto As String toto = "bonjour;Salut;bye" MsgBox extract(toto, 1) MsgBox extract(toto, 2) MsgBox extract(toto, 3) End Sub   Private Function extract(toto As String, ou As Integer) as string titi = Split(toto, ";") If ou - 1 > UBound(titi) Then extract = "": Exit Function extract = titi(ou - 1) End Function

---

A comprendre et adapter au besoin (si ma boule n'a pas bien fonctionné ...:lol:

Pour UC...

Le "mid" permet (permettra) d'extraire le champ désiré correspondant au "num".
La boucle sur "num" me permet d'évacuer le début de ma "str" jusqu'au ;.

Je viens de découvrir split.
Tu es un peu sybillin... tu utilises des tableaux pour charger les données d'une Form?
C'est vrai que ça à l'air pas mal. Mais peut-on donner des noms de tableaux à des Controlbox?

Pas facile de discuter à 3!!!

En tout cas, merci pour vos réponses...

Jacques Ouille, info est une chaîne de caractère stockée dans une cellule lors de la sortie précédente de la Form. Les infos sont séparées par des ;. Je les récupère avec Extract. Si la fonction est en module et appelée par une macro, elle marche correctement.

L'erreur 1004 semble venir de:

Code:

---

Dim info As String

---

J'avais mis le Dim dans le code de la Form. C'est pas bon?

Si je l'enlève, plus d'erreur 1004, par contre ça bloque sur le passage de variable str à la fonction (donné comme string).

Toujours l'erreur 1004, même avec Split qui a l'avantage de simplifier l'écriture (mais pas obligatoirement la compréhension, dans mon cas).

Citation:

---

Envoyé par did103

.....
Toujours l'erreur 1004, même avec Split qui a l'avantage de simplifier l'écriture (mais pas obligatoirement la compréhension, dans mon cas).

---

oui c'est bien ce que je pensai c'est pas en utilisant Split que tu va supprimer ton probléme ;)


Où dans le code de la form, dans la fonction Initialize ? et comment l'initialise tu justement cette variable ?

Ce serait pas plûtot

Code:

---

Public info As String

---

??

:D salut à tous...

J'ai compris d'où vient mon erreur 1004.

Il me faut le numéro de ligne sélectionnée avant d'appeler la Form, pour que celle-ci enregistre lors de la fermeture les infos dans une cellule de cette ligne.

Je passais cette info par un contrôle Text (je sais pas génial :?).
Mais lors de la première exec, le contrôle s'appelle Text1 et ceci plante

Code:

---

info = Sheets("Tut").Range("AQ" & Text1)

---

avant l'exécution de la fonction

C'est Super Escargot qui vient de me donner la solution:
utiliser une variable Public plutôt que le Text1 :!:

En réponse à ma question zinitiale:
La fonction peut être indifféremment dans le code de la Form (Function...End Function), ou dans un module (Public Function...End Function).

Merci à tous pour votre aide.