Bonjour,

J'ai crée le code suivant qui teste plusieurs conditions
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" Then
MsgBox "Rentrer une valeur"
 
End If
 
If TextBox1.Value <> "" Then MsgBox "OK text 1"
 
ElseIf TextBox2.Value <> "" Then MsgBox "OK text 2"
 
ElseIf TextBox3.Value <> "" Then MsgBox "OK text 3"
 
Else: MsgBox "Rentrer une valeur"
 
 
End If
 
 
End Sub
C'est un code assez basique qui doit me servir de base pour faire un peu plus compliqué ensuite. Je rencontre cependant un problème au niveau de mon bloc ElseIf en effet VBA me renvoit une erreur a chaque fois me disant que Else n'a pas de If et je dois dire que là je ne vois pas pourquoi.


Si vous pouviez me dépanner! Merci à vous

Julien