Foncion SI et ET en VBA

Sub IfEndIf()
Dim MyString As String

MyString = 'Portez ce vieux whisky au juge blond qui fume'

If Left(MyString, 1) = 'P' Or Right(MyString, 1) = 'Z' Then
    MsgBox '1er Test Passé'
&nbsp; &nbsp; &nbsp; &nbsp; If Len(MyString) > 0 And Len(MyString) < 500 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox '2em Test Passé'
&nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox '2em Test Echoué'
&nbsp; &nbsp; &nbsp; &nbsp; End If
Else
&nbsp; &nbsp; MsgBox '1er Test Echoué'
End If

End Sub

Cliquez pour agrandir...