[XL-2010] recherche la première valeur supérieure à la valeur cherchée [Résolu]

[modus57]

Bonsoir.

Voici une procédure qui recherche la première valeur supérieure à la valeur cherchée dans la colonne A.

2011001
2011002
2011003
2011004
2011005
2011006
2011007
2011008
2011009
2011010
2011011

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim lRange As Variant
 
ValTest = Application.InputBox(Msg, "entrez la valeur à rechercher", , , , , , 1)
If ValTest = 0 Or ValTest = "" Then Exit Sub
trouv = ""
dl = Range("A1", Columns(1).Cells.Find("*", [A1], , , , xlPrevious)).Address
    For Each lRange In Range(dl) 
        If lRange.Value > ValTest Then  
            lRange.Select
            trouv = trouv & lRange
            valeurtrouvée = lRange.Address
            Exit For 
        End If
    Next lRange
If trouv = "" Then
    MsgBox "Pas de valeur (" & valtest & ") trouvée" & Chr(10) & "dans la plage testée  (" & dl & ") !"
Else
    MsgBox "Valeur trouvée = " & trouv & " en " & valeurtrouvée & Chr(10) & "dans la plage testée  (" & dl & ") !"
End If

Je n’arrive pas à placer la détection d’une correspondance avec l'ensemble du texte recherché.

Exemple :
Si la valeur entrée = 20111, la première valeur supérieure trouvée dans la colonne A sera : 2011001, dans ce cas le message "Pas de valeur…., devra s’afficher.

Pourriez-vous m’indiquer une piste svp.

Merci d’avance.

[jfontaine]

Bonjour,

Ta variable valtest n'étant pas déclarée, elle est implicitement de type variant.
Du coup quand tu saisies 20111, valtest devient numérique (probablement Long)
20111 est bien plus petit que 2011001.

Si tu veux faire un test de type texte déclares ta variable en String

Code :

Dim valtest As String

[gFZT82]

Bonjour,

Si j'ai bien compris ta demande

Si la valeur entrée = 20111, la première valeur supérieure trouvée dans la colonne A sera : 2011001, dans ce cas le message "Pas de valeur…., devra s’afficher.

tu souhaites que 20111 soit interprété 2011100.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim lRange As Variant
Dim L As Integer
valtest = Application.InputBox(Msg, "entrez la valeur à rechercher", , , , , , 1)
If valtest = 0 Or valtest = "" Then Exit Sub
L = Len(valtest)
dl = Range("A1", Columns(1).Cells.Find("*", [A1], , , , xlPrevious)).Address
    For Each lRange In Range(dl)
        If lRange.Value / 10 ^ (7 - L) > valtest Then
            lRange.Select
            trouv = trouv & lRange
            valeurtrouvée = lRange.Address
            Exit For
        End If
    Next lRange
If trouv = "" Then
    MsgBox "Pas de valeur supérieure à (" & valtest & ") trouvée" & Chr(10) & "dans la plage testée  (" & dl & ") !"
Else
    MsgBox "Valeur trouvée = " & trouv & " en " & valeurtrouvée & Chr(10) & "dans la plage testée  (" & dl & ") !"
End If

Cordialement.

[modus57]

Bonsoir jfontaine, gFZT82.

Merci pour vos réponses, à prime abord elle ne sont pas concluantes.

J'ai déclaré la variable valtest et ajouté les lignes suivantes:

Code :

1
2
Set MyVar = Cells.Find(What:=valtest, LookAt:=xlWhole) 'Détecte une correspondance avec l'ensemble du texte recherché
If Not MyVar Is Nothing Then

Voici la procédure corrigée :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim lRange As Variant
Dim valtest As String
 
valtest = Application.InputBox(Msg, "entrez la valeur à rechercher", , , , , , 1)
If valtest = 0 Or valtest = "" Then Exit Sub
trouv = ""
dl = Range("A1", Columns(1).Cells.Find("*", [A1], , , , xlPrevious)).Address
Set MyVar = Cells.Find(What:=valtest, LookAt:=xlWhole)
If Not MyVar Is Nothing Then
    For Each lRange In Range(dl)
        If lRange.Value > valtest Then
            lRange.Select
            trouv = trouv & lRange
            valeurtrouvée = lRange.Address
            Exit For
        End If
    Next lRange
End If
If trouv = "" Then
    MsgBox "Pas de valeur (" & valtest & ") trouvée" & Chr(10) & "dans la plage testée  (" & dl & ") !"
Else
    MsgBox "Valeur trouvée = " & trouv & " en " & valeurtrouvée & Chr(10) & "dans la plage testée  (" & dl & ") !"
End If

Ça semble fonctionner.