Lancer à partir d'un macro une fonction

[Celine]

Bonjour le forum,
J'ai un petit problème:je n'arrive pas à lancer à partir d'un macro une fonction qui se trouve dans le code d'un useform.
C'est peut-etre parce que la fonction inclut des controles contenues dans cet userform.
J'ai déjà essayé aussi de copier la fonction dans un module mais ça n'a pas toujours marché.
Au secours.
A plus

 

[ChTi160]

Salut Celine

bonjour le Forum

je pense qu'il serait bon pour espérer une réponse de mettre un fichier joint (Zip-50ko sans caractères spécieux ni vides dans le titre)
pour expliquer un peu de quoi il retourne Lol

car la c'est pas évident

A bientôt

 

[Celine]

Bonjour Jean-Marie,le forum,
Je vous envoie un fichier que j'ai recuperé sur le forum.
Dans ce fichier,vous allez trouver la fonction Personnel,qui se trouve dans le useform navigateur_t.
Si vous deplacez cette focntion dans un module,vous allez avoir le meme erreur que j'ai rencontré.
En generalisant ce problème,je cherche la solution pour que je puisse corriger mon programme.
Voili,voilou.
A plus [file name=test03_20050909160037.zip size=46188]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test03_20050909160037.zip[/file]

 

[ChTi160]

Re Celine

voila ce que j'ai fait d'après ce que j'ai compris Lol
j'ai adapté la macro de @+Thierry au bouton personnel du Userform
tu regardes le fichier et tu nous tiens au courant
la Macro est celle-ci

Private Sub CommandButton1_Click()
Dim Cell As Range
Dim Ws As Worksheet
Set Ws = Worksheets('Feuil1')
'ici on vide la listebox
Me.ListBox1.Clear
'ici pour chaque cellule de la plage A2 jusqu'a la premiere ligne non vide _
rencontrée en partant du bas
For Each Cell In Ws.Range('A2:A' & Ws.Range('A65536').End(xlUp).Row)
'si la cellule n'est pas vide on rempli la listBox
    If Cell.Value <> '' Then Me.ListBox1.AddItem Cell
Next Cell
End Sub

[file name=Personnel.zip size=7441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Personnel.zip[/file]

Message édité par: Chti160, à: 09/09/2005 16:45

 

[Celine]

Re,
Je viens de le telecharger.
Après un clic sur le bouton useform,une erreur s'affiche.
je vais voir de près et je vous tiendrai au courant.
Bon week-end

 

[ChTi160]

re
je te l'ai modifié arff j'ai collé sur le bouton la macro que j'ai supprimé

supprime le premier excuse [file name=Personnel_20050909164650.zip size=7922]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Personnel_20050909164650.zip[/file]