Discussion :

[stephane.dantigny]

Bonjour, je voudrais vérifier que toutes les texboxs soient enseignées et au moins quelques options button soient à un avant de lancer un calcul pour eviter de planter la macro.Ce serait bien par exemple si il voyait la textbox1 vide et qu'il affiche un message

Merci d'avance stéphane

[ucfoutu]

Bonjour,

je voudrais vérifier que toutes les texboxs soient enseignées et au moins quelques options button soient à un avant de lancer un calcul pour eviter de planter la macro.Ce serait bien par exemple si il voyait la textbox1 vide et qu'il affiche un message

Qui est il ?

De quelle macro parles-tu ?
Quel est finalement ton environnement de développement ? (avant de te parler inutilement de groupes de contrôles indexés qui n'existent pas sous VBA... par exemple...)

[Mr NGANZI]

pour tester :

Code :

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

1
2
3
4
5
6
7
8
9
if TextBox1.Text="" then
   msgbox "champ non renseigné"
   exit sub
end if
 
if option1.value=0 and option2.value=0 and option3.value=0 then
   msgbox "cochez au moins une option"
   exit sub
end if

[ProgElecT]

Je ne pratique pas VBA
Mais il est peut être possible (comme sous VB) de pratiquer comme suit, si tous les texteBoxs et OptionButtons sur le Form consernent le calcul

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
Private Sub CmdCalcul_Click()
If VerifChampsMini = True Then
 'lancer le calcul
 Else
 'un MsgBox a renseigné le minimum des entrées utiles pour le calcul
 'donc ne lance pas le calcul
 End If
End Sub
 
Public Function VerifChampsMini() As Boolean
VerifChampsMini = True
Dim LeControl As Control
Dim ProblemTxt As Boolean, ProblemOpt As Boolean
ProblemTxt = False
For Each LeControl In Controls
 If VarType(LeControl) = 8 Then 'TextBox
  If Trim(LeControl.Text) = "" Then
   VerifChampsMini = False: ProblemTxt = True: Exit For
  End If
 End If
Next
ProblemOpt = False
For Each LeControl In Controls
 If VarType(LeControl) = 11 Then 'OptionButton
  If Trim(LeControl.Value) = True Then
   VerifChampsMini = False: ProblemOpt = True: Exit For
  End If
 End If
Next
Dim Msg$
If ProblemTxt = True Then Msg$ = "Tous les textbox doivent être renseignés" & vbCrLf
If ProblemOpt = True Then Msg$ = Msg$ & "Vous devez choisir une option"
If Msg$ <> "" Then MsgBox Msg$, vbInformation, "manque d'informations"
End Function

Mais si tu es sous VB, un groupe de control indexé (comme le laisse entendre ucfoutu) serait l'idéal.

[LeForestier]

Bonjour,
Bienvenue sur le forum à Stéphane,
Salut ProgElect,
Très bien en VBA, sauf qu'il y aurra autant d'événement Click qu'il y à de control, et la méthode employée dans la fonction devrait être employée également dans chaques événement Click.
Je ne sais pas si j'ai été assez clair ?
Mais il a poster en VB6 si je ne m'abuse !

a moins de tester une collection comme dans ce lien proposer par ouskel'n'or en VBA
A+

[stephane.dantigny]

Bsr,
Mon message à bien été posté pour vb6 et anterieur.L'ambiguité pour vous a été certainement textbox1 et optionbutton1 .En fait c'est text1.text et Option1_Click .Désolé pour ces imprecisions