Exporter les données des checkbox Excel et les insérer un tableau word
Résolu
kikoudz
Messages postés
7
Statut
Membre
-
kikoudz Messages postés 7 Statut Membre -
kikoudz Messages postés 7 Statut Membre -
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:
Merci d'avance
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
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
que se passe-t-il?
as-tu un message d'erreur? -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 instructionsmsgbox
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 leselect
pour le moment, jusqu'au moment où tu auras une bonne occasion de le comprendre et de l'utiliser.-
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
-
