Discussion :

[nicko5959]

Bonjour à tous,

Je suis face à un problème que je ne peux expliquer, et cela m'embete un peu.
Je ne suis pas un expert en VBA, mais ce problème m'étonne malgrè tout.

Alors voila, j'ai écrit un code qui selectionne les lignes d'un classeur Excel répondant à un critère. Ce critère est que, pour le moment, la valeur de la case Dx (ou x représente le nombre de la ligne traitée) soit egale a la valeur 20031

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SelectCell()
Dim LaValeur As Double
LaValeur = 20031
Range("D3").Select
For Each cll In ActiveCell.CurrentRegion
    If (VarType(cll.Value) = 5) Then
        If (cll.Value = LaValeur) Then Plg = Plg & cll.Row() & ":" & cll.Row() & ","
    End If
Next cll
If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Select
End Sub

Donc je vérifie bien que les 2 valeurs de cellules sont de type Double, et je les selectionne si le critère est remplie.

Ce code la marche, Mais qd je remplace

Code :

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

If (cll.Value = LaValeur) Then

par

Code :

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

If (cll.Value > LaValeur) Then

, alors la Excel m'affiche l'erreur suivante :

une erreur d'execution '1004', erreur définie par l'application ou par l'objet

Et je ne comprend pas pourquoi.
Si vous avez un briquet, une allumette, un lance flamme, ou meme 2 silex pour eclairer ma lanterne, cela serait upercool.

Merci

[AlainTech]

Ben, à la lumière de ce que tu as écrit, je ne vois pas de différence entre ce qui marche et ce qui ne marche pas.

[nicko5959]

Up, j'ai corrigé en haut...
Toutes mes confuses.

[helios77]

Tu as essayé un mettant un point d'arret dans ton code et de le suivre pas à pas afin de voir ou il plante exactement
Moi en faisant des tests, les comparateurs fonctionnent très bien....

Trouve la ligne du plantage et tu auras peut être l'interrupteur pour t'éclairer..
Si çà se trouve c'est peut être un ptit problème de mauvaise inittialisation ou quelque chose d'autre