Appel de procédure d'un module dans un autre module

Version imprimable

bonjour à tous...
j'ai suivi quelques exemples d'appel de procédures de modules. j'ai essayé de comprendre et l'appliquer.
j'ai donc créé un module1 dans lequel j'ai inséré ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Public Xligne As Long
 
Sub Ajouter_données()
With Sheets("Base de données")
    If T_nom1 <> "" Or T_mat1 <> "" Or T_date1 <> "" _
    Or C_fction1 <> "" Or T_ecole1 <> "" Or C_classe1 <> "" Or C_secteur1 <> "" Then
        If MsgBox("Voulez-vous enregistrer" & " " & T_nom1 & " " & T_pre1 & " dans la base de données?" _
        , vbQuestion + vbYesNo) = vbNo Then Exit Sub
    Xligne = .Range("A" & Rows.Count).End(xlUp).Row
    .ListObjects("Tab_Prim").ListRows.Add
    .Range("A" & Xligne) = T_nom1
    .Range("B" & Xligne) = T_pre1
    .Range("C" & Xligne) = T_mat1
    .Range("D" & Xligne) = T_codi1
    .Range("E" & Xligne) = T_date1
    .Range("F" & Xligne) = T_lieu1
    .Range("G" & Xligne) = C_emploi1
    .Range("H" & Xligne) = C_fction1
    .Range("I" & Xligne) = C_genre1
    .Range("J" & Xligne) = T_dren1
    .Range("K" & Xligne) = T_date_iep1
    .Range("L" & Xligne) = T_post1
    .Range("M" & Xligne) = T_fp1
    .Range("N" & Xligne) = T_ecole1
    .Range("O" & Xligne) = C_classe1
    .Range("P" & Xligne) = T_num1
    .Range("Q" & Xligne) = T_mail1
    .Range("R" & Xligne) = T_iep1
    .Range("S" & Xligne) = T_code_iep1
    .Range("T" & Xligne) = C_secteur1
    Else
    MsgBox "veuillez renseignez tous les champs SVP", vbExclamation, "Champs non saisis"
    End If
End With
 
End Sub

et dans le module principal de l'userform( la procédure du control Bouton), j'ai mis ce code

Code:

1
2
3
Private Sub BT_new1_Click()
Call Module1.Ajouter_données
End Sub

lors de l'appel de la procédure, il est mentionné variable non définit et le nom du textbox( T_nom1) est surligné en jaune.
j'aimerais comprendre le problème. merci à vous

16/02/2021, 19h28
Patrice740

Bonjour,

C'est simple, dans le module1, T_nom1 n'existe pas. C'est un contrôle de l'userform.
Il faut toujours préciser la parentalité (et c'est bien aussi de préciser la propriété).

De même, seules les feuilles de calcul contiennent des objets Range.
Dans ce contexte, cette ligne est incorrecte :

Code:

With Sheets("Base de données")

La bonne syntaxe est :

Code:

With Worksheets("Base de données")
16/02/2021, 19h43
Thumb down
Bonsoir,
Code:

1 2 Sub Ajouter_données(Usf as Object) If Usf.T_nom1
Code:

1 2 3 Private Sub BT_new1_Click() Call Module1.Ajouter_données(Me) End Sub
Notes que préciser Module1 ne présente d'intérêt que si tu disposes d'une autre méthode Ajouter_données dans un autre module !
16/02/2021, 19h51
Mr l'Ashanti
merci à vous deux pour l'explication.
il me semble que le premier code n'est pas complet
Code:

1 2 Sub Ajouter_données(Usf as Object) If Usf.T_nom1
.
16/02/2021, 19h53
Thumb down

Je n'avais pas l'intention de réécrire tout ton code, mais j'imagine que tu as compris !
If Usf.T_nom1 <> "" Or Usf.T_mat1 etc...
16/02/2021, 19h59
Mr l'Ashanti

reponse Thumb Down...
j'ai compris ce que voulez me faire comprendre. si je comprends bien, devant le nom de chaque controle je dois mettre Usf?
16/02/2021, 20h08
Thumb down

Exactement.

Dans ta Sub Ajouter_données je défini un paramètre Usf

Code:

Sub Ajouter_données(Usf as Object)

Me représente le Userform !

Ici j'appelle la méthode Ajouter_données en fournissant le Userform !

Code:

Call Module1.Ajouter_données(Me)