[E-00][VBA] Créer une fonction et ses arguments

Bonjour à tous,

Je me demande si on peut créer une fonction et ses arguments.

Ex:

J'utilise souvent des questions qui attendent des dates en réponse.
Mon idée est de créer une fonction qui demande des arguments et le reste utilise la fonction.

merci de votre aide.

C'est possible
Voir l'aide vba de "function () / end function"

:salut:

Voici à lire un excellent tuto sur la création de fonctions personnelles

Bonne lecture

Bonjour à tous,

D'abord merci pour l'intérêt que vous me portez.

Je suis pas certain de vouloir une fonction en fait car elle ne permet pas mon programme.

j'utilise une procédure dont je ne connais pas encore le nom pour faire varier certain mot dans mes lignes d'instruction afin de ne pas écrire cinquante fois les mêmes lignes.

voici mon idée

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ouverture_de_ma_procedure br_2opt_changer(n_ligne As Integer, question As String, eg1 As String, eg2 As String, br1 As String, br2 As String) If Cells(n_ligne, Range(question).Column).Value = eg1 Then br1.Value = True ElseIf Cells(n_ligne, Range(question).Column).Value = eg2 Then br2.Value = True Else br1.Value = False br2.Value = False End If fermeture_de_ma_procedure

---

Si vous avez rien compris, poser moi des questions.

merci

Bonjour à tous,

Ce n'est pas une fonction mais on peut utilise un principe équivalent, si je dis des bêtises n'hésitez pas à me corrigé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub verifieTexte(LaChaine As String, lavariable As String) Dim reg As New VBScript_RegExp_55.RegExp Dim ValideTexte As Boolean   reg.Pattern = "^[A-Z]{4}$" ValideTexte = reg.Test(LaChaine)   Set reg = Nothing   If LaChaine <> "" And ValideTexte = False Then MsgBox ("Merci de saisir quatre lettres !") Me.Controls(lavariable).Value = "" Me.Controls(lavariable).SetFocus End If End Sub

---

Dans mon événement j'utilise un call verifieTexte pour appeler les instructions.

Merci à tous