Plusieurs Recherchev en vba

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche à traduire les formules de "Recherchev" en vba.

(avec boucle si possible ...)

En D4, recherche dans BDAGENT, l'adresse mail dans la 6ème colonne (BDAGENT étant une plage nommée)

=SI(B4="";0;SI(ESTNA(RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;6;FAUX));"HorsPM3";RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;6;FAUX)))

En F4, recherche dans BDAGENT, l'agence dans la 4ème colonne (BDAGENT étant une plage nommée)

=SI(B4="";0;SI(ESTNA(RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;4;FAUX));"HorsPM3";RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;4;FAUX)))

En H4, recherche dans BDAGENT, TEXTE dans la 3ème colonne (BDAGENT étant une plage nommée)

=SI(G4<>"";RECHERCHEV($G4;'Tableau d''activité'!$B$1:$L$18;3;FAUX))

En H4, recherche dans BDAGENT, TEXTE dans la 2ème colonne (BDAGENT étant une plage nommée)
=SI(G4="";0;RECHERCHEV($G4;'Tableau d''activité'!$B$1:$L$18;2;FAUX))

EXCEL2010

Merci d'avance,
PYGOS69

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

En VBA, utilises la méthode Find.
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Bonjour,

Peux-tu m'aider stp !

Cordialement,
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Merci !
0