Discussion :

[harach]

Bonjour,
j'espere que la réponse n'est pas deja présente dans un post que j'aurais raté ...
Je débute en vb (et en programmation tout court) cependant je me lance dans un petit programme de saisie de commande.. bref voilà le topos:

j'ai quelques textbox dans mon form dans le lequel on est invité ou non à cocher un produit puis saisir une quantité.
Les valeurs sont ensuite reportées dans un tableau excel.
J'ai mis un controle en cas d'oublie de saisie de quantité si l'on a coché la case du produit avant:
If Me.Txtchoix1.Value = "" And Me.CheckBoxchoix1.Caption = "Commandé" Then
MsgBox "Vous devez saisir une quantité pour le choix 1."
End If
Si rien n'est coché ni quantifié, alors la cellule "quantité" de mon tableau est vierge OR je souhaite que cette cellule prenne la valeur que je souhaite (0 par exemple).
L'idée serait de dire que si Txtchoix1 (ma quantité) est non rempli alors mettre un zéro par exemple. mais je ne sais pas le rediger correctement...
Quelqu'un pourrait il m'aider ou me guider, merci d'avance

HaracH
Je suppose que je suis ammerner à utiliser isnull et isempty mais je n'y parviens pas.

[saardg]

bonjour, vu la date à laquelle tu as posté ton message et celle à laquelle je te répond, j'espère que tu as trouvé la solution à ton soucis,
dans le cas contraire, voici peut être une solution (je débute en vba aussi)
j'ai ajouter un bouton de commande pour tester la macro, à toi de choisir l’événement qui lancera celle ci
je l'ai testée (la macro) et ça fonctionne
bien à toi

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
Option Explicit

'permet d'effacer la fenêtre de texte ou d'afficher le zero dans celle ci
'selon que la checkbox soit cochée ou non

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Value = ""
ElseIf Me.CheckBox1.Value = False Then
TextBox1.Value = 0
End If

End Sub
'boutton que j'ai ajouter pour déclencher la macro
'à toi de décider quel évènement la déclenchera

Private Sub CommandButton1_Click()

If Me.CheckBox1.Value = False Then
TextBox1.Value = 0
ElseIf CheckBox1.Value = True And TextBox1.Value = "" Then
MsgBox "Vous devez saisir une quantité pour le choix 1."
End If
End Sub

'permet d'afficher le zero dé l'apparition du userform

Private Sub UserForm_Initialize()
If CheckBox1.Value = True Then
TextBox1.Value = ""
ElseIf Me.CheckBox1.Value = False Then
TextBox1.Value = 0
End If
End Sub