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 |
