Exporter les données des checkbox Excel et les insérer un tableau word

Résolu

kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention - 21 sept. 2021 à 12:49

Bonjour,
voila j'expose mon problème, je suis entrain de réaliser une petite application de suivi des dossiers des clinque j'ai deux formulaire un (UserFrom1)qui sert a saisir les dossiers a leurs arrivées et l'autre (UserFrom3) pour les modifications et les impressions sous des doc Word déjà définies par des signets le problème que je n'arrive pas récupérer les valeurs des checkbox et les insérés sous forme d'un X dans un tableau Word
même chose pour les case a cocher sur le mon document Word je n'arrive pas a les cochés
ci dessus le code qui pose problème:


              If Me.TextBox6.text = "MATERNITE" Then
                WordDoc.Bookmarks("Accouchement").Range.text = X
                          
             ElseIf Me.TextBox6.text = "HEMODIALYSE" Then
             WordDoc.Bookmarks.objWord("Hémodialyse").Range.text = X
             
             
              ElseIf Me.TextBox6.text = "CARDIO-VASCULAIRE" Then
              WordDoc.Bookmarks.objWord("Cardiovasculaire").Range.text = X
            
            End If
           
            Dim numero As Object
            Dim texte As String
            texte = "X"
             Select Case numero
             Case Is = Me.CheckBox1.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("demande").Range.text = texte
             
            
             Case Is = Me.CheckBox2.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Autorisation").Range.text = texte
             
              
             Case Is = Me.CheckBox3.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Technique").Range.text = texte
              
              
             
             Case Is = Me.CheckBox4.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("praticiens").Range.text = texte
              
            
             Case Is = Me.CheckBox5.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("CASNOS").Range.text = texte
              
             
             Case Is = Me.CheckBox6.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("CNAS").Range.text = texte
              
                          
             Case Is = Me.CheckBox7.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("registre").Range.text = texte
             
              
             Case Is = Me.CheckBox8.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Contrats").Range.text = texte
             
             
             Case Is = Me.CheckBox9.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Diplômes").Range.text = texte
              
             
             Case Is = Me.CheckBox10.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("exercer").Range.text = texte
              
              
             Case Is = Me.CheckBox11.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("convention").Range.text = texte
              
                          
             Case Is = Me.CheckBox12.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("statut").Range.text = texte
              
             
             Case Is = Me.CheckBox13.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("acte").Range.text = texte
              
                 
        End Select

Merci d'avance

A voir également:

Exporter les données des checkbox Excel et les insérer un tableau word
Tableau word - Guide
Word et excel gratuit - Guide
Trier un tableau excel - Guide
Insérer signature word - Guide
Word 2013 - Télécharger - Traitement de texte

2 réponses

Réponse 1 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,
que se passe-t-il?
as-tu un message d'erreur?

kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention

Bonjour

il n'y a pas de message d'erreur et rien ne se passe sauf que le tableau reste vide et ne se coche pas

Salutations

Réponse 2 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

merci d'utiliser les balises de code quand tu postes du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

explique aussi quelle partie de ton code ne fonctionne pas.
n'hésite pas à ajouter des instructions

msgbox

pour comprendre ce que fait ton code.

le début de ton code me semble logique (if elsif end if).
par contre, je ne parviens pas à comprendre comment ton select pourrait donner un quelconque résultat utile.
qu'essaies-tu d'y faire? à quoi sert la variable "numero"?

il est peut-être préférable d'éviter d'utiliser le

select

pour le moment, jusqu'au moment où tu auras une bonne occasion de le comprendre et de l'utiliser.

kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention

c'est cette partie qui pose problème
je voudrai faire une boucle conditionnelle sur plusieurs checkbox et et leurs contenus le changer en croix X et l'insérer dans un tableau
le numero c'est une variable

 Dim numero As Object
            Dim texte As String
            texte = "X"
             Select Case numero
             Case Is = Me.CheckBox1.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("demande").Range.text = texte
             
            
             Case Is = Me.CheckBox2.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Autorisation").Range.text = texte
             
              
             Case Is = Me.CheckBox3.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Technique").Range.text = texte
              
              
             
             Case Is = Me.CheckBox4.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("praticiens").Range.text = texte
              
            
             Case Is = Me.CheckBox5.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("CASNOS").Range.text = texte
              
             
             Case Is = Me.CheckBox6.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("CNAS").Range.text = texte
              
                          
             Case Is = Me.CheckBox7.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("registre").Range.text = texte
             
              
             Case Is = Me.CheckBox8.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Contrats").Range.text = texte
             
             
             Case Is = Me.CheckBox9.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("Diplômes").Range.text = texte
              
             
             Case Is = Me.CheckBox10.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("exercer").Range.text = texte
              
              
             Case Is = Me.CheckBox11.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("convention").Range.text = texte
              
                          
             Case Is = Me.CheckBox12.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("statut").Range.text = texte
              
             
             Case Is = Me.CheckBox13.Value = True
             WordDoc.ActiveWindow.Document.Bookmarks("acte").Range.text = texte
              
                 
        End Select

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention

n'utilises pas de

select

, je pense que tu n'as pas compris à quoi cela sert.
utilise plutôt des

if

, comme tu fais dans la première partie.

kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

Bonjour

il Ya une petite amélioration suite a votre conseil mais seulement il coche une seule case dans tableau qu'il y a trois checkbox qui sont cochées

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention

alors il faut faire des

if then end if

pour chaque checkbox.
n'hésite pas à montrer ton code.

kikoudz Messages postés 6 Date d'inscription Statut Membre Dernière intervention > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

c'est parfait c'est réglé

Merci beaucoup

Votre réponse