Cellule qui n'applique pas sa formule automatiquement

Bonjour,

Je rempli une cellule avec cette ligne de code:

.Range("E5").Formula = "=""" & Replace(Result.TextBoxManquantY.Text, "chr(13)", " "" & CAR(10) & """) & """"

et j'obtient dans excel ceci:

="test  " & CAR(10) & " test"

Excelent me direz vous ? et non ! voila ce que j'obtiens:

En bleu ce que la macro me donne, mais si avec la souris j'ouvre la cellule puis j'appuie sur entrée pouffff la formule s'applique comme on peut voir dans la cellule entouré en rouge.

J'ai testé cela:

.Range("E5").Calculate

sans effet.

A+

Bonjour,

Si tu remplaces CAR(10) par Chr(10) ? Car tu l'as bien mis pour le chr(13).

Chez moi ça fonctionne :

ActiveSheet.Range("E5").Formula = "test  " & Chr(10) & " test"

Cdlt,

Bonjour Ergotamine. Non,

="test " & ChR(10) & " test"

me renvoi #NOM?

Je pensais que chr() c'etait pour VBA et CAR() la fonction excel

Avec CAR(10) nous étions presque au résultat attendu, juste que la cellule ne se mettais pas à jour je devais manuellement venir valider la cellule pour obtenir le résultat souhaité

CHAR(10) excuse moi.

Tu fonctionnes en .formula donc tes formules EXCEL doivent être en anglais dans ton code VBA.

Sinon c'est .FormulaLocal

Cdlt,

Bien vu ! merci monsieur !

A+