macro qui ne marche pas jusqu'au bout

[Ambre]

bonsoir tlm

j'ai un probleme avec une macro et une listebox j'explique le pbrobleme un peu plus bas

Private Sub CommandButton1_Click()
'déclaration des variables
ListBox1.clear
Range("tab2").Interior.ColorIndex = 0
Dim cel As Range
Dim v1 As Single, v2 As Single
Dim nb As Long
v1 = Val(TextBox1.Value) 'définit la varaible v1
v2 = Val(TextBox2.Value) 'définit la varaible v2
nb = 0 'définit la varaible nb

'boucle sur toutes les cellule de la plage nommée "tab"
For Each cel In Range("tab2")

'condition : si la cellule est comprise (ou égale) entre les valeurs tapée
If cel >= v1 And cel <= v2 And CheckBox1 = True And CheckBox2 = False And ComboBox10.Value = ">" Then

c'est à cause de cette ligne !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If Cells(cel.Row, 2) >= lol.TextBox15.Text Then
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
si quelqu'un voit pourquoi ca ne marche pas???
en fait ca marche mais partiellement par exemple normalement c censée m'afficher les valeurs superieures à celle qui est dans la textbox
mais si je tape 500 ca s'arretera avant les 1000 (en sachant qu'il n'ya qu'une dizaine de valeur dans la colonne)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ListBox1.AddItem 'ajoute un élément à la ListBox1
ListBox1.List(nb, 0) = cel.Address 'ajoute l'adresse de la cellule en colonne 1
ListBox1.List(nb, 1) = Cells(cel.Row, 1)
ListBox1.List(nb, 2) = Cells(4, cel.Column) 'ajoute le code largeur
ListBox1.List(nb, 3) = Cells(cel.Row, 2) 'ajoute la valeur de la colonne
ListBox1.List(nb, 4) = Cells(5, cel.Column)
ListBox1.List(nb, 6) = cel.Value

If CheckBox6 = True Then
ListBox1.List(nb, 7) = Round(TextBox13.Value / cel.Value, 0) + 1
End If



nb = nb + 1 'redéfinit la variable nb
End If
End If

Next cel 'prochaine cellule de la boucle


End Sub


si quelqu'un y comprend quelque chose
merci d'avance

Ambre

 

[Ambre]

re,

je planche dessus depuis au moins 3 heures et c'est en postant mon probleme ici que j'ai trouver le probleme qui était d'ailleur si simple.... (je me demande comment j'ai pas vu ca avant ^^)

bref merci le forum ^^