ton ":" entre le "Else" et le "If" signifie que tu passes à une nouvelle instruction en d'autres termes, tu as écrit la chose suivante :
Y = InputBox("mflmlfl")
If Y = "hub"
Then form1.Show
Else
If Y = "routeur" Then
form2.Show
ElseIf Y = "switch" Then
form3.Show
End If
End If
End If
ce qui en VB signifie n'importe quoi
la bonne écriture doit plutôt ressembler à ça :
Y = InputBox("mflmlfl")
If Y = "hub"
Then form1.Show
ElseIf Y = "routeur" Then
form2.Show
ElseIf Y = "switch" Then
form3.Show
End If
il faut seulement 1 EndIf si tu as plusieurs ElseIf consécutif et non pas 1 EndIf par ElseIf.
@+
" mailto:paulferrand@yahoo.fr" Surfurax[/url