Discussion :

[oscar.cesar]

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

[ucfoutu]

Bonjour,

ton code réécrit, sans préjudice ni examen de ce qu'il fait :

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

[oscar.cesar]

super merci
un oeil exterieur est pertinent

merci