Creation UserForm / Excel
Résolu
sebastiengillot Messages postés 57 Statut Membre -
J'ai créé un planning sur de charge de travail sur Excel. Je l'ai ensuite mis en réseau sur 3 postes pour 3 utilisateurs différents.
=} Jusque là ça va bien.
Je voudrais par contre créer un UserForm ou quelque chose comme ca pour facilité la rédaction d'un nouveau rendez vous et qu'il puisse s'insérer à une date donnée.
=} J'ai donc créé ce petit essai qui correspond à ce que je souhaite faire :
http://www.excel-online.net/index2.htm
Le problème, c'est qu'il ne fonctionne pas. Lorsqu'on lance la compilation, le code du bouton de la feuille Excel est plein d'erreur.
J'en cherche d'autre de ce style mais sans aucun résultat positif depuis plusieurs jours.
Je vient donc a votre aide pour m'aider à résoudre ce problème.
Je vous remercie beaucoup par avance des réponses que vous m'apporterez.
Cordialement;
Sébastien
- Creation UserForm / Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Création compte google - Guide
64 réponses
Un planning de charge créé dans Excel est partagé sur trois postes et l’utilisateur souhaite ajouter via un UserForm des rendez‑vous à une date donnée.
L’essai d’un exemple en ligne entraîne des erreurs de compilation, liées à la compatibilité des contrôles ActiveX du calendrier (MonthView) selon les versions d’Office et les postes.
Différentes solutions ont été explorées, notamment l’installation d’un contrôle calendrier alternatif, le passage à une version d’Office plus récente et la réduction du volume de contrôles TextBox, qui dépassait 2500 et générait des lenteurs.
Le bilan actuel indique des progrès sur le prototype local et un test du réseau sur les trois postes prévu prochainement, le fonctionnement local étant jugé satisfaisant.
J'ai oublié de corrigé un détail qui provoque message de vérification dans les cellules [Temps peinture/tôlerie].
Merci de corriger le code des 2 procédures [Private Sub btcmdok_Click()] selon modèle ci-dessous :
Cells(livi, 10) = Me.tbxtpeint.Value Cells(livi, 11) = Me.tbxtcar.ValueBon dimanche.
Est-ce que c'est bon cette fois : http://www.cijoint.fr/cjlink.php?file=cj201008/cijnfFPImj.xls
