Aide sur function en vba

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #2

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

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 7 Mars 2008

• #3

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

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #4

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.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #5

Re : Aide sur function en vba

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Mars 2008

• #6

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.

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 7 Mars 2008

• #7

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

@+

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 7 Mars 2008

• #8

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"

@+

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 8 Mars 2008

• #9

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.

@+

 

Pièces jointes

• Function Calcul.jpg

  19.3 KB · Affichages: 51

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Mars 2008

• #10

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

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 8 Mars 2008

• #11

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

@+

 

Pièces jointes

• Calcul.zip

  48.4 KB · Affichages: 33
• Calcul.zip

  48.4 KB · Affichages: 47
• Calcul.zip

  48.4 KB · Affichages: 41

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 9 Mars 2008

• #12

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

@+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 9 Mars 2008

• #13

Re : Aide sur function en vba

Bonjour

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

Ce lien n'existe plus

JP

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 9 Mars 2008

• #14

Re : Aide sur function en vba

Bonjour JP14,

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

@+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 9 Mars 2008

• #15

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

 

Dernière édition: 9 Mars 2008

Vote positif 0 Vote négatif