Salut! Ca ne fonctionne toujours pas. Val_Adh affiche toujours 0 Voici l'état actuel de ma macro:

Sub Calcul_Formulaire() dim oContext as object dim oForm as object dim oChampTotal as object dim Val1 as string dim ValTotal as double 'Désactive les erreurs si la table n'existe pas on error resume next 'oForm contient l'object formulaire nommé "Formulaire2" oForm = ThisComponent.DrawPage.Forms.getByName("Standard") 'oChampTotal contient le champ de formulaire à calculer oChampTotal=oForm.GetByName( "VAL_ADH" ) 'Récupération des valeurs de Champ1 et Champ2 et calcul du Total Val1=oForm.GetByName("TYPE_ADH").effectivevalue Select Case Val1 Case "Simple à 5,00€" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),5) Case "Atelier Normal à 20,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),20) Case "Atelier Réduit à 13,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),13) Case "Famille Référent. à 15,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),15) Case "Famille Non Référent à 10,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),10) Case "Honneur (à partir de 25,00 €)" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),25) Case else oForm.updateDouble(oForm.findColumn("VAL_ADH" ),0) End Select End Sub

Est-ce encore une erreur d'utilisation???

Merci pour l'aide,

Ludo