Trouver la première cellule supérieure à une valeur de test [VBA]

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:

---

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 :D

Bonne journée !

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)

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

Citation:

---

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.

Voila la proc ;)

Code:

---

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

---

Tes données sont triées?

Citation:

---

Envoyé par mercatog

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 ;)

Si possibilité de tri décroissant, l'utilisation d'INDEX et EQUIV permet de résoudre le problème. -1 comme dernier paramètre de EQUIV

Si tri croissant sans doublons, il y a aussi possibilité avec INDEX et EQUIV

Citation:

---

Et j'aurais codé le truc pour rien

---

Ahaha ne t'en fais pas, en fait j'édite moi même le tableau de destination, de a à z en fonction d'une feuille source.
A chaque fois, les données s'insèrent au bon endroit, donc avant l'endroit ou se trouve une valeur supérieure

Donc nécessairement les données sont triées :P

Super le code antonysansh !
J'ai testé sur papier ça marche nickel, pour mon application il faut juste que le test soit double:
Au passage il faut vérifier qu'en plus que la valeur testée soit inférieure à celle du tableau ligne n ;
la valeur testée soit bien supérieure à celle du tableau ligne n-1

car dans mon cas, la valeur cherchée... N'existe pas :p
En revanche la ligne obtenue est bien celle où il faut insérer! c'est parfait :)

Je vous tient au courant

Citation:

---

l'utilisation d'INDEX et EQUIV permet de résoudre le problème

---

ce sont des fonctions VBA ?

Fonctions Excel qu'on peut traduire en VBA (cf. worksheetfunction)

C'est à dire, c'est pour éviter de recréer la roue.

Pas besoin de double test, si tu cherches 15 et que dans ton tableau tu as (....,8,12,17,20,22,....) milieu vaudra la la ligne ou est présent 12 donc tu inserts en milieu + 1

tu parles de concaténer les deux fonctions WorksheetFunction et je devrais trouver le moyen de le faire?

j'essaie ça demain, je vous tiens au courant !

Merci pour votre aide au passage, ça fait toujours plaisir

Edit: Ah oui, c'est vrai que le test While Deb <= Fin joue! j'avais pas fait gaffe, du coup pas besoin de double test en effet, en sortie de boucle la ligne renvoyée sera celle de l'insertion.

Bonjour,

Je passe juste pour dire qu'au niveau optimisation, le mieux est encore de ne pas travailler sur la feuille directement (si tu tiens à faire du VBA, sinon il faut utiliser les fonctions de mercatog), mais de passer par des variables tableaux qui contiennent les valeurs des cellules.

Boucler sur la feuille te fera passer en revu tous les objets cellule, et leurs propriétés value, à savoir très peu d'optimisation. Tu peux rentrer tes données dans une variable tableau, et faire tes traitements sur ton tableaux, avant de retourner sur ta feuille. Ici, tu ne traite que les valeurs des cellules, et pas les objets eux-mêmes, et tu évite les modifications sur feuilles qui font perdre un temps fou à Excel !

Bonjour,
encore merci de votre aide.

Je m'en sors avec:

Code:

---

Position = WorksheetFunction.Match(Test, Plage, 1)

---

La fonction Match(=EQUIV) necessite bien que les valeurs soient triées, sinon ça crée une erreur d'exécution...

Résolu ! ;)