Je souhaite réaliser un formulaire (userform) à partir de l'éditeur VBA, pour que l'on puisse saisir les valeurs relevées de 4 compteurs en y précisant la date et le moment de la journée (matin / am / nuit) concerné.
J'ai commencé la mise en forme du formulaire, mais n'ayant aucune notions de la programmation, je m'en remet à vous pour que les infos renseignées sur le formulaire, puissent renseigner la grille de relevés ci-jointe :
Les valeurs saisies seront des nombres avec 3 décimales à l'exemples des valeurs que j'ai mis dans le tableau.
Merci d'avance pour votre aide.
Re : Formulaire de saisie de valeurs renseignant grille de relevés par date
Personne pour moi? Trop complexe? ou pas assez explicite? Y a t il quelqu'un sur le sujet?
Merci d'avance encore une fois pour l'aide que vous pouvez me donner.
Re : Formulaire de saisie de valeurs renseignant grille de relevés par date
Salut Sylvain,
bienvenue sur le forum. Est-ce que vous pourriez joindre votre fichier exemple pour que nous puissions travailler à partir de quelque chose de concret.
Votre demande semble tout à fait réalisable. Je ne crois pas que ce soit le nievau de difficulté qui fait que vous n'ayez pas encore eu de réponse, mais bien le fait que de rebâtir un fichier à partir de la base. Cela demande beaucoup plus de temps tout en ne sachant pas si ça remplira votre besoin.
Bref, déposez votre fichier en pièce jointe et je tenterai de vous donner un coup de main.
Un grand merci pour ce que tu me propose, cela correspond à ce que je cherche effectivement.
Un petit détail malgrés tout, un message d'erreur s'affiche lorsque je veux saisir un nombre avec une virgule.
Erreur de saisie => « Vous devez entrer un montant numérique dans ce champs. Merci de bien vouloir recommencer ! »
Comment faire pour éviter ce message et pouvoir saisir un nombre avec une virgule (. Du pavé numérique) et 3 chiffres derrière uniquement et à condition que la cellule de destination soit bien vide afin d’éviter la perte de saisie antérieure ?
Ya bien un controle ssur les cellules contenant une valeur, hors quand il y a déjà quelque chose, si nous ne voulons pas modifier, le formulaire disparait, comment le laisser affiché?
Autrement, s'il la cellule de destination est bien vide, la valeur saisie dans le textbox ne va pas remplir la cellule de destination. Peux tu revoir ce petit dysfonctionnement?
Enfin, si rien n'est saisie et que l'on clic sur le bouton VALIDER un message d'erreur d'execution '13' est affiché maintenant !
Super boulot en tout cas ! tu touches j'ai beaucoup à apprendre et décortiquerais tout les codes pour me faire la main aprés ...
Cette version est royale.
Par contre si je protége les cellule du tableau pour éviter sa modification, comment pouvons nous faire pour que la valeur à renseigner remplise la cellule de destination?
Sinon rien à redire, impeccable, toute mes félicitation et un grand merci.
Re : Formulaire de saisie de valeurs renseignant grille de relevés par date
Salut Sylvain,
en fait, c'est très simple. Tu n'as qu'à protéger ta feuille en y mettant un mot de passe. J'ai pris pour acquis que le mot de passe serait Sylvain. Tu peux le changer à ta guise.
Ensuie, une fois que c'est fait, ajoute ce petit code à deux endroits dans la macro intitulée "Inscrire_Info", soit dans le haut juste avant la ligne
Code:
Laisser_Visible = 0
et en bas avant le "End Sub"
Voici le code à insérer :
VB:
If Sheets("Relevés de Compteurs").ProtectContents = True Then
Sheets("Relevés de Compteurs").Unprotect Password:="Sylvain"
Else
Sheets("Relevés de Compteurs").Protect Password:="Sylvain"
End If
Salut Sylvain,
en fait, c'est très simple. Tu n'as qu'à protéger ta feuille en y mettant un mot de passe. J'ai pris pour acquis que le mot de passe serait Sylvain. Tu peux le changer à ta guise.
Ensuie, une fois que c'est fait, ajoute ce petit code à deux endroits dans la macro intitulée "Inscrire_Info", soit dans le haut juste avant la ligne
Code:
Laisser_Visible = 0
et en bas avant le "End Sub"
Voici le code à insérer :
VB:
If Sheets("Relevés de Compteurs").ProtectContents = True Then
Sheets("Relevés de Compteurs").Unprotect Password:="Sylvain"
Else
Sheets("Relevés de Compteurs").Protect Password:="Sylvain"
End If
Re : Formulaire de saisie de valeurs renseignant grille de relevés par date
Bonjour Etienne,
Je revoie ma copie, et finalement je souhaiterai pouvoir saisir les 4 relevés en même temps pour les 4 compteurs en fonction bien évidemment de la date du jour et du poste.