Bonjour à tous,
J'ai un souci avec une formule que je souhaite insérer dans une cellule par
VBA,
Pour une raison de langues (formulaire multilingue) je copie et colle en
valeurs le contenu de ma cellule "CertifionsQue"
Pour que cela fonctionne le collage s'éffectue avec l'apostrophe:
'="Nous certifions etc..."&MaRef&" du "&TEXTE(DateCde;"jj.mm.aaaa")
Puis j'enlève l'espace de l'apostrophe avec LTrim que je mets dans la
variable MaFormule,
Le but étant de réaffecter cette variable par la ligne 11, malheureusement
cela plantouille avec une erreur 1004
Je cherche mais je ne vois pas ou est-ce que ça "coince" ;-)
NB: Si je vais dans la formule et que je fais: F2 + Enter, ça fonctionne!
-Faudrait-il effacer le contenu de la cellule "CertifionsQue" avant de lui
mettre une nouvelle formule?
Si quelqu'un peut m'aider..
Je vous en remercie d'avance,
Cordialement,
--------
Sub MonCertificat()
Dim MaFormule As String
Range("DateCde").NumberFormat = "dd/mm/yyyy" 'Cette cellule
contient une date
Range("MaDateDuJour").NumberFormat = "dd/mm/yyyy"
Range("FigeMesFormules").Select 'Cette
sélection correspond a tout le formulaire
Selection.Copy
'Pour en figer les formules.
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("CertifionsQue").Select
MaFormule = LTrim(Range("CertifionsQue")) 'Cette cell. contient la
formule ci-dessous.
' '="Nous certifions que le matériel est conforme à notre commande N°
"&MaRef&" du "&TEXTE(DateCde;"jj.mm.aaaa")
Range("CertifionsQue").FormulaR1C1 = MaFormule
Sheets("Attestations").Protect Contents:=True, userInterfaceOnly:=True
