[Résolu][Calc] Le bouton ne déclenche aucune action lorsqu'on clique dessus.

[Mathieu14]

Bonjour à tous,

Je suis en train de créer un annuaire de contacts dans OpenOffice Calc, et je rencontre quelques difficultés pour finaliser son automatisation via macro.

Objectif du projet :
- Disposer d’un tableau de contacts avec les colonnes suivantes : Nom, Prénom, Téléphone, Email, Adresse, Statut, Commentaire.
- Une ligne d’ajout (au-dessus du tableau) permet de remplir les champs d’un nouveau contact.
- En cliquant sur un bouton “Ajouter un contact”, le contact doit être :
a) Etre copié dans la liste du tableau (ligne 4 et suivantes),
b) Puis trié automatiquement par ordre alphabétique sur la colonne “Nom”.

visuelle du projet.png

Ce qui fonctionne :
- La ligne d’ajout est en place.
- Le menu déroulant “Statut” fonctionne bien (avec les choix : Propriétaires, Locataires, Vendeur, Acquéreur).
- La macro est bien enregistrée, visible dans Outils > Organiser les macros > OpenOffice Basic.

Macro.png

Ce qui ne fonctionne pas :
- Le bouton “Ajouter un contact” ne déclenche aucune action lorsque je clique dessus.
- Aucune erreur ne s’affiche, mais rien ne se passe.
- Le bouton a pourtant été associé à la macro via Propriétés > Événements > Exécuter une action.

Controle du bouton ''Ajouter contact''.png

Ce que je souhaite en plus :
- Je voudrais ajouter un deuxième bouton “Rechercher un contact”.
L'idée serait que la recherche se fasse à partir des informations saisies dans la ligne 2 (comme le Nom, Prénom ou Téléphone uniquement).
Si une correspondance est trouvée dans le tableau, la ligne du contact concerné serait mise en surbrillance ou sélectionnée automatiquement.

Je suis vraiment proche d’achever ce petit projet très utile, et vous remercie d’avance pour toute aide.

[micmac]

Bonjour et bienvenue sur le forum,

1. Merci de lire les règles de cette section et de baliser le titre comme il se doit.
2. Le titre de votre sujet <Problème exécution macro bouton dans un fichier Calc> n'est pas assez explicite :
   Lors d'une recherche, ce sujet risque de passer inaperçu et donc de ne pas aider d'autres personnes ayant le même problème que vous.
   
   Ce titre doit synthétiser votre question et donner envie d'y répondre. Un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement. Des termes comme, aide, bogue, problème ou OpenOffice étant implicites, n'ont pas besoin d'être mentionnés, de même que macro en section éponyme.
   
   Voici des astuces pour avoir un titre optimum : viewtopic.php?p=1002#p1002.
3. En plus des copies d'écran, joignez aussi votre fichier dépersonnalisé.
4. La règle du forum est de na poser qu'une seule question par fil.

5. OpenOffice 4.1.14

   Votre signature est incomplètement renseignée.
   N.B. Cette version d'OpenOffice n'est plus maintenue.
   Si c'est une obligation ou un choix mentionnez-le par Obligation de version ou Choix dans votre signature afin de ne pas être relancé.
   
   Afin de profiter des dernières améliorations, pensez à être à jour de la dernière version officielle
   
   Dans votre signature, en plus de la version exacte de AOO (AOO 4.1.15 par exemple) il est nécessaire d'indiquer la version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Win 11, Ubuntu 24.04, macOS (Intel, M1, M2 ou M3) 15.4.1 Sequoïa par exemple).
   Accès direct à votre signature pour la corriger.

Ajout : Balise [Calc] et ajustement du titre effectués par la modération pour cette fois.

[rollmops]

Bonjour,

Merci de suivre ce qui est demandé par le modérateur.

Il nous faudrait le document pour comprendre ce qui ne va pas.
Pouvez-vous le joindre en prenant soin de l'anonymiser ?
viewtopic.php?t=10246

[Mathieu14]

Merci pour les modifications apportées à ma demande. Je ferai attention pour les prochaines fois.

J’ai bien suivi les conseils précédents et installé la dernière version d’Apache OpenOffice (AOO 4.1.15).

Depuis, un message d’erreur apparaît lorsque j’essaie d’exécuter le bouton “Ajouter un contact”, mais le contact est bien ajouter à mon tableau.

code erreur.png

Je joins également une version anonymisée de mon fichier pour vous permettre de mieux visualiser le projet.
Je suis débutant, veuillez m'excuser pour les erreurs éventuelles.

[Dolev]

Bonjour,

Je ne comprends pas le rapport entre votre titre et le fait de trier une plage.

Code : Tout sélectionner

oSortDesc(0).Value = Array(CreateUnoStruct("com.sun.star.table.TableSortField"))

Pourquoi cette ligne ?
Dans votre code, vous devez déclarer une structure pour le(s) colonne(s) servant au tri :

Code : Tout sélectionner

Dim oSortFields(0) as new com.sun.star.util.SortField

Faites une recherche dans ce forum, il y a plein d'exemples.

[Bidouille]

Bonjour,

Dernière visite : 27 juin 2025 21:46

Réponse lue et plus de nouvelle, le sujet est donc clôturé.
Merci d'y veiller par vous-même la prochaine fois.

Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré de leur temps.
La politesse fait également partie de la philosophie du logiciel libre.

En cas d'erreur, veuillez lire ce sujet pour une éventuelle réouverture de votre question :
ftopic52748-reouverture-de-question-fermee.html