Plusieurs "If" pour MsgBox

[lynyrd]

Bonjour le forum
J'aurai souhaité afficher dans une MsgBox des infos suivant une valeur donnée.
J'arrive à me débrouiller pour une affirmation,mais au dela ca bloque,alors un petit coup de main me serait fort utile.
Merci.

 

[Pierrot93]

Re : Plusieurs "If" pour MsgBox

Bonjour lynyrd

pas sur d'avoir tout compris, mais si tu veux tester que TOUTES les cellules soient inférieures à 2 essaye comme suit :

If Range("A2").Value < 2 And Range("B2").Value < 2 And Range("C2") < 2 Then

bon après midi
@+

 

[alex67800]

Re : Plusieurs "If" pour MsgBox

Bonjour lynyrd,
comme cei peut-être:

If Range("A2") < 2 Then
MsgBox "Alimenter caisson 1"
End If
    If Range("B2") < 2 Then
    MsgBox "Alimenter caisson 2"
    End If
        If Range("C2") < 2 Then
        MsgBox "Alimenter caisson 3"
        End If

 

[lynyrd]

Re : Plusieurs "If" pour MsgBox

Merci de vous pencher sur le sujet
C'est pas tout à fait ca.
Si A2 < 2 et si C2 < 2 MsgBox"Alimenter caisson 1 et(dans la même MsgBox à la ligne) Alimenter caisson 3. si A2 <2 et si B2 <2 MsgBox"Alimenter caisson 1 et(dans la même Msgbox à la ligne)Alimerter caisson 2.En fait il faudrait que dans une seule MsgBox les caissons < 2 soient repris.
Merci.

 

[Pierrot93]

Re : Plusieurs "If" pour MsgBox

Re

comme ceci alors, peut être ....

Sub test()
Dim t As String
If Range("A2").Value < 2 Then t = "Alimenter caisson 1" & vbLf
If Range("B2").Value < 2 Then t = t & "Alimenter caisson 2" & vbLf
If Range("C2").Value < 2 Then t = t & "Alimenter caisson 3"
If t <> "" Then MsgBox t
End Sub

@+

 

[lynyrd]

Re : Plusieurs "If" pour MsgBox

Merci à tous les deux
Pierrot93 c'est exactement ce que je recherchais.
Merci.