Discussion :

[Currahee]

Bonjour,

J'aimerai savoir comment s'il est possible avec les fonctions VBA d'excel et sans parcourir toute une feuille excel de trouver la valeur minimum d'une colonne avec condition sur une autre colonne ???

Bref l'equivalent de "Select donnee where condition = cible" en SQL;

-> Trouver par exemple le min de la colonne A avec le champ B = "OK"

Merci d'avance pour vos éventuelles réponses,

[mordrhim]

Je te donne une partie de commande que j'avais fait. Je te laisse l'étudier et la modifier à ton envie.

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
Sub Minimum()
    Dim Ligne, ColonneA, ColonneB, Minimum, LigneMinimum As Integer
 
    Ligne = 1
    Do While Cells(Ligne, ColonneB) <> ""
        Do While Cells(Ligne, ColonneB) = "KO"
            Ligne = Ligne + 1
        Loop
        Do While Cells(Ligne, ColonneB) = "OK"
            If Minimum = Empty Or Cells(Ligne, ColonneA) < Minimum Then
                Minimum = Cells(Ligne, ColonneA)
                LigneMinimum = Ligne
            End If
            Ligne = Ligne + 1
        Loop
    Loop
    Cells(LigneMinimum, ColonneA).Select
End Sub

Ce code date ^^ il faudra sûrement l'améliorer

[Currahee]

Merci pour ton code, mais j'ai déjà codé sensiblement la même chose en attendant de trouver une autre solution d'optimisation.

Car dans mon premier post, j'ai bien mis sans parcourir toute ma feuille excel, ce que tu proposes en parcourant toute la colonne.

C'est justement ce que j'aimerai éviter de faire ;-)

Merci encore,

D'autres solutions ???

[alsimbad]

la seule solution pour ne pas avoir a parcourir la zone est d'utiliser une formule excel. dans l'exemple renvoie la valeur mini de colonne A en fonction de la valeur de B1

Code :

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

=SI(B1="condition1";MIN(A:A);"paslacondition")