Discussion :

[tiyolx]

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.

[oOVaveOo]

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

[Jeannot45]

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

Bonne lecture

[tiyolx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tiyolx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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