MSG à plusieurs possibilités

[ascal44]

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.

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]

Re : MSG à plusieurs possibilités

Bonsoir,
Peut-être comme ceci

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]

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:

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]

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:

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]

Re : MSG à plusieurs possibilités

Merci pour votre rapidité et votre aide , cela fonctionne

 

[Lii]

Re : MSG à plusieurs possibilités

Bonsoir

dans le style sans "= False" :

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