Bonjour,

Je viens d'essayer la commande select case sur les conseils de Laurent hier. Dans cette essai, ValTotal ne sert plus à rien.

Sub Calcul_Formulaire() dim oContext as object dim oForm as object dim oChampTotal as object dim Val1 as string dim ValTotal as double on error resume next oForm = ThisComponent.DrawPage.Forms.getByName("Standard") oChampTotal=oForm.GetByName( "VAL_ADH" ) Val1=oForm.GetByName("TYPE_ADH").effectivevalue Select Case Val1 Case Val1="Simple à 5,00€" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),5) Case Val1="Atelier Normal à 20,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),20) Case Val1="Atelier Réduit à 13,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),13) Case Val1="Famille Référent. à 15,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),15) Case Val1="Famille Non Référent à 10,00 €" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),10) Case Val1="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

Et bien, ça ne fonctionne pas. Peut-être est-ce moi qui utilise mal la fonction select case, mais toujours est
il que c'est "0" qui s'affiche une fois la macro éxecuté, et ce pour n'importe quelle
valeur de Val1.

Une idée?

A bientôt,

Ludo