Formulaire + boolean + sheets -> problème

Résolu
Bonjour,

J'ai un petit soucis.

Contexte :
Création d'un formulaire via excel.
Ne pouvant utiliser autre produit.
voici le fichier : https://www.cjoint.com/?0AEp5ehNaly

Fonctionnalité
Lorsque l'utilisateur clique sur le bouton send les actions suivantes sont effectués :
1. copie des valeurs dans les variables.
2. Copie de ces valeur vers deux feuilles
a) Rapport (version qui sera imprimé)
b) histo (la db)
3. Imprime la feuille Rapport en PDF

Problème
1) Dans le formulaire, j'utilise des groupages pour les Boolean.
Lorsque je l'exécute, il me place une erreur et je ne comprends pas.

2) Lors de la copie, il me rempli correctement la feuille histo, mais pas le feuille Rapport :(
Mais il copie ce qui est prévu pour rapport dans cette feuille :(

3) La feuille rapport, n'est pas remplie
Comment la remplir correctement, (changement d'activesheet ?)
4) Il n'imprime pas la bonne feuille, il reste sur histo.

Qui peux-m'aider ?

Merci d'avance.

2 réponses

  1. Bonjour,
    Je commence a regarder votre fichier:

    Lorsque je l'exécute, il me place une erreur et je ne comprends pas.

    Utilisez des objets qui sont dans la forme (Me.PoliceYesNon,Me.pompieryn
    Me.AppelAmbu,Me.AmbuVictime,Me.ArmeYesNon n'existent pas).

    Vous ne faites aucun tests pour verifier que tout soit rempli

    Je continue et vous tiens au courant.

    A+
    0
    1. Bonjour,

      C'est en faisant un débug que j'ai vu que les variable qui doivent recevoir la réponse d'un boolean ne fonctionne pas.
      Pour moi, je vois un problème au niveau de la forme et je me demande comme c'est des groupes si cela ne viendrais pas de là.

      Alors si c'est bien du faite que c'est le groupe que cela ne fonctionne pas alors la question change.

      A+
      0
  2. Bonjour,

    A vous de voir si cela vous convient, je vous laisse completer les controles de saisie avant ecriture histo et impression rapport

    https://www.cjoint.com/c/CAFiLgoakFl

    Bonne suite
    1
    1. Merci pour cette aide.
      Juste un erreur lorsque le l'essaie à cette ligne : IncArmeYN = "NON"
      Il fait error '13' type mismatch
      Une idée ?
      0
    2. Re,

      Oui

      IncArmeYN As Boolean enlever As Boolean
      0
    3. Supre merci.
      Maintenant je comprends mieux.

      Grands merci de votre aide.
      0