Formule Excel enVBA

Bonjour tout le monde,

J'ai un petit soucis et je ne comprends malheureusement pas d'où peut venir le problème:

J'aimerais convertir une cellule (R2) qui a ça pour pour info 1234-1234567-12-123 pour avoir que le 2ème bloc d'info (1234567) en S2 avec une formule, mais j'aurais aimé automatiser cela en passant par une Macro au lieu de le faire à la main si je doit le faire pour une colonne.

Mon code est le suivant:

Range("S2").FormulaLocal = "=CNUM(SIERREUR(GAUCHE(STXT(R2;6;99);CHERCHE(" - ";STXT(R2;6;99))-1);R2))"

Si j'insère la formule directement ça marche très bien...

PS: FormulaLocal car j'ai office en francais...

Merci de votre aide.

Salutations.

Vehbi

Bonjour,

Tu dis que tu as un souçis , mais quel est-il ? ^^

Problème de compilation du code, problème lors de la boucle, formule qui ne marche pas ,.... ?

Sinon "à la main" , tu sais que tu n'as juste à mettre ta formule dans la 1ère cellule ou tu en as besoin en haut de ta colonne, et à tirer la formule jusqu'à la dernière cellule en bas où tu en as besoin, cela doit prendre au moins 2s et demie, voir 10s si tu as plusieurs centaines de lignes

Cordialement,

Bonjour à tous,

Sub test()
    Range("S2") = "=VALUE(IFERROR(LEFT(MID(r2,6,99),SEARCH("" - "",MID(r2,6,99))-1),r2))"
End Sub

Bonne journée

Claude