Discussion :

[JulienLeno]

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

[carden752]

Bonjour,

Il ne faut pas mettre ":" après else, c'est un nom d'étiquette sinon vers où tu renvoies et avec un mot réservé du langage, c'est pas terrible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Else MsgBox "Rentrer une valeur"

[JulienLeno]

En fait les ":" après le Else se mette automatiquement quand je fais entrer. Mais j'ai résolu mon soucis en mettant à la ligne à chaque fois après le Then. Cà fonctionne, voilà mon code.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
 
Dim iL As Long
Dim P As Worksheet
Dim M As Worksheet
 
Set P = Worksheets("Sheet2")
Set M = Worksheets("Sheet3")
 
iP2 = Sheet1.Cells(100, 1).Value
 
If TextBox1.Value <> "" Then
 
 For iL = 1 To 20
 
            If P.Cells(iL, 2).Text = TextBox1.Text Then
               P.Rows(iL).Copy M.Cells(iP2, 1)
 
            iP2 = iP2 + 1
            End If
 
        Next
M.Select
 
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

Ce n'est plus vraiment le même car je donne une autre instruction après le premier Then mais la logique est la même.

Merci

Julien