Bonjour,

je travaille à partir des exemples de Tony Galmich du document "exemples_macro_pour_bdd.sxw". J'essaie de calculer un champs nombre à partir d'un champs texte d'un
formulaire. Pour le moment j'en suis là:

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 If Val1="simple5,00" Then ValTotal=5 If Val1="Atelier Normal à 20,00 €" Then ValTotal=20 If Val1="Atelier Réduit à 13,00 €" Then ValTotal=13 If Val1="Famille Référent. à 15,00 €" Then ValTotal=15 If Val1="Famille Non Référent à 10,00 €" Then ValTotal=10 If Val1="Honneur (à partir de 25,00 €)" Then ValTotal=25 Else ValTotal=25 'Cette ligne modifie le Champ nommé "Total" et met à jour la Bdd oForm.updateDouble(oForm.findColumn("VAL_ADH" ), ValTotal) End Sub

Le "else" du dernier if me sert à tester si la macro s'execute ou non. Et bien, oui, elle s'exécute. C'est déjà une grande avancée pour moi.

Maintenant, pas moyen d'obtenir autre chose que "25". C'est donc que mes
conditions ne fonctionnent pas. Mais je ne comprend pas. Quelqu'un à une idée???

Merci de votre aide,

Ludo