Lancer à partir d'un macro une fonction

C

Celine

Guest
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

XLDnaute Barbatruc
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
 
C

Celine

Guest
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]
 

Pièces jointes

  • test03_20050909160037.zip
    45.1 KB · Affichages: 16

ChTi160

XLDnaute Barbatruc
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
Code:
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
 

Pièces jointes

  • Personnel.zip
    7.3 KB · Affichages: 14
  • Personnel.zip
    7.3 KB · Affichages: 16
  • Personnel.zip
    7.3 KB · Affichages: 16

ChTi160

XLDnaute Barbatruc
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]
 

Pièces jointes

  • Personnel_20050909164650.zip
    7.7 KB · Affichages: 18

Discussions similaires

Réponses
26
Affichages
569
Réponses
12
Affichages
326

Membres actuellement en ligne

Statistiques des forums

Discussions
312 827
Messages
2 092 555
Membres
105 451
dernier inscrit
mariane_lp