none
Vider automatiquement tous les champs et cases à cocher de certaines pages d'un formulaire Word 2010 RRS feed

  • Question

  • Bonjour à tous,

    Je recherche une façon optimisée pour conserver les valeurs des champs et cases à cocher de la première page uniquement dans un formulaire Word de 3 pages. Donc, plus concrètement, j'ai créé un formulaire Word 2010 avec macro vba pour permettre de sauvegarder les données saisies et soumettre ce formulaire complété pour les 3 pages. Une fois soumis, le formulaire doit revenir à la base et effaçant les données inscrites dans le formulaire pour les pages 2 et 3 afin d'avoir uniquement la page 1 avec les informations pour une utilisation future, et ainsi permettre de re-compléter les pages 2 et 3 avec d'autres informations et re-soumettre le formulaire ensuite.

    Pour le moment, j'ai testé plusieurs possibilités, mais en vain, donc j'ai inscrit dans le code vba ceci:

    ActiveDocument.FormFields("CaseACocher001").CheckBox.Value = False
    ActiveDocument.FormFields("Texte001").TextInput.Clear
    ActiveDocument.FormFields("CaseACocher002").CheckBox.Value = False
    ActiveDocument.FormFields("Texte002").TextInput.Clear
    ..ainsi de suite...

    Cependant, le processus est très long et doit absolument être optimisé, car il y a environ 100 champs et cases à cocher. 

    Merci d'avance de votre aide !

    M. Beaulieu
    mercredi 30 avril 2014 19:59

Toutes les réponses

  • Bonjour,

    si les nombres du contrôles sont standardisés, vous pouver faire une boucle:

    Dim i As Integer
    
    For i = 1 To 100
        ActiveDocument.FormFields("CaseACocher" & Format(i, "000")).CheckBox.Value = False
        ActiveDocument.FormFields("Texte" & Format(i, "000")).TextInput.Clear
    Next i
    

       



    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br

    samedi 24 mai 2014 05:23