[VBA-E] Minimum d'une colonne avec condition sur autre colonne

Version imprimable

10/05/2007, 11h56
Currahee

[VBA-E] Minimum d'une colonne avec condition sur autre colonne

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,

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

Code:

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

10/05/2007, 15h05
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 ???
10/05/2007, 17h01
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:

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