Amélioration code

[Chaps]

Re,

Encore moi, j'ai un petit pb sur ce code :

If Controls('textbox1') = '' Or Controls('textbox2') = '' Or Controls('textbox3') = '' Or Controls('textbox4') = '' Or Controls('combobox2') = '' Or Controls('combobox3') = '' Or Controls('combobox4') = '' Then
MsgBox 'Saisie invalide, tous les champs doivent être renseignés', vbExclamation, 'Erreur... Saisie incomplète !'
Controls('textbox1').SetFocus

Je souhaitais adapter ce code en disant pour le combobox2 par exemple, si combobox2= '' and combobox2.enabled=false alors pas de message si combobox2.enabled=true et '' alors message evidemment.

Clair? Merci pour le retour d'infos

@+

 

[ThomasR]

Bonjour,

pas de probleme pour faire ce que tu demandes.

mais je m'interoge sur la raison pour laquelle tu nomme tes control 'controls(....

pour moi l'intêret de faire comme ca c'est de les appeler depuis une boucle.

exemple :

dim i as bite
for i = 1 to 4
if me.comtrols('Textbox' & i).text = '' then goto ligne
if me.comtrols('combobox' & i).text ='' and me.comtrols('combobox' & i).Enabled = True then goto ligne
next i
exit sub
ligne:
MsgBox \\'Saisie invalide, tous les champs doivent être renseignés\\', vbExclamation, \\'Erreur...

 

[Hervé]

bonjour chaps, thomas

meme interrogation que thomas concernant les controls.

un autre syntaxe non testé :

Dim i As Byte
Dim bon As Boolean

bon = True

For i = 1 To 4
        If Controls('textbox' & i) = '' Then bon = False
        With Controls('combobox' & i)
                If .Enabled = True Then
                        If .Value = '' Then bon = False
                End If
        End With
Next i

If Not bon Then
        MsgBox 'Saisie invalide, tous les champs doivent être renseignés', vbExclamation, 'Erreur... Saisie incomplète !'
End If

salut

 

[Chaps]

Re,

Merci à vous pour vos codes, j'ai pris note de votre analyse sur les controls. Comme on dit c'est en forgeant qu'on devient forgeron, pfff ya encore du boulot :unsure: