bonsoir
dans le code si dessous , lors de la phase de debugage j'ai le message suivant
"un End if sans bloc IF"
ET je trouve pas ou ??????????????????

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
 
If UserForm3.CheckBox7.Value = True Then
 
     Dim premcol As Long
     Dim dercol As Long
     Dim dercolnonvide As Long
 
     premcol = 7
 
   For indexfiltre9ligne = 2 To Sheets(UserForm3.ComboBox1.Text).UsedRange.Rows.Count 
        If Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).Value = Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value Then 
                   dercolnonvide = Sheets(UserForm3.ComboBox1.Text).Range("G" & indexfiltre9ligne).End(xlToRight).Column 
                   If UserForm3.TextBox20.Value = 0 And UserForm3.TextBox18.Value = 0 Then dercol = dercolnonvide                       ElseIf UserForm3.TextBox18 > 0 And UserForm3.TextBox20.Value = 0 Then
                      dercol = dercolnonvide And premcol = dercolnonvide - UserForm3.TextBox18.Value
                      Else
                      dercol = dercolnonvide - UserForm3.TextBox20.Value 
                   End If
 
                   If UserForm3.TextBox19.Value = 0 Then premcol = 7 Else premcol = 7 + UserForm3.TextBox19.Value
 
                   'MsgBox (Sheets(UserForm3.ComboBox1.Text).Range("G" & dercol))
                   For indexfiltre9 = premcol To dercol  'Sheets(UserForm3.ComboBox1.Text).Range("G" & dercol) 
                       'MsgBox ("la num de la combi=" & Res(combinaisonN°, InK) & "comparez" & Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK))
                       If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1 
 
                   Next indexfiltre9
 
        End If
   Next indexfiltre9ligne
 
 
   End If 'verif checkbox7 tr