Else sans If ou End If sans bloc If

**PaulG2B** · 29/05/2020, 13h31

Bonjour à tous,

Je rencontre un problème dont je ne me sors pas tout seul ....

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Sub mfc_alertes()
 
Dim nbLignes, i As Integer
Dim ref1 As String
Dim msDensite, msTemp, cons1, cons2, cons3, cons4 As Integer
Dim TabEssais As Object
 
Set TabEssais = Worksheets("DATA").Range("TableauEssais")
nbLignes = Worksheets("SAISIE").Range("C65536").End(xlUp).Row + 1
 
'--- On boucle sur toutes les modalités en cours de suivi
For i = 2 To nbLignes
 
    msDensite = Range("E" & i).Value                             '--- Récupération de la densité du jour
    msTemp = Range("F" & i).Value                                '--- Récupération de la température du jour
    ref1 = Range("A" & i).Value                                  '--- Récupération référence de la modalité
    cons1 = WorksheetFunction.VLookup(ref1, TabEssais, 4, False) '--- Stockage Température de consigne
    cons2 = WorksheetFunction.VLookup(ref1, TabEssais, 5, False) '--- Stockage densité de nutrition 1
    cons3 = WorksheetFunction.VLookup(ref1, TabEssais, 6, False) '--- Stockage densité aération
    cons4 = WorksheetFunction.VLookup(ref1, TabEssais, 7, False) '--- Stockage densité de nutrition 2
 
    '--- Coloration des cellules aération et nutrion 1 en fonction de la densité
    If (msDensite >= cons3 - 10 And msDensite <= cons3 + 10) Then
        Range("J" & i & ":K" & i).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 5287936
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    ElseIf (msDensite < cons3 - 10 And msDensite > cons3 + 10) Then
        Range("J" & i & ":K" & i).Select
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    ElseIf (msDensite > cons3 + 10 And msDensite - Range("H" & i).Value <= cons3 - 10) Then
        Range("J" & i & ":K" & i).Select
            With Selection.Value = "Anticiper"
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 49407
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    Else
 
    End If
Next i
 
End Sub

Dans la boucle ci-dessus j'ai voulu introduire des conditions et je pense que les With / End With mettent le bazar.

J'ai une erreur de compilation sur le dernier Else qui si je vire me fait une erreur sur End If

J'ai l'impression pourtant que c'est tout bon ?