Discussion :

[jejeaunet75]

Bonjour à tous,

Je me permets de venir vers vous car je suis bloqué dans un contrôle massif de mes données dans un formulaire.
Pour faire simple, j'ai construit une sorte de tableau dans mon formulaire avec de multiples zones de texte et je souhaite contrôler ces données.

J'ai volontairement appelé mes zones de texte : A1,A2....B1,B2,...,C1,C2 pour avec des boucles contrôler ses zones de texte et éviter d'écrire 12202 fois la même procédure. Ci-dessous mon code...

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
17
18
19
20
21
22
23
24
25
26
Private Sub bc_validation2_Click()
 
Dim ZONETEXTE As String
 
Application.ScreenUpdating = False ' Gain important de temps d'execution
Worksheets("Parametres").Visible = False 'Afficher la feuille "parametre"
 
    'Partie 1 : Contrôler la validité des données
 
    For LETTRE = 65 To 66
        For NBRE = 1 To 16
 
ZONETEXTE = Chr(LETTRE) & NBRE
 
        'Nom
   If Chr(LETTRE) & NBRE & ".Value" = "" Then
        Chr (LETTRE) & NBRE & ".Value" = 0
    If Not IsNumeric(Chr(LETTRE) & NBRE) Then
          MsgBox " Veuillez saisir uniquement des chiffres dans les zones de texte  "
        Chr (LETTRE) & NBRE.SetFocus
    End If
 
        Next NBRE
    Next LETTRE
 
End Sub

Il doit y avoir un problème sur la manière dont "j'appelle" mes zones de texte car cela ne fonctionne pas...
Je suis preneur de vos bonnes idées et vos suggestions car je suis à court d'idée...

D'avance je vous remercie.

Bonne journée à vous,

[Jean-Philippe André]

Salut,

passe par la collection Controls de ton formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
With Me.Controls(Chr(LETTRE) & NBRE)
If .Value = "" Then
        .Value = 0
    If Not IsNumeric(.Value) Then
          MsgBox " Veuillez saisir uniquement des chiffres dans les zones de texte  "
        .SetFocus
    End If
End If
End With

[jejeaunet75]

Bonjour jpcheck,

Tout d'abord, un grand merci pour ta réponse rapide.

Je viens d'essayer et ça ne fonctionne pas. J'ai un message d'erreur qui me dit l'argument est non valide.

D’où viendrait mon problème?

[parmi]

Bonjour,

Sur quelle ligne survient l'erreur ?

[jejeaunet75]

Bonjour à tous,

En cherchant pendant un certain temps sur les forums, j'ai trouvé une solution (qui marche ).

Voici le code avec la modif effectuée, ça pourra éventuellement servir à des personnes qui seraient dans la même situation que moi.

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
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub bc_validation2_Click()
 
Dim ZONETEXTE As String
 
Application.ScreenUpdating = False ' Gain important de temps d'execution
Worksheets("Parametres").Visible = False 'Afficher la feuille "parametre"
 
    'Partie 1 : Controler la validité des données
 
    For LETTRE = 65 To 66
        For NBRE = 1 To 16
 
ZONETEXTE = Chr(LETTRE) & NBRE
 
        'Nom
    If Me.Controls(Chr(LETTRE) & NBRE).Text = "" Then
        Me.Controls(Chr(LETTRE) & NBRE).Text = 0
 
    ElseIf Not IsNumeric(Me.Controls(Chr(LETTRE) & NBRE)) Then
         MsgBox " Veuillez saisir uniquement des chiffres dans les zones de texte  "
       Me.Controls(Chr(LETTRE) & NBRE).SetFocus
    End If
 
        Next NBRE
    Next LETTRE
 
End Sub

[Theze]

Bonjour,

Une autre piste. Attention au point et à la virgule dans les TextBox :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub bc_validation2_Click()
 
    Dim Tbl(1 To 32) As String
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
 
    'utilise un tableau pour stocker les noms
    For I = 65 To 66
 
        For J = 1 To 16
 
            K = K + 1
            Tbl(K) = Chr(I) & J
 
    Next J, I
 
    'couleur du fond par défaut
    For I = 1 To UBound(Tbl): Me.Controls(Tbl(I)).BackColor = &H80000005: Next I
 
    For I = 1 To UBound(Tbl)
 
        With Me.Controls(Tbl(I))
 
            If Not IsNumeric(.Text) Then
 
                'matérialise par une couleur rouge
                .BackColor = &HFF&
                MsgBox "Veuillez saisir uniquement des chiffres dans les zones de texte !"
                .SetFocus
 
                Exit Sub
 
            End If
 
        End With
 
    Next I
 
    MsgBox "Tout est OK !"
 
End Sub