Discussion :

[coco.on.off]

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 :

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
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

[parmi]

Bonjour,

Essaie comme ceci pour voir

Code :

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

1
2
3
4
5
6
7
8
9
                                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

[coco.on.off]

Merci ca fonctionne

VBA est vraiment capricieux ...