cherche occurence avec 2 critères (vba)[Resolu]

herve62

XLDnaute Barbatruc
Bonsoir
J'aimerai savoir si un code simple ( j'ai vu des ex. assez complexes !!!) peut permettre de rechercher une occurence à 2 critères : 2 colonnes et afficher ce qu'il y a dans la 3eme
petit exemple joint , il parait que cela fonctionne ? je pige pas le fonctionnement et cela ne marche pas
 

Fichiers joints

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @herve62 ;),
Voir ce code:
VB:
Sub cherche()
   prod = "piton 5"
   paq = 20             'nombre et non pas texte
   For Each C In Sheets("Feuil1").Range("d2:d50")
      If Not C = "" Then
         If C = prod And C.Offset(0, -1) = paq Then MsgBox "Occurence trouvée à " & C.Offset(0, 1) & "€"
         ' exit sub 'si on veut quitter après la première occurence
      End If
   Next C
End Sub
 

Discussions similaires


Haut Bas