Creation UserForm / Excel

Résolu
Bonjour,

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

64 réponses

Résumé de la discussion

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.

Bobot (l’IA à votre service)
  1. Bonsoir,

    Impeccable j'essai avec le réseau sur les trois postes dès demain.

    En essai chez moi : nickel.

    Merci énormément.
    0
    1. Bonsoir,
      Merci de votre réponse ....!
      0
      1. Bonjour,
        Est-ce que c'est bon cette fois : http://www.cijoint.fr/cjlink.php?file=cj201008/cijnfFPImj.xls
        0
        1. Bonjour,
          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.Value
          Bon dimanche.
          0
          1. Bonjour,
            Merci pour l'information.
            J'ai corrigé quelques détails : http://www.cijoint.fr/cjlink.php?file=cj201008/cijk31JNUU.xls
            0
            1. le lien ne fonctionne pas . J'ai fichier inaccessible.
              0
          2. Je ne sais pas trop si c'est lié au point.

            Quand on tappe dans les temps de carrosserie et peinture 2.5 et 3.6 par exemple, quand on clic sur ok, il me marque : 13 {incompatibilité de type}
            Là il marque le rendez vous sur le planning sans les temps.

            Ensuite quand je fais "modifier un rdv" j'entre alors les temps 2,5 et 3,6 puis je fais ok et la il me marque :1004 {'Range de l'objet'_Global' à échoué}
            et là il me marque les temps sur le planning mais sans les dixième et centième.
            Juste en unité.

            En esperant vous éclairer...
            0
            1. Bonjour,
              Concernant :
              --- Entrer d'un nouveau rdv. Si ont utilise le point du pavé numérique il créer un bug.
              Merci de préciser où est entré le point ??Note : un bug ne veut rien dire, c'est du blabla, il est plus efficace de dire. Il y a un message d'erreur 1005 et le débogage affiche ......
              0
              1. Bonjour,
                Est-ce dans le bon sens : http://www.cijoint.fr/cjlink.php?file=cj201008/cijn3g7jMX.xls
                Salutations.
                Le Pingou
                0
                1. bonjour,

                  oui cela parait impec.

                  voici 2 ou 3 bug constaté mais normal car ce n'est pas la version final :

                  --- Entrer d'un nouveau rdv. Si ont utilise le point du pavé numerique il créer un bug.
                  --- En modification de rdv c'est égal
                  --- J'ai fait un essai en ajoutant un rdv semaine 42 (je crois) et il n'apparait pas dans la liste "supervision"
                  --- Reste le classement des rdv. Par semaine OK. Mais il reste la deuxième key par date.

                  sinon je pense que tout sera impec.

                  Merci encore pour cette aide très précieuse.
                  0
                2. Comme la supervision fonctionne, le problème des couleurs peut être négligé. Si cela peut alléger....
                  0
                3. J'ai rajouter 5 rendez vous sur le planning. Si vous voulez utiliser cette version : https://www.cjoint.com/?iuki0T5cSk

                  Sinon il n'y a pas de soucis avec l'autre. J'ai mis les rendez vous de coté.

                  Merci encore.

                  Enormement.
                  0
              2. Ok pour la mise en forme bi color.

                Pour la feuille, non il ne faut pas supprimer les rdv des collaborateurs une fois transférer.
                Je pense qu'il faut les transférer en temps réelle après avoir cliquer sur Valider. (Voir, l'essai en lien) :

                http://cjoint.com/data/isxuASrLIo.htm

                0
                1. Bonjour,
                  Concernant le tri, se doit être sur la date, chez moi c'est correct.
                  Comment avez-vous fait ?
                  ------
                  Concernant la mise en forme conditionnelle des semaines, je vous propose l'alternance de 2 couleurs (semaine paire et impaire).
                  Merci de votre décision ... !
                  ------
                  Oui pour la feuille [supervision], une fois les données sur cette feuille elles sont supprimées sur les collaborateurs ? OUI ou NON
                  A qu'elle moment le transfert sur la [supervision] ...... ?
                  Merci de votre décision ... !

                  Salutations.
                  Le Pingou
                  0
                  1. Re Bonjour le forum =')

                    Je viens d'installer le programme sur les postes du garage.

                    Il y-a les derniers soucis suivant :

                    Le classement des rendez vous. Il s'effectue sur la date. Or, il les classe par le premier nombre. Donc il place le 25/09/2010 avant le 30/08/2010.
                    Du coût, j'avais la semaine 34 avant la 32.

                    ==} (Pour cela j'ai remplacer la valeur de Columns(2) par Columns(1). Il tri maintenant bien suivant les numéro de semaine. Mais toujours ce problème de date.)
                    Maintenant, j'ai par exemple le jeudi avant le mardi.

                    =} Il faudrait pouvoir mettre une deuxième condition de tri après celle des semaine.


                    ----------------------------------------------------------------------

                    J'aimerais également mettre en place plus de 3 formes conditionnelles (52 en faite). Je voudrais que tout les rendez vous d'une même semaine se remplisse en une couleur différente d'une autre semaine. (52 couleurs ou boucler une dizaine de couleurs)

                    ----------------------------------------------------------------------

                    Est ce que l'on peut en même temps, rajouter une feuil qui s'appellerais "supervision". Avec sur la feuille, lorsque l'on sélectionne le numéro de semaine, il affiche tous les rendez vous de la semaine sélectionner.
                    Bien sûr, en y-intégrant les rendez vous de tous les utilisateurs.

                    Le droit de regard sur cette feuil serai autorisé pour tous les utilisateurs.

                    ===} voir essai de ma feuil.

                    Merci encore et déjà pour tout...

                    Seb

                    Merci de prendre cette version : http://cjoint.com/data/issVy6tMJM.htm
                    0
                    1. Bonjour,
                      Désolé pour le désagrément, version corrigée : https://www.cjoint.com/?ihxqgxBDan
                      0
                      1. Bonjour,

                        Merci beaucoup c'est parfait.

                        On va laisser comme ça.

                        Merci encore pour tout. Je vous remercie pour tout.

                        Merci beaucoup

                        CDLMNT
                        0
                    2. Bonjour,

                      ok pour la modif c'est parfait. Merci beaucoup.

                      Par contre avec l'ID "courrousse" le bouton {entrer un nouveau rdv} et le bouton {exit} ne fonctionne pas.
                      Et avec l'ID "gillot", le bouton {entrer un nouveau rdv} ne fonctionne pas.

                      Sinon c'est ok.

                      Merci encore beaucoup.
                      0
                      1. RE-bonjour,,

                        depuis le temps....
                        Excusez moi je n'avais plus d'accès à internet. Je suis en procès avec Orange....

                        Bref...

                        La version mise à jour est ok.
                        Je voulais savoir si ont pouvais juste mettre un contrôle pour modifier un rendez vous.
                        Par exemple, si on clic sur la date d'un rendez-vous, l'userform réapparait pour être modifié.

                        Le seul dernier truc est que je n'arrive pas a déplacer la commande pour s'identifier sur la feuil 1. Cela car quand on n'ouvre le classeur, il marque que l'objet est en dehors de la feuille.

                        voilà.
                        Sinon tout est ok.

                        Cdlmnt
                        0
                        1. Bonjour,
                          Merci pour l'information.
                          J'ai repassé tous les codes et aussi supprimer se qui n'était pas nécessaire.
                          A propos de la protection des feuilles, je l'ai supprimé car elle n'apporte rien de plus, sinon des encoubles selon se que fait l'utilisateur.
                          Par contre, ce qu'il serait bien de protéger c'est la partie procédure (VBA), ceci est à vous de décider.
                          Voici la version mise à jour : https://www.cjoint.com/?hwo5Hfv6kD
                          0
                          1. C'est bon j'ai trouvé !!

                            Ouffff.

                            En faite quand je me connecte avec un ID c'est ok. Et moi je fesais après m'etre identifié avec par exemple Alain, je cliquais sur la feuille "Accueil", et je m'identifiais avec un autre user. Et c'est là, à l'enregistrement des rdv que ca buggais.

                            Donc pas de soucis car on ne l'utiliseras jamais comme ça.

                            Cdlmnt.
                            0
                            1. "Jai fais ça" c'est par ce que avant, je n'avais pas le contrôle MonthView. Et donc le calendrier de l'user form ne s'affichait pas.

                              Je n'ai pas modifier la version du prog. J'utilise bien le 4 aussi.

                              Je pense que ça vient de la protection des feuilles par "toto" car le message me dit : Veuillez oter les protection de la feuille..
                              0
                              1. Bonjour,
                                Je viens de tester la version [sebastiengillot_ccm_essai_4.xls] et aucunes fautes se produit.
                                Avez-vous modifié des éléments, à défaut faite moi parvenir le classeur qui vous utilisez !
                                Concernant, C'est ok j'ai fait ça pour remettre le calendrier
                                Quel calendrier avez-vous installé ?
                                0
                                1. C'est ok j'ai fait ça pour remettre le calendrier :https://www.excel-downloads.com/threads/calendar-control-manquant.131105/

                                  Je pense dernier petit problème, quand j'ouvre le prog de planning j'ai un débuggage sur la ligne : Sheets("Meslistes").Range("ident").Value = "Autoriser" {dans le This Workbook}

                                  Je clic sur Fin, je m'identifie, je cré un rendez vous, et quand je clic sur "Ok, enregistrer un rendez vous", j'ai une erreur sur la feuille de l'utilisateur. A la ligne : Cells(livi, 1) = num_sem(Me.tbxrdv) 'numéro de la semaine.
                                  J'ai controlé, j'ai le même problème avec tous les utilisateurs et que je me connecte avec n'importe quel mot de passe.
                                  0
                                  • 1
                                  • 2
                                  • 3
                                  • 4