Discussion :

[oscar.cesar]

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

[Invité]

Bonjour

Sors les déclarations de tes variables de la boucle If, mets les avant.

Philippe

[oscar.cesar]

bonjour


donc si j'ai bien compris, je sors les variables mais j'avoue que je ne comprends pas , deplus c'est pareil

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
 
Dim premcol As Long 'filtre9
    Dim dercol As Long 'filtre9
    Dim dercolnonvide As Long 'filtre9
 
   If UserForm3.CheckBox7.Value = True Then
 
    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 'prend la postion du derneir cheval dans le bornage
        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 dercol
        Dim tototototo
          If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1
 
 
 
        Next indexfiltre9
      End If
    Next indexfiltre9ligne
  End If

[LeForestier]

Bonjour tous,
et surtout ta variable .. INDEXCOURSEFILTREligne à mettre dans un module général.
En cour de debug, teste ce que tu a dans cette variable.
et si..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dercol = dercolnonvide '''dercol reste vide ???????????

c'est que dercolnonvide est aussi vide, intéresse-toi a la condition précédante.
A+

[oscar.cesar]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dercolnonvide = Sheets(UserForm3.ComboBox1.Text).Range("G" & indexfiltre9ligne).End(xlToRight).Column 'derniere colonne non vide du prono

dans ma feuille dercolnonvide =22

donc si je fais , en respectant la condition , j'ai executer un pas à pas , j'arrive à la ligne suivante ou dercolnonvide = 22 masi dercol ne prends pas cette valeur et reste à 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
dercol = dercolnonvide '''dercol reste vide

[LeForestier]

Alors il ne reste qu'une seule possibilité c'est que ta condition..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UserForm3.TextBox20.Value = 0 And UserForm3.TextBox18.Value = 0 Then

n'est pas remplie et que ça ne passe pas par la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dercol = dercolnonvide

Sinon c'est impossible en voyant tes déclarations.
A+