creer une fonction dans une macro

[seb1989]

Bonjour,
j'aimerai créer une fonction dans une macro. D'après ce que j'ai compris, on peut créer une fonction en utilisant la fonction macro complémentaire. Mais il me semble que la fonction ne sera plus disponible si l'on change de pc. Ainsi j'aimerai inclure la définition de ma fonction à l'intérieur de la macro mais je ne sais pas comment faire.
merci d'avance.

 

[Staple1600]

Re : creer une fonction dans une macro

Bonjour

Que doit faire ta fonction ?
Comme toujours, regarder ce qui dit l'aide de VBA (touches: ALT+F11 puis F1)

Écriture d'une procédure Function
Une procédure Function est une série d'instructions Visual Basic délimitée par les instructions Function et End Function.
Une procédure FunctionSub est similaire à une procédure ,mais une fonction peut également renvoyer une valeur.
Une procédure Function peut prendre des arguments, tels que les constantes, les variables ou les expressions qui lui sont passées par une procédure appelante.
Si une procédure Function n'a aucun argument, son instruction Function doit comporter des parenthèses vides.
Une fonction renvoie une valeur en affectant une valeur à son nom dans une ou plusieurs instructions de la procédure.
Dans l'exemple suivant, la fonction Celsius convertit des degrés Fahrenheit en degrés Celsius. Lorsque la fonction est appelée depuis la procédure Main, une variable contenant la valeur de l'argument est passée à la fonction. Le résultat du calcul est renvoyé à la procédure appelante et affiché dans un message.

Sub Main()     
temp = Application.InputBox(Prompt:= _         
"Veuillez entrer la température en degrés F.", Type:=1) 
    MsgBox "La température équivaut à " & Celsius(temp) & " degrés C." 
End Sub

 Function Celsius(fDegrees) 
    Celsius = (fDegrees - 32) * 5 / 9 
End Function

 

[seb1989]

Re : creer une fonction dans une macro

je dispose de plusieurs tableaux sur différentes feuilles. Le but est de rentrer comme argument de ma fonction le nom de ma feuille et le nom d'une colonne du tableau sur cette feuille. La fonction me renvoi ensuite X si dans la colonne que j'ai indiqué dans la fonction il y a un X (peu importe ou dans la colonne) ou rien si aucune case n'est coché.

Je compte utiliser ensuite cette fonction dans une macro qui remplirai un autre tableau en fonction des résultats renvoyés par cette fonction.

 

[Staple1600]

Re : creer une fonction dans une macro

Re


Tu as relu mon précédent message ?
(car je l'ai édité)

Si tu joignais un fichier exemple (avec ce que tu as déjà fait) , il serait plus aisé de t'aider.

 

[seb1989]

Re : creer une fonction dans une macro

oui je l'ai relu

 

[Staple1600]

Re : creer une fonction dans une macro

Re


En attendant ta PJ, je vais me faire un café

PS: et donc tu as été voir dans l'aide VBA pour avoir plus d'infos, je suppose ?

EDITION: bonjour pierrejean

 

[seb1989]

Re : creer une fonction dans une macro

Voila ce que j'ai fais rapidement. le but est entait de remplir automatiquement d'un X la dernière feuille résultat. Je veux pouvoir rentrer dans ma fonction le nom de la page et les X1 X2 ... Car c'est une base destiné à s'agrandir ainsi le nombre de feuille sera croissant. De même le nombre de colonne sera croissant.

 

[pierrejean]

Re : creer une fonction dans une macro

Bonjour seb1989

Salut Staple

Un essai

Function x_dans(feuille, colonne)
  Set c = Sheets(feuille).Columns(colonne).Find("x", LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then
     x_dans = True
  Else
  x_dans = False
  End If
End Function

Sub essai()
MsgBox (x_dans("Feuil1", 1))
End Sub

 

[seb1989]

Re : creer une fonction dans une macro

oui pierre c'est ça que je voulais savoir en fait la définition de ma fonction je la mets avant le début de la macro alors ?

 

[pierrejean]

Re : creer une fonction dans une macro

Re

Application a ton fichier

Ps: La fonction est l'equivalent d'une macro a la difference pres qu'elle renvoie un resultat
Elle doit etre placée dans un module standard
Dans une macro elle est utilisée comme toutes les autres fonctions (ex: Ucase(lettre))
dans ton fichier je l'ai utilisée directement dans les cellules

 

[pierrejean]

Re : creer une fonction dans une macro

Re

La macro pour remplir le tableau

Sub remplissage()
Dim feuille As String
For Each cel In Sheets("résultat").Range("B2:I23")
  feuille = Sheets("résultat").Cells(cel.Row, 1)
  If feuille <> "" Then cel.Value = x_dans(feuille, cel.Column)
Next
End Sub

 

[seb1989]

Re : creer une fonction dans une macro

merci pour ton aide.
Mais je n'arrive pas à comprendre où est-ce que tu as définis la fonction x_dans

 

[pierrejean]

Re : creer une fonction dans une macro

Re

Elle est definie dans le module1
Voici le fichier complet