Aide sur function en vba

[mamour60]

Bonjour a tous,

Comment dire a l'utilisateur de la function a quoi correspond les Saisies,

Function Calcul (Date_jour as date, Code as variant)

Date_jour = "Selectionner la date a traiter"
Code = "Selection le code de la DLV"

Ici il y a le code de la function

En function

Merci de votre aide a tous
Bonne Journée

 

[joss56]

Re : Aide sur function en vba

Salut

Comme ça, peut-être

Function Calcul (Date_jour as date, Code as variant)

msgbox "Date_jour :Selectionner la date a traiter"
msgbox "Code :Selection le code de la DLV"

Ici il y a le code de la function

End function

 

[mamour60]

Re : Aide sur function en vba

Merci joss56

mais cela ne va pas, je veux du texte comme lorsque que l'on utilise
la function sous.total(), il y a la saisie et en dessous il y a le texte
correspondant.

merci encore

 

[joss56]

Re : Aide sur function en vba

Désolé, mais là je suis au taquet de mes connaissances
D'autres sauront te dire
Bonne journée.

 

[Cousinhub]

Re : Aide sur function en vba

Bonjour,
peux-tu joindre tout le code de la fonction, on verra ce qu'on peut faire

 

[Guest]

Re : Aide sur function en vba

Bonjour,

Un pis aller est d'ajouter une description à la function en passant par Outils/Macro/Macros ou (ALT+F8).

Même si le nom de la function n'apparait pas dans la liste, inscrire son nom dans la zone de text 'Nom de la macro' puis cliquer sur le bouton options.
Ecrire la description de la fonction dans la zone 'Description'. enfin Cliquer sur Ok et fermer la fenêtre de liste des macros.

L'utilisateur, en clicquant sur le F à gauche de la barre de formule ou en choisissant 'insérer une fonction', accèdera au descriptif de la fonction.

 

[mamour60]

Re : Aide sur function en vba

Bonjour bhbh

Voici le code de ma fonction

Function Calcul(Date_jour As Date, Code As Variant)
Dim DLUO_Temp As String, DLUO As String

Application.Volatile

Select Case Code

Case 13
DLUO_Temp = DateAdd("m", 6, Date_jour)
Calcul_Dluo = DateSerial(Year(DLUO_Temp), Month(DLUO_Temp), 0) + 1

Case 14
DLUO_Temp = DateAdd("m", 9, Date_jour)
Calcul_Dluo = DateSerial(Year(DLUO_Temp), Month(DLUO_Temp), 0) + 1

Case 15
DLUO_Temp = DateAdd("m", 12, Date_jour)
Calcul_Dluo = DateSerial(Year(DLUO_Temp), Month(DLUO_Temp), 0) + 1

Case Else

End Select

End Function

@+

 

[mamour60]

Re : Aide sur function en vba

Merci Hasco,

Cette solution marche mais pour une partie seulement, maintenant je
voudrais que lorsque l'on se met sur "Date_jour", en bas de la formule
cela donne "Date_jour = Mettre la date de depart"

@+

 

[mamour60]

Re : Aide sur function en vba

Bonjour a tous,

Voici ou je veux mettre le texte dans ma fonction (Voir l'image ci-joint)

Bon week end a tous.

@+

 

[Guest]

Re : Aide sur function en vba

Bonjour,

Normalement si tu fais comme dis précédement, cela fonction correctement.

Une fois les opération éffécutées: dans la barre de formule -> '=MaFunction( et en cliquant sur fx devant la barre de formule les indications apparaissent comme rentrées aux étapes précédentes.

Eventuellement joins le classeur avec la function

 

[mamour60]

Re : Aide sur function en vba

Bonjour Hasco,

Voici le fichier, Ton systeme marche pour faire la description de la formule,
mais pas pour la description du champ Date_jour lorsque je le selection comme dans la fonction SOUS.TOTAL() par exemple.

merci de ton aide

Bonne journée

@+

 

[mamour60]

Re : Aide sur function en vba

Bonjour a tous,

N'ayant pas de nouvelle de votre part je vous remercie quand même de votre aide. J'utiliserais la méthode de Hasco pour faire une légende sur les codes.

Merci a Hasco et Joss56 de leur aide.

Bon Dimanche à tous

@+

 

[jp14]

Re : Aide sur function en vba

Bonjour

Ci dessous une réponse au problème posée.

Ce lien n'existe plus

JP

 

[mamour60]

Re : Aide sur function en vba

Bonjour JP14,

Merci de ton aide mais je n'est pas reussis a utiliser le fichier.

@+

 

[jp14]

Re : Aide sur function en vba

Bonjour

J'ai trouvé la procédure relativement complexe, c'est pourquoi j'ai abandonné cette solution.
De plus elle demande une DLL.

J'utilise des noms "à rallonge" pour nommer les champs.
Autre solution
Utiliser un menu comportant des options pour afficher l'aide pour les fonctions.

JP