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