MSG à plusieurs possibilités

ascal44 · 18 Septembre 2009

Bonsoir ,
je voudrais afficher un MSG si aucun des Checkbox ( de 13 à 17 ) n'est coché , mais si un seul l'est ne pas afficher le message.
J'ai essayé celui ci sans obtenir ce que je veux.

Code:

If CheckBox13 Or CheckBox14 Or CheckBox15 Or CheckBox16 Or CheckBox17= False Then
    MsgBox "Pas de type de vin inscrit" & vbCrLf & "Veuillez renseigner le type de vin ", _
            vbInformation + vbOKOnly
    TextBox2.SetFocus
    Exit Sub
End If

kjin · 18 Septembre 2009

Re : MSG à plusieurs possibilités

Bonsoir,
Peut-être comme ceci

Code:

For i = 13 To 17
    If Controls("CheckBox" & i) = True Then
        Decoche = True
        Exit For
    End If
Next
If Decoche = False Then
    MsgBox "Pas de type de vin inscrit" & vbCrLf & "Veuillez renseigner le type de vin ", _
            vbInformation + vbOKOnly
End If

A+
kjin

Gael · 18 Septembre 2009

Re : MSG à plusieurs possibilités

Bonsoir Ascal44, bonsoir à tous,

Ce serait mieux avec un exemple, mais tu peux déjà essayer de supprimer le "=False" ce qui donne:

Code:

If CheckBox13 Or CheckBox14 Or CheckBox15 Or CheckBox16 Or CheckBox17 Then
    MsgBox "Pas de type de vin inscrit" & vbCrLf & "Veuillez renseigner le type de vin ", _
            vbInformation + vbOKOnly
    TextBox2.SetFocus
    Exit Sub
End If

@+

Gael

Gael · 18 Septembre 2009

Re : MSG à plusieurs possibilités

Re et salut Kjin,

Désolé, j'ai dit une bêtise, c'est l'inverse qu'il faut faire:

Code:

If (CheckBox13 Or CheckBox14 Or CheckBox15 Or CheckBox16 Or CheckBox17)= False Then
    MsgBox "Pas de type de vin inscrit" & vbCrLf & "Veuillez renseigner le type de vin ", _
            vbInformation + vbOKOnly
    TextBox2.SetFocus
    Exit Sub
End If

@+

Gael

ascal44 · 18 Septembre 2009

Re : MSG à plusieurs possibilités

Merci pour votre rapidité et votre aide , cela fonctionne

Lii · 18 Septembre 2009

Re : MSG à plusieurs possibilités

Bonsoir

dans le style sans "= False" :

Code:

...
If CheckBox13 + CheckBox14 + CheckBox15 + CheckBox16 + CheckBox17 = 0 Then
...

MSG à plusieurs possibilités

ascal44

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Gael

XLDnaute Barbatruc

Gael

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Lii

XLDnaute Impliqué

Discussions similaires

MSG à plusieurs possibilités

ascal44

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Gael

XLDnaute Barbatruc

Gael

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Lii

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency