Est-il possible de générer du texte à partir d'une liste à cocher sur word ?

Question

Bonjour,

J'aimerai savoir s'il est possible de créer une liste à cocher qui permet de générer des compte-rendu, il faudrait en réalité qu'une fois que la case est cochée elle se transforme en une phrase type.

Par exemple, dans ma liste je retrouve : fraise, framboise, pomme... Et une fois la case "framboise" séléctionnée cela me génère une phase type "Les framboises sont désormais disponibles dans le rayon fruits et légumes e votre supermarché."

Savez-vous me dire comment je peux faire ce genre de manipulation sur Word ?

Merci d'avance pour votre aide !

Answer 1

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Chère Florence,

Merci pour votre réponse, je suis désolé que cette méthode ne vous ait pas pleinement satisfait. La seule méthode que je peux vous proposer est de vous permettre d’afficher du texte prédéfini en exécutant une macro après avoir coché l’option correspondante. C’est une fenêtre que vous voyez.

Comme mentionné dans ma première réponse, je comprends que vous souhaitiez générer directement du texte lié à une option spécifique dans le document Word après l’avoir vérifié. Mais malheureusement, les fonctions natives actuelles de Word ne peuvent pas réaliser cette opération.

Si vous le souhaitez, vous pouvez peut-être consulter la communauté ci-dessous, où se trouvent davantage d’experts en codage VBA. Peut-être pouvons-nous vous proposer un meilleur moyen. Bien sûr, si tel est le cas, la méthode utilisée sera probablement similaire au code auquel j’ai répondu ci-dessus.

Dernières questions 'vba' - Stack Overflow (Le forum est uniquement en anglais, vous pouvez utiliser des outils de traduction)

Avis de non-responsabilité : Il s’agit d’un site Web n’appartenant pas à Microsoft. La page semble fournir des informations exactes et sûres. Méfiez-vous des publicités sur le site qui peuvent faire de la publicité pour des produits fréquemment classés comme PUP (Potentially Unwanted Products). Faites des recherches approfondies sur tout produit annoncé sur le site avant de décider de le télécharger et de l’installer. 

J’espère que les informations ci-dessus vous seront utiles. Si vous pensez que ma réponse vous est utile, n’hésitez pas à la marquer comme « oui ». C’est très important pour notre évaluation client.

Si vous avez des questions, n’hésitez pas à me contacter. Bonne vie !

Meilleurs voeux

Pyke.D | Spécialiste du support communautaire Microsoft

Answer 2

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Chère FlorenceFZ,

Je n’ai pas eu de vos nouvelles depuis ma dernière réponse. Avez-vous exécuté la macro avec succès et quelle a été son efficacité ? Ou avez-vous rencontré d’autres problèmes ? N’hésitez pas à me faire savoir s’il y a des progrès.

Meilleurs voeux

Pyke.D | Spécialiste du support communautaire Microsoft

Answer 3

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Chère FlorenceFZ,

Merci pour votre réponse rapide. Je suis désolé que ce ne soit pas de votre faute. J’ai accidentellement ajouté « vba » lors du copier-coller. C’est la clé du problème. En fait, je ne suis pas très familier avec la programmation dans Word. Cette fois, le code devrait s’exécuter correctement. Dans l’attente de vos bonnes nouvelles.

Sub GenerateSummary()   

    Dim chkBox As ContentControl   

    Dim summary As String   

    summary = "The following foods are now available in the fruit and vegetable section of your supermarket:"   

    For Each chkBox In ActiveDocument.ContentControls   

        If chkBox.Type = wdContentControlCheckBox Then   

            If chkBox.Checked Then   

                summary = summary & vbCrLf & " - " & chkBox.Title & " is available now."   

            End If   

        End If   

    Next chkBox   

    MsgBox summary   

End Sub

Désolé, c’est la seule façon d’obtenir l’effet que vous avez mentionné.

J’espère que cette méthode pourra vous aider ! Si vous avez d’autres questions, n’hésitez pas à les poser.

Meilleurs voeux

Pyke.D | Spécialiste du support communautaire Microsoft

Answer 4

Bonjour Pyke.D,

Merci beaucoup pour votre retour, j'ai tenter de suivre à la lettre vos instructions, malheureusement lorsque je suis à l'étape "Exécuter" après avoir créée la macro un message d'erreur s'affiche : "Erreur de compilation : Instruction incorrecte à l'intérieur d'une procédure"

Je n'ai peut-être pas bien compris ce qu'il fallait noter à l'intérieur du code macro ?

Belle journée,

Florence

Answer 5

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Chère FlorenceFZ,

Bonjour! Bienvenue dans la communauté Microsoft. Je suis heureux de pouvoir vous aider. Si je comprends mal votre question, veuillez me le faire savoir rapidement.

Je comprends que vous souhaitiez obtenir un effet spécial dans Word. Lorsqu’une case est cochée, une phrase liée au contenu sélectionné dans la case à cocher sera automatiquement affichée. Je comprends la confusion que ce problème vous apporte, et je ferai de mon mieux pour vous aider à le résoudre.

Malheureusement, le mot natif ne peut pas obtenir l’effet que vous avez mentionné à l’heure actuelle. Si vous souhaitez obtenir un effet similaire, vous devez utiliser des outils de développement et des macros. Après avoir coché une case, vous pouvez exécuter la macro correspondante pour afficher une fenêtre d’invite avec du contenu personnalisable, mais elle ne peut pas générer activement le contenu du document pour vous.

Pour obtenir cet effet, veuillez vous référer aux étapes suivantes :

1. Créez une liste de cases à cocher :

Dans Word, accédez à l’onglet Développeur. Si vous ne voyez pas l’onglet Développeur, vous pouvez le sélectionner dans les options de > de fichier > Personnaliser le ruban.

Dans Developer, cliquez sur Insérer et sélectionnez Contrôle du contenu de la case à cocher pour insérer des cases à cocher.

2. Configurez les cases à cocher :

Insérez les cases à cocher dont vous avez besoin une par une, puis tapez du texte à droite de celles-ci, tel que « Fraise « , « Framboise », « Pomme », etc.

Cochez la case, puis recherchez l’option « Propriétés » sous les outils de développement, cliquez sur Propriétés et entrez un titre pour la case à cocher. Le titre ici doit être cohérent avec le texte tapé à droite.

3. Écrivez une macro :

Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.

Sélectionnez « Module » dans « Insérer », puis entrez le code de macro suivant, et fermez-le directement après l’avoir saisi :

vba

Sub GenerateSummary()

    Dim chkBox As ContentControl

    Dim summary As String

    summary = "The following foods are now available in the fruit and vegetable section of your supermarket:"

    For Each chkBox In ActiveDocument.ContentControls

        If chkBox.Type = wdContentControlCheckBox Then

            If chkBox.Checked Then

                summary = summary & vbCrLf & "  " & chkBox.Title & " is available now."

            End If

        End If

    Next chkBox

    MsgBox summary

End Sub

4. Exécutez la macro :

Fermez l’éditeur VBA et revenez à Word.

Dans l’onglet « Développeur », cliquez sur « Macro » pour trouver la macro que vous venez de créer et cliquez sur « Exécuter ».

Cette macro coche toutes les cases et génère un message récapitulatif avec les éléments sélectionnés. Vous pouvez ajuster le texte du résumé en fonction de vos besoins, et le contenu à l’intérieur de «  » prend en charge la saisie personnalisée.

Veuillez noter que vous devez autoriser l’exécution des macros dans Word lors de l’exécution de macros. Si vos paramètres interdisent les macros, vous devez ajuster les paramètres appropriés dans « Fichier » > « Options » > « Centre de gestion de la confidentialité ».

J’espère que cette méthode pourra vous aider ! Si vous avez d’autres questions, n’hésitez pas à les poser.

Meilleurs voeux

Pyke.D | Spécialiste du support communautaire Microsoft