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 -
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
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
