recherche avec find selon deux critères

[mecasupienne]

Bonjour,

Dans le fichier joins une simplification du tableau que j'ai!!!!(très exagéré la simplification)
Je veux faire une macro qui recherche la cellule de la colonne B qui correspond aux deux critères toto et c.

Je pensait utiliser la fonction find mais je n'y arrive pas...

PLEASE HELP!!!

merki d'avance

 

[Pierrot93]

Re : recherche avec find selon deux critères

Bonsoir,

A priori ton fichier n'est pas passé, il doit inférieur à 50k en xls ou zip.

bonne soirée
@+

 

[Paritec]

Re : recherche avec find selon deux critères

Bonsoir mecasupienne, Bonsoir Pierrot,
oui il a juste oublié le fichier !!!!
mais en fait c'était pour te faire coucou Pierrot
bonne soirée
papou 🙂

 

[mecasupienne]

Re : recherche avec find selon deux critères

Effectivement il y a eu un problème avec le fichier...bref le voici!

 

[BOISGONTIER]

Re : recherche avec find selon deux critères

Bonjour,

Sub FindMultiCritères()
  n = "titi"
  p = "g"
  Set c = [nom].Find(n, LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    premier = c.Address
    Set temp = c.Offset(, 1)
    Do
      Set temp = Union(temp, c.Offset(, 1))
      Set c = [nom].FindNext(c)
    Loop While Not c Is Nothing And c.Address <> premier
   End If
   '--  recherche prénom
   Set c = temp.Find(p, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing Then c.Select Else MsgBox "non trouvé"
End Sub

Sub RechercheMultiCritères()
  n = "titi"
  p = "g"
  a = [NOM].Resize(, 2)
  For i = 1 To UBound(a, 1)
    If a(i, 1) = n And a(i, 2) = p Then
      Range("nom")(i).Resize(, 2).Select
    End If
  Next i
End Sub

JB
Formation Excel VBA JB

 

[mecasupienne]

Re : recherche avec find selon deux critères

Merci merci ca marche super bien!!!