transformation formule en vba

[alessandro]

bonsoir a tous
comme on peut trasformer cette formule
en programme vba
GRANDE(SE(DESTRA(VALORE(SINISTRA($A$19:$A$152;4));1)={"1";"3";"5";"7";"9"};VALORE($A$19:$A$152));RIGHE($1:1)
alessandro

 

[CMoa]

Re : transformation formule en vba

Bonjour alessandro
si j'ai bien tout compris essaye ceci:

 ActiveCell.FormulaR1C1 = _
        "=GRANDE(SE(DESTRA(VALORE(SINISTRA(R19C1:R152C1,4)), 1)={""1"";""3"";""5"";""7"";""9""},VALORE(R19C1:R152C1)),RIG HE(R1:R[-11]))"

Question que fais exactement cette formule?
@+

 

[tototiti2008]

Re : transformation formule en vba

Bonjour Alessandro,
Bonjour CMOa,

Traduction (si j'ai bien compris) :

=GRANDE.VALEUR(SI(DROITE(CNUM(GAUCHE($A$19:$A$152;4)); 1)={"1";"3";"5";"7";"9"};CNUM($A$19:$A$152));LIGNES($1:1))

j'aime bien cette page 😉 :

Microsoft Excel function translations

Edit : ce qui ne répond pas à la question d'alessandro, car je n'ai pas compris...

 

[alessandro]

Re : transformation formule en vba

Bonjour
Merci
alessandro