bonjour à tous
j'ai le phenomene suivant
mes variables premcol et dercol restent à O , et je sais pas pourquoi

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
 
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 'derniere ligne du prono non vide
      If Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).Value = Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value Then 'compare le index
        dercolnonvide = Sheets(UserForm3.ComboBox1.Text).Range("G" & indexfiltre9ligne).End(xlToRight).Column 'derniere colonne non vide du prono
        If UserForm3.TextBox20.Value = 0 And UserForm3.TextBox18.Value = 0 Then
          dercol = dercolnonvide '''dercol reste vide ???????????
        ElseIf UserForm3.TextBox18.Value > 0 And UserForm3.TextBox20.Value = 0 Then 'selection les Xderniers chx à prendre
          dercol = dercolnonvide And premcol = dercolnonvide - Val(UserForm3.TextBox18.Value) 'selection les x dernier chx du prono
          MsgBox (premcol & "-" & dercol)
        Else
          dercol = dercolnonvide - UserForm3.TextBox20.Value 
        End If
        If UserForm3.TextBox19.Value = 0 Then premcol = 7 Else premcol = 7 + UserForm3.TextBox19.Value 'configure à partir de quel premeir chx on debute
 
        For indexfiltre9 = premcol To dercoll
 
          If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1
 
        Next indexfiltre9
      End If
    Next indexfiltre9ligne
  End If
et je vois pas pourquoi ???
comme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
dercol = dercolnonvide '''dercol reste vide ???????????
ou les autres lignes similaires ???