creer une fonction dans une macro

Staple1600

XLDnaute Barbatruc

• 10 Octobre 2010

• #2

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.

Cliquez pour agrandir...

VB:

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

VB:

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

 

Dernière édition: 10 Octobre 2010

Vote positif 0 Vote négatif

S

seb1989

XLDnaute Nouveau

• 10 Octobre 2010

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Octobre 2010

• #4

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.

 

Vote positif 0 Vote négatif

S

seb1989

XLDnaute Nouveau

• 10 Octobre 2010

• #5

Re : creer une fonction dans une macro

oui je l'ai relu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Octobre 2010

• #6

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

 

Dernière édition: 10 Octobre 2010

Vote positif 0 Vote négatif

S

seb1989

XLDnaute Nouveau

• 10 Octobre 2010

• #7

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.

 

Pièces jointes

• base.xls

  36 KB · Affichages: 95
• base.xls

  36 KB · Affichages: 113
• base.xls

  36 KB · Affichages: 117

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Octobre 2010

• #8

Re : creer une fonction dans une macro

Bonjour seb1989

Salut Staple

Un essai

VB:

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

 

Vote positif 0 Vote négatif

S

seb1989

XLDnaute Nouveau

• 10 Octobre 2010

• #9

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 ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Octobre 2010

• #10

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

 

Pièces jointes

• base.zip

  10.9 KB · Affichages: 47
• base.zip

  10.9 KB · Affichages: 38
• base.zip

  10.9 KB · Affichages: 49

Dernière édition: 10 Octobre 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Octobre 2010

• #11

Re : creer une fonction dans une macro

Re

La macro pour remplir le tableau

VB:

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

 

Vote positif 0 Vote négatif

S

seb1989

XLDnaute Nouveau

• 10 Octobre 2010

• #12

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Octobre 2010

• #13

Re : creer une fonction dans une macro

Re

Elle est definie dans le module1
Voici le fichier complet

 

Pièces jointes

• base.zip

  12 KB · Affichages: 49
• base.zip

  12 KB · Affichages: 53
• base.zip

  12 KB · Affichages: 61

Vote positif 0 Vote négatif