Erreur de compilation : Else without If
Bonjour,
J'ai le message suivant "erreur de compilation : else without if". Pourtant j'ai le meme nombre de de If et de End If.
Il m'affiche ce message a la ligne de code 20 et me surligne ce que j'ai mi en gras.
Code:
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
|
Private Sub CommandButton3_Click()
' Save Revision
ActiveSheet.Unprotect
If Range("C4").Value <> "" Then
If Range("E4").Value <> "" Then
If Range("L7").Value <> "" Then
If Range("C13").Value <> "" Then
If Range("D13").Value <> "" Then
If Range("E13").Value <> "" Then
If Range("F13").Value <> "" Then
'blablabla
Else: MsgBox ("Each cell must be fill out")
' Enter automaticly the document subset in the complete list
Sheets("COMPLETE LIST").Select
If ActiveSheet.Range("F8") = "BS" Then ActiveSheet.Range("E8") = "BUILD SHEET"
ElseIf ActiveSheet.Range("F8") = "SO" Then ActiveSheet.Range("E8") = "SIGN OFF SHEET"
ElseIf ActiveSheet.Range("F8") = "CI" Then ActiveSheet.Range("E8") = "CHECK IN SHEET"
Else: ActiveSheet.Range("E8") = "RACE REPORT"
End If
End If
End If
End If
End If
End If
End If
End If
End Sub |
est-ce l'ordre des actions qui n'est pas le bon ?
Amicalement
