Find et FindNext avec deux valeurs recherchées

Version imprimable

29/09/2009, 22h22
drakkar_agfa

Find et FindNext avec deux valeurs recherchées

Bonjour à tous.

J'aimerais savoir s'il existe quelque chose pour remplacer le Find et FindNext quand je dois faire une recherche avec deux valeurs.
Est-ce possible?

Pour l'instant, j'utilise le Find, s'il trouve quelque chose avec la première valeur alors je fais un IF pour vérifier si la deuxième colonne correspond à la valeur 2 sinon, il passe au FindNext.
Je n'ai pas réellement besoin de savoir où se trouve cette ligne mais je dois avoir le nombre total. Un peu comme

Code:

Application.CountIf(Columns(1), MaValeur)

mais avec plusieurs (2) valeurs de recherche :

Code:

Application.CountIf(Colonne1 = Columns(1), Val1 = MaValeur1, Colonne2 = Columns(2), Val2 = MaValeur2)

Merci à tous à l'avance!

P.S. Je n'ai plus accès à la fonction "Recherche dans ce forum", pourquoi?
Je l'ai souvent utilisé pourtant!

bonsoir drakkar le forum un exemple avec find 2 criteres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub es()
  cd1 = 3 'valeur cherche column a
  cd2 = 2 'valeur cherche column b
  Set champ = Range("a1:a1000")
  Set c = champ.Find(cd1, LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    premier = c.Address
    Range("b1:b1000")(c.Row - [a1:a1000].Row + 1).Select
    Do
       z = z + 1
      Union(Selection, Range("b1:b1000")(c.Row - [a1:a1000].Row + 1)).Select
      Set c = champ.FindNext(c)
    Loop While Not c Is Nothing And c.Address <> premier
     End If
     Set c = Selection.Find(cd2, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing Then MsgBox z Else MsgBox "non trouvé"
End Sub

ou par sommeprod en vba

Code:

MsgBox [SumProduct(1*(a1:a1000=3)*(b1:b1000=2))]

29/09/2009, 23h30
mercatog

Bonsoir Laetitia, Drakkar
Ce n'est pas cartésien ce que je propose comme variante, mais bon.
Je prévois une colonne où je concatène les données de la colonne 1 et de la colonne 2 (séparées éventuellement avec un caractère spécifique "µ" par exemple pour éviter tout amalgame de données).
Je ferai la recherche sur cette nouvelle colonne K

Code:

Application.CountIf(Columns(K), MaValeur1µMaValeur2)

et après, j'efface la colonne
30/09/2009, 11h50
laetitia
bonjour drakkar_agfa l'ami mercatog le forum

avec la formule donne plus haut pas simple de faire passer des variables!!!!

Code:

MsgBox [SumProduct(1*(a1:a1000=3)*(b1:b1000=2))]

on peut utiliser Evaluate
Code:

1 2 3 4 5 Sub Macro1() Dim x As Long, z As Long x = 3: z = 2 MsgBox Evaluate("SUMPRODUCT(($A$1:$A$1000=" & x & ")*($B$1:$B$1000=" & z & "))") End Sub