XL 2010 EXCEL VBA formule IFERROR

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #2

Je viens de lire le message de bienvenue et je me rends compte que je ne me suis même pas présentée !

Je suis donc nouvelle sur ce forum, je m'appelle Myriam et travaille en Finance
J'ai malheureusement un niveau trop faible en VBA et j'ai repris tout récemment un poste sur lequel beaucoup de macros demandent à être modifiées. Bien sûr le créateur s'en est allé même il a très bien travaillé en les documentant.
Je vais quand même avoir besoin d'aide sur des formules trop compliquées pour moi et c'est là que je compte sur vous !
Bonne journée à tous

 

Vote positif 0 Vote négatif

M

mbmb

XLDnaute Nouveau

• 29 Mars 2021

• #3

Bonjour,

Peut-être en remplaçant RIGHT(LEFT(RC[14],1),6)
par LEFT(RC[14],6) ?

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #4

Non malheureusement déjà essayé et les 6 caractères qui ressortent sont 40-RAM

Je pense vraiment que c'est dans le début de la formule avec IFERROR qu'il faut modifier cette partie :

"=IFERROR(IF(COUNTIF(RC[14],""*MONNAYEUR*""),MID(RC[14],11,6),

Merci pour votre retour

 

Vote positif 0 Vote négatif

M

mbmb

XLDnaute Nouveau

• 29 Mars 2021

• #5

C'est un peu difficile avec des morceaux de formules ... peux-tu mettre la formule complète ?

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #6

Bien sûr la voici :

ActiveCell.FormulaR1C1 = "=IFERROR(IF(COUNTIF(RC[14],""*MONNAYEUR*""),MID(RC[14],11,6),IF(LEN(RC[-1])=12,MID(RC[-1],7,4)&""4""&MID(RC[-1],12,1),IF(RC[-2]=""ES21C"",RIGHT(LEFT(RC[14],7),6),IF(RC[-2]=""ES38C"",MID(RC[-1],9,4)&""4""&MID(RC[-1],14,1),IF(RC[-2]=""ES23C"",MID(RC[14],1,4)&""4""&MID(RC[14],6,1),IF(RC[-2]=""TE01C"",RIGHT(RC[14],6),IF(RC[-2]=""ES34C"",LEFT(RC[14],6),IF(OR(RC[-2]=""ES44C"",RC[-2]=""ES38C"",RC[-2]=""ES45C""),RIGHT(LEFT(RC[14],12),6),IF(RC[-2]=""TE10C"",RIGHT(LEFT(RC[14],13),6),IF(LEFT(RC[14],1)=""S"",""NC"",LEFT(MID(RC[14],1,FIND("" "",RC[14],1)-1),6))))))))))),""NC"")"
Cells(x, 4) = Cells(x, 4).Value

 

Vote positif 0 Vote négatif

M

mbmb

XLDnaute Nouveau

• 29 Mars 2021

• #7

Le IFERROR affiche un résultat ou "NC"

Si je comprends ... la formule va afficher les 6 caractères à partir du 11ème s'il y a Monnayeur ... et "autre chose" (fonction du code à 4 caractère) si ce n'est pas Monnayeur ...

Hors, là, tu voudrais un cas particulier pour monnayeur / ES34C => C'est çà ?

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #8

mbmb à dit:

Le IFERROR affiche un résultat ou "NC"

Si je comprends ... la formule va afficher les 6 caractères à partir du 11ème s'il y a Monnayeur ... et "autre chose" (fonction du code à 4 caractère) si ce n'est pas Monnayeur ...

Hors, là, tu voudrais un cas particulier pour monnayeur / ES34C => C'est çà ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #9

Oui le cas particulier sur ES34C c'est que la formule doit afficher les 6 caractères à partir du 1 er et non du 11ème s'il y a Monnayeur

 

Vote positif 0 Vote négatif

M

mbmb

XLDnaute Nouveau

• 29 Mars 2021

• #10

Dans tous les cas dès qu'il y a ES34C ? qu'il y ait ou non Monnayeur ?

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 29 Mars 2021

• #11

qu'il y ait ou non Monnayeur

 

Vote positif 0 Vote négatif

M

mbmb

XLDnaute Nouveau

• 29 Mars 2021

• #12

VB:

ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-2]=""ES34C"",LEFT(RC[14],6),IF(COUNTIF(RC[14],""*MONNAYEUR*""),MID(RC[14],11,6),IF(LEN(RC[-1])=12,MID(RC[-1],7,4)&""4""&MID(RC[-1],12,1),IF(RC[-2]=""ES21C"",RIGHT(LEFT(RC[14],7),6),IF(RC[-2]=""ES38C"",MID(RC[-1],9,4)&""4""&MID(RC[-1],14,1),IF(RC[-2]=""ES23C"",MID(RC[14],1,4)&""4""&MID(RC[14],6,1),IF(RC[-2]=""TE01C"",RIGHT(RC[14],6),IF(RC[-2]=""ES34C"",LEFT(RC[14],6),IF(OR(RC[-2]=""ES44C"",RC[-2]=""ES38C"",RC[-2]=""ES45C""),RIGHT(LEFT(RC[14],12),6),IF(RC[-2]=""TE10C"",RIGHT(LEFT(RC[14],13),6),IF(LEFT(RC[14],1)=""S"",""NC"",LEFT(MID(RC[14],1,FIND("" "",RC[14],1)-1),6)))))))))))),""NC"")"
Cells(x, 4) = Cells(x, 4).Value

 

Vote positif 0 Vote négatif

M

Mimifine

XLDnaute Nouveau

• 30 Mars 2021

• #13

Bonjour
J'ai testé mais cela ne fonctionne pas
Je vais revoir toute la macro, il doit y avoir un autre endroit où ce ES34C apparait ...
Merci pour votre aide mbmb !

 

Vote positif 0 Vote négatif