Bonjour, Je suis en train de créer une macro qui est sensée insérer une fonction dans une cellule. Cepandant, lorsque j'effecture cela, j'ai bien la fonction, mais le résultat n'est pas calculé...

J'arrive bien entendu à insérer le résultat de ma fonction dans la cellule, mais je souhaite que la cellule conserve non pas le résultat, mais le fonction.

Voici la partie concernée de ma macro :

' Si on clique sur Valider, on place l'infomation dans la cellule sélectionnée if Dlg.Execute = exitOK then Cellule = k.Model.Text Cellule = right(Cellule, (len(Cellule) - InStr(Cellule, ".")) ) ' cellule vaut C1 par exemple feuille = thisComponent.currentController.activeSheet feuille.getCellRangeByName("" & Cellule & "").createTextCursor.String = "=PINFOSOCIETE(""" & Info & """)" ' Info est un paramètre de ma fonction thisComponent.calculateAll ' Je recalcule mes cellules, mais ça marche po... endif Dlg.Dispose

Et lorsque je regarde ma feuille, voici ce que j'ai dans ma cellule : =PINFOSOCIETE("Paramètre") Pour que cette fonction soit calculée, je suis obligé de la modifier (j'enlève et je remet une paranthèse ;)) puis j'appuie sur entrée. Pourquoi le thisComponent.calculateAll n'a pas d'effet ?

Merci beaucoup !!!!!!! ;)