Discussion :

[PierrotMfff]

Bonjour le club !

Je vais essayer d'être clair et concis:

> J'ai une valeur de test, que je veux trouver dans une feuille. (elle peut y être comme elle peut ne pas y être)
> Après avoir testé avec la méthode Find si l'objet range renvoyé est Nothing (donc valeur test non trouvée) je souhaiterais exécuter une ligne qui me permettrait de trouver la première cellule ayant une valeur supérieure à ma valeur test qui me renverrait un objet range comme la méthode Find.
(Afin par la suite de pouvoir insèrer une ligne avec ma valeur test au bon endroit).

Le but de cette partie de code est:
Si j'ai déjà la valeur test dans mon tableau, on récupère juste le n° de ligne. >Find suffit
Sinon, on récupère le n° de la ligne d'insertion, dès que l'on dépasse la valeur test. >Là je ne trouve pas! une sorte de Find conditionel ? (Ma valeur test est une variable numérique)

Une boucle suffit:

Code :

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

1
2
3
4
5
6
For x= 2 to NbDeLignesTotal
     If .Cells(x,1) > Test then
          Ligne = x
          Exit For
     Endif
Next x

mais j'essaie d'optimiser mon code sachant que les boucles c'est bien, mais ça prend beaucoup de cycles au final surtout sur des tableaux à 2XXX lignes, donc si je peux m'en passer... Sinon une méthode par approximations succécives pourrait être interressante, mais si une méthode toute faite qui tient sur une ligne existe, autant la prendre !

Merci de m'exposer vos pistes

Bonne journée !

[antonysansh]

Bonjour PierrotMfff,

A voir ton code, les données sont triées.
Une recherche dichotomique devrait faire l'affaire, le nombre de passage dans la boucle sera beaucoup moins grand que dans le pire dans la plupart des cas avec ta méthode actuelle.
Du O(Log₂(N) au lieu de O(N) si je ne me trompe pas.

Pour une recherche dichotomique, tu regardes la valeur au milieu de tes lignes et va regarder au-dessus ou en dessous selon la valeur (comme c'est trié), tu recommence avec la sous liste et ainsi de suite jusqu'à avoir ta bonne ligne.

C'est beaucoup plus complexe a codé mais vraiment plus efficace pour de très grand nombre de données (17 passages de boucle seulement pour 1xx.xxx lignes)

[PierrotMfff]

Oui je parlais de ça, quand je parlais de recherche par approximations succéssives

C'est beaucoup plus complexe a codé mais vraiment plus efficace pour de très grand nombre de données (17 passages de boucle seulement pour 1xx.xxx lignes)

Mais je ne m'étais pas renseigné (ou même fait de calcul) quand à la rentabilité de ce mode de recherche! (EDIT: Log base 2 de 2000 c'est déjà ~11 !)
Oui il doit y avoir des nombres à arrondir, des trucs comme ça...
Par exemple:
500 lignes à tester
1) 500 / 2 => test de la ligne 250 prenons Test < CelluleTestée
2) 250 / 2 => test de la ligne 125 prenons Test < CelluleTestée
3) 125 / 2 => test de la ligne 62.5 *IIIIINNN* ==> Dans ce cas je prends Int(125/2) ? et ainsi de suite?

Je vais m'amuser à coder ça je le mettrai dans le fil.

[antonysansh]

Voila la proc

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
32
33
34
35
36
Sub dichotomique()
 
'Declaration des variables
Dim debut As Long
Dim fin As Long
Dim milieu As Long
Dim val As Long
Dim N As Long
Dim trouve As Boolean
Dim tacolonne As Long
 
tacolonne = 1           'c'est ta colonne mais c'est pour mon test qu'elle vaut 1 ;)
 
N = 300                 'ton nombre de ligne (ici 300 pour mon test)
 
debut = 1               'debut de ta liste (ici ligne 1 pour mon exemple)
fin = N                 'fin de ta liste
trouve = False
val = 34                'ta valeur cherché (ici 34 pour mon test)
 
While Not trouve And debut <= fin
    milieu = (debut + fin) \ 2          'partier entiere de debut+fin divisé par 2
    If Cells(milieu, tacolonne).Value = val Then
        trouve = True
    Else
        If val > Cells(milieu, tacolonne).Value Then
            debut = milieu + 1
        Else
            fin = milieu - 1
        End If
    End If
Wend
 
MsgBox milieu 'si trouve, milieu vaut la ligne ou est presente la valeur sinon la ligne de la valeur inferieure la plus proche
 
End Sub

[mercatog]

Tes données sont triées?

[antonysansh]

Tes données sont triées?

Au vu du premier morceau de code elles doivent l'être et franchement je l'espère sinon la recherche dicho ne fonctionnera pas sans un tri préalable.
Et j'aurais codé le truc pour rien