Discussion :

[guilo49]

Bonjour,

dans le cadre de ma profession, je suis amené à devoir fournir aux commerciaux de l'entreprise un modèle de document entièrement automatique de réservation d'un hotel.

Ce que j'aimerais c'est que lorsque le commercial clique sur les prestations qu'ils désire dans l'hotel (internet, cuisine, etc) (présent dans la liste déroulante déjà créée), il puisse le faire par le biais d'un bouton ou autre à la place de la liste déroulante. En cliquant sur le bouton un userform (ou autre) apparait avec la question : "Quelles types de prestations désirez-vous que l'hôtel fournisse ?", puis en dessous les prestations à cocher (accès à Internet, wifi,cuisine, parking, petit-déjeuner, télévision, câble, satellite, téléphone, restaurant, ascenseur, sèche-cheveux) et un bouton ok. En cliquant sur ok toutes les prestations cochées s'inséreraient les unes après les autres séparées par des virgules juste avant la date (je désirerais une chambre avec "les prestations" pour le ...).

C'est possible ou pas, je penses que ça serait un truc qui ressemble au fichier BD_UserForm mais modifié pour avoir des listes de choix et l'insérer dans l'autre doc word.

[Sepia]

Bonjour Guilo49 et bienvenue sur DVP.com

En plus du présent forum, de nombreuses ressources sont à ta disposition :
- une FAQ
- des tutoriaux
- des critiques de livres

Si certains éléments te paraissent encore complexes, n'hésite pas à nous poser des questions.

Tu as aussi un tutoriel sur les formulaires qui te donnent pas mal d'explications sur l'utilisation des cases à cocher

Bon courage

[guilo49]

Bon, j'ai regardé un peu la FAQ et le reste. J'ai fait ma userform avec les cases à cocher et du coup je voudrais simplement que quand on coche les cases, les textes qui correspondent à chaque case à cocher s'insèrent à la suite après le signet 1 (car j'ai compris qu'il faut un signet dans le document comme point de référence pour que la fonction integer fonctionne). Voilà seulement le reste je comprends pas trop apparemment ya une histoire de string et integer as i ?? Aidez-moi s'il-vous-plaît. Si quelqu'un pourraît juste me compléter ma macro de façon à intégrer les textes à la suite de deux cases à cocher (à titre d'exemple), j'essaierais de comprendre pour faire les autres.

Merci.

[Heureux-oli]

Salut,

Ton problème vient de cette portion de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With ActiveDocument
    .Bookmarks("S1").Range.Text = CheckBox1_Click()
End With

Tu insères une procédure ?

Si c'est le texte associé à la case à cocher que tu veux utiliser tu dois récupérer le Caption de ta case.

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub cmd_EnvoiDansDoc_Click()
Dim monTxt As String
 
if me.CheckBox1 Then monTxt = monTxt & Me.CheckBox1.Caption & " "
If me.CheckBox2 Then monTxt = monTxt & Me.CheckBox2.Caption & " "
With ActiveDocument
    .Bookmarks("S1").Range.Text = monTxt
End With
UserForm1.Hide
End Sub

Si la case à cocher est cochée, sa valeur est donc vraie et l'étiquette de cette case à cocher est ajoutée à la variable monTxt.
Le contenu de la variable est ajouté derrière le signet.