Discussion :

[tytos]

Bonjour voila mon problème ,j'aimerais exécuter les codes derrière un bouton que j'ai créer dans un userforme . j'ai poser des conditions qui lorsqu'ils ne sont pas vérifier l'exécution doit s’arrêter ,mais le problème est que si les conditions sont respectées la suite du code ne s'execute plus.
voici le code en question . merci

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Enrgstr_Click()
 
If Qtité_cmde.Value = "" Then MsgBox ("veuillez entré unne quantité")
Exit Sub
    If prix_achat.Value = "" Then MsgBox ("veuillez entré le prix d'achat")
Exit Sub
 
 
'enrégistrement des produits comandées
For i = 1 To Derline(1, 1)
If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) Then
Sheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.Value
    End If
 
Next i
If (flag = False) Then
 
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("PRODUIT").Cells(2, 1) = Nom_prdt.Value
Sheets("PRODUIT").Cells(2, 2) = Type_prdt.Value
Sheets("PRODUIT").Cells(2, 3) = code_prdt.Value
Sheets("PRODUIT").Cells(2, 4) = Qtité_cmde.Value
Sheets("PRODUIT").Cells(2, 6) = prix_achat.Value
Sheets("PRODUIT").Cells(2, 8) = Dat_achat.Value
Sheets("PRODUIT").Cells(2, 9) = Dat_premp.Value
Sheets("PRODUIT").Cells(2, 10) = Nom_grosis.Value
Sheets("PRODUIT").Cells(2, 11) = Adres_gross.Value
 
End If
 
Nom_prdt.Value = ""
Type_prdt.Value = ""
code_prdt.Value = ""
Qtité_cmde.Value = ""
prix_achat.Value = ""
Dat_achat.Value = ""
Dat_premp.Value = ""
Nom_grosis.Value = ""
Adres_gross.Value = ""
 
Rows("2:2").Select
    With Selection.Font
        .Name = "Calibri"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Selection.Font.Bold = False
    Selection.Font.Italic = False
End Sub

[unparia]

Bonjour
Lorsque l'on écrit (exemple) :

Code :

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

1
2
if toto = 10 then titi = "coucou"
tata = "voilà"

seule la valeur de titi est subordonnée à celle de toto
tata n'est pas dans l'expression conditionnelle et prend donc systématiquement la valeur "voilà".

(B.A.BA, quand même !!! ...)

[tytos]

Bonjour
Lorsque l'on écrit (exemple) :

Code :

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

1
2
if toto = 10 then titi = "coucou"
tata = "voilà"

seule la valeur de titi est subordonnée à celle de toto
tata n'est pas dans l'expression conditionnelle et prend donc systématiquement la valeur "voilà".

(B.A.BA, quand même !!! ...)

merci

[Pierre Fauconnier]

Salut.

Tu dois refermer tes blocs if... Car comme tu l'écris là, le premier Exit Sub est toujours exécuté.

Code :

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

1
2
3
4
5
6
7
8
If Qtité_cmde.Value = "" Then
    MsgBox ("veuillez entré unne quantité")
    Exit Sub
End If
If prix_achat.Value = "" Then
    MsgBox ("veuillez entré le prix d'achat")
    Exit Sub
End If

Cela étant dit, personnellement, je n'aime pas du tout les EXIT SUB...

[tytos]

Salut.

Tu dois refermer tes blocs if... Car comme tu l'écris là, le premier Exit Sub est toujours exécuté.

Code :

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

1
2
3
4
5
6
7
8
If Qtité_cmde.Value = "" Then
    MsgBox ("veuillez entré unne quantité")
    Exit Sub
End If
If prix_achat.Value = "" Then
    MsgBox ("veuillez entré le prix d'achat")
    Exit Sub
End If

Cela étant dit, personnellement, je n'aime pas du tout les EXIT SUB...

merci ca ma beaucoup aider

[Pierre Fauconnier]

Cela dit, je n'aime pas mettre les tests de validation dans le code du bouton. Je préfère déléguer cette tâche à une fonction dont l'unique responsabilité est de tester la saisie.

Tu pourrais avoir un code du genre:

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
Private Sub btnValidate_Click()
  Dim chk As String
 
  chk = CheckDatas()
  If chk = "" Then
    ...
    ...
  Else
    MsgBox chk
  End If
End Sub
 
Function CheckDatas() As String
  Dim chk As Integer
 
  If quantité.Value = "" Then chk = "Qté manquante"
  If prix.Value = "" Then chk = chk & vbCrLf & "Prix manquant"
 
  CheckDatas = chk
End Function

C'est à mon avis plus lisible et plus maintenable, et cela respecte un grand principe de programmation: la fonction à responsabilité unique.

[Invité]

Bonjour,

Dans le même esprit, j'ai proposé un code pour qualifié les champs obligatoire!

Tu peux même si tu le souhaite définir si le contrôle contient du texte une date ou un numérique!

https://www.developpez.net/forums/d1...a/#post7352588

[unparia]

Bonjour
La stratégie "universelle" n'existe pas
Un "champ" peut, selon le cas :
- être obligatoire purement et simplement
- n'être obligatoire que si ceci ou cela mais (si ni ceci ni cela) :
------- être quand même "remplissable"
ou
------- ne pas alors être "remplissable"

etc ... etc ... (les combinaisons peuvent être très nombreuses)

Très souvent, le développeur jouera parallèlement avec les propriétés enabled, visible, tabstop et les setffocus


Utiliser la propriété tag peut être une bonne idée, mais elle prive de l'utilisation de cette propriété à d'autres fins éventuelles

L'utilisation d'arrays n'est pas rare

Il n'est pas toujours indispensable de préciser le champ fautif dans un message d'avertissement. Il suffit par exemple, lorsqu'il s'agit d'une zone d'édition, de dire qu'il s'agit du champ auquel on donne le focus, sans nécessité d'en préciser le nom.

[Invité]

Bonjour unparia,
Oui ,mais il m'es arrivé de faire un csv ";" dans le tag pour dire si a=true b obligatoire !

Les règles d nommages sont là pour faire de distingo!

[unparia]

Bonjour dysorthographie

Oui ,mais il m'es arrivé de faire un csv ";" dans le tag

cela m'est également arrivé (il y a quelques années ...), mais avec un séparateur autre (le caractère de code 1)
J'ai laissé tomber cette stratégie (elle ralentit, la "chaîne" ainsi stockée est limitée, etc ...)

Amitiés.