J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve
aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en charge
de récupérer les données necessaire et de les mettre dans la ListBox en
question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de
passé la ListBox en argument dans la fonction, mais ca ne marche pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bourby
bonjour,
vois dans l'aide l' "évènement Initialize": dans une macro Private Sub UserForm_Initialize(), tu pourras affecter les valeurs de ton choix à la Listbox, ou à tout autre contrôle.
Espérant t'avoir aidé.
Cordialement
Bourby
"dvincent" a écrit dans le message news:
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en charge
de récupérer les données necessaire et de les mettre dans la ListBox en question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de passé la ListBox en argument dans la fonction, mais ca ne marche pas.
Merci pour votre aide.
Vincent.
bonjour,
vois dans l'aide l' "évènement Initialize": dans une macro
Private Sub UserForm_Initialize(), tu pourras affecter les valeurs de ton
choix à la Listbox, ou à tout autre contrôle.
Espérant t'avoir aidé.
Cordialement
Bourby
"dvincent" <vdartois@francelot.com> a écrit dans le message news:
OVhEXhO7EHA.1204@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve
aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une
ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en
charge
de récupérer les données necessaire et de les mettre dans la ListBox en
question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de
passé la ListBox en argument dans la fonction, mais ca ne marche pas.
vois dans l'aide l' "évènement Initialize": dans une macro Private Sub UserForm_Initialize(), tu pourras affecter les valeurs de ton choix à la Listbox, ou à tout autre contrôle.
Espérant t'avoir aidé.
Cordialement
Bourby
"dvincent" a écrit dans le message news:
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en charge
de récupérer les données necessaire et de les mettre dans la ListBox en question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de passé la ListBox en argument dans la fonction, mais ca ne marche pas.
Merci pour votre aide.
Vincent.
dvincent
Voici donc la solution finalement trouvé hier soir :
Dans les formulaires :
Sub UserForm_Initialize()
' lbDateContact est une listBox ' Appel la fonction "BlocContact et lui passe en paramètre la listBox BlocContact lbDateContact
end sub = Dans le module
Function BlocContact(ByRef contactListe As Object) OpenBDD MaBase Set rs = db.OpenRecordset("SELECT .....") With contactListe While rs.EOF = False i = i + 1 If i > 1 Then ext = "eme" Else ext = "ere" .AddItem (i & ext & " propos. : " & Format(rs.Fields("strDateProposition"), "dd/mm/yyyy")) rs.MoveNext Wend End With CloseBDD End Function
ainsi on peut remplir une listbox à distance. J'ai mis pas mal de temps pour trouver, donc si c'est aussi util à quelqu'un !
Donc à partir de n'importe quel formulaire on peut remplir sa listbox passé en paramètre, rien n'empêche d'améliorer l'ensemble ;-)
"dvincent" a écrit dans le message de news:
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en charge
de récupérer les données necessaire et de les mettre dans la ListBox en question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de passé la ListBox en argument dans la fonction, mais ca ne marche pas.
Merci pour votre aide.
Vincent.
Voici donc la solution finalement trouvé hier soir :
Dans les formulaires :
Sub UserForm_Initialize()
' lbDateContact est une listBox
' Appel la fonction "BlocContact et lui passe en paramètre la listBox
BlocContact lbDateContact
end sub
= Dans le module
Function BlocContact(ByRef contactListe As Object)
OpenBDD MaBase
Set rs = db.OpenRecordset("SELECT .....")
With contactListe
While rs.EOF = False
i = i + 1
If i > 1 Then ext = "eme" Else ext = "ere"
.AddItem (i & ext & " propos. : " &
Format(rs.Fields("strDateProposition"), "dd/mm/yyyy"))
rs.MoveNext
Wend
End With
CloseBDD
End Function
ainsi on peut remplir une listbox à distance.
J'ai mis pas mal de temps pour trouver, donc si c'est aussi util à quelqu'un
!
Donc à partir de n'importe quel formulaire on peut remplir sa listbox passé
en paramètre, rien n'empêche d'améliorer l'ensemble ;-)
"dvincent" <vdartois@francelot.com> a écrit dans le message de news:
OVhEXhO7EHA.1204@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve
aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une
ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en
charge
de récupérer les données necessaire et de les mettre dans la ListBox en
question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de
passé la ListBox en argument dans la fonction, mais ca ne marche pas.
Voici donc la solution finalement trouvé hier soir :
Dans les formulaires :
Sub UserForm_Initialize()
' lbDateContact est une listBox ' Appel la fonction "BlocContact et lui passe en paramètre la listBox BlocContact lbDateContact
end sub = Dans le module
Function BlocContact(ByRef contactListe As Object) OpenBDD MaBase Set rs = db.OpenRecordset("SELECT .....") With contactListe While rs.EOF = False i = i + 1 If i > 1 Then ext = "eme" Else ext = "ere" .AddItem (i & ext & " propos. : " & Format(rs.Fields("strDateProposition"), "dd/mm/yyyy")) rs.MoveNext Wend End With CloseBDD End Function
ainsi on peut remplir une listbox à distance. J'ai mis pas mal de temps pour trouver, donc si c'est aussi util à quelqu'un !
Donc à partir de n'importe quel formulaire on peut remplir sa listbox passé en paramètre, rien n'empêche d'améliorer l'ensemble ;-)
"dvincent" a écrit dans le message de news:
Bonjour,
J'ai un petit soucis, voici ce que je souhaite faire, mais je ne trouve aucun moyen d'y arriver :
Je suis sous Excel97, j'ai 3 formulaires qui contiennent chacun une ListBox.
Cette ListBox doit être rempli quand le formulaire est actif.
Je possède dans un module une fonction nommée BlocContact qui est en charge
de récupérer les données necessaire et de les mettre dans la ListBox en question.
Schematiquement celà ce ferai ainsi :
Le formulaire appel la fonction BlocContact qui lui rempli son contenu.
C'est donc cette partie de code que je n'arrive pas à faire, j'ai tenté de passé la ListBox en argument dans la fonction, mais ca ne marche pas.
