Besoin d'aide pour créer une feuille de saisie "USerForm"
RésoluPHILOU10120 Messages postés 6513 Date d'inscription Statut Contributeur Dernière intervention -
Je suis en train d'essayer de réaliser une base de données, mais je bute sur la saisie des informations, si quelqu'un pouvait m'aider cela serait parfait. (Le VBA est trop compliqué pour mi et j'y perds beaucoup de temps je n(avance pas)
Voici mon ébauche de fichier
https://www.cjoint.com/c/LCuslILcJG4
Merci pour votre aide
- Besoin d'aide pour créer une feuille de saisie "USerForm"
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer une adresse hotmail - Guide
- Créer une liste déroulante excel - Guide
195 réponses
La problématique porte sur la saisie d’informations dans une base via des formulaires, en particulier le choix des champs obligatoires, des accès bloqués à certains éléments et l’idée d’un sauvegarde automatique à la fermeture. Les propositions techniques incluent la validation du numéro de téléphone (minimum 10 chiffres), l’apparition d’un calendrier par clic pour les dates et la distinction entre formulaires de création et de modification pour éviter les blocages lors de la saisie. Sur le volet données, il est recommandé de ne pas supprimer un parrain sans filleuls pour éviter les doublons, d’envisager des corrections plutôt que des suppressions, et de clarifier les intitulés et les colonnes (Pose, M², Date, RVD, mois) pour une meilleure cohérence. Enfin, côté interface, l’utilisation d’une ListView plutôt qu’une ListBox est évoquée pour limiter les accès externes et améliorer les performances, avec des ajustements sur le séparateur décimal et l’ajout éventuel d’une colonne mois.
Ok ça marche, j'ai testé c'est bon
Je continue les tests
Je vous tiens au courant
Merci
Qu'est-ce que vous appelez " UserForm " ?
L' UserForm est comme une fenêtre de formulaire vierge en mode création dans lequel on insert grâce à la boite d'outils des contrôles comme des boutons, des images, des liste déroulantes, des zone de saisie et donc l'interaction se fait via du code VBA,
UserForm ressemble à ceci :

Oui c'est cela mais en plus complexe
J'ai bien avancé avec l'aide de F894009 qui m'a fait une superbe mise en page
Lors des tests je m'aperçois qu'il faudrait faire la même démarche que pour Phonings et vente dans la case "Pose effectuée", qu'il y ait obligatoirement "non" ou "la date" cela permettra de comptabiliser les dossiers non traités et la somme des M² encore à exécuter
Une autre chose les M² sont en texte dans la base de données, je préférerai les avoir en nombre si possible
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOk, je regarde la chose
Suite:
obligatoirement "non" ou "la date"
Apparemment vu que vous voulez tester un texte ou une date, une cellule vide ce teste sans probleme
Ou cellule avec date ou pas
Oui je suis d'accords, mais cela peut-être un oubli donc si on mais Non on devra obligatoire valider avec la date
Donc tout ce qui est NON reste à faire
Le fichier au dernier Jus
https://www.cjoint.com/c/LFcqq2nTO74
Voilà j'ai bien avancé :
Sur la feuille Base_données j'ai ajouté colonne O à Q pour essai, il me faut ces informations pour les statistiques. je dois aussi compter les filleuls pour un parrain pour attribution de prime le cas échéant.
J'ai eu un problème avec des données qui sont en texte au lieu de nombre (date et M²) voire si on peut faire quelque chose
Dans la Base_données une colonne avec le mois aurait été plus facile à manipuler que les dates
Je vous joins le fichier et vous me dites ce que vous en pensez
Merci pour ce gros travail sans vous j'aurai beaucoup galéré
https://www.cjoint.com/c/LFfrDcWUVV4
une colonne avec le mois aurait été plus facile
Si je comprends bien, vous voulez remettre les colonnes que vous aviez, au depart
date et M²
Chez mois ce sont les bons format. Quel est le séparateur de décimal chez vous: un point ou une virgule ?
Suite:
Pour le mois, avec vos formules magiques (idem O/Q) facile a faire.
Pour les colonnes :
"Mois" et "Semaine" pour les statistiques
"P" et "F" pour le calcul des primes
Pour le séparateur décimal "," c'est la virgule
Merci bonne journée
"Mois" et "Semaine" pour les statistiques
Faites des formules comme vous avez fait pour P/F ou est ce que vous tenez absolument avoir vos anciennes colonnes en R/S et les colonnes O/Q ecrites sans formule
Si et seulement si cela n'engage pas trop de modifications j'aurai préféré que ces informations soient présente dans la base de données sans avoir à intervenir dans celle-ci
Merci pour votre aide
Ok, il y a seulement l'ecriture des cellules Base de donnees a la creation fiche et pas de lecture pour la listview dans aucune Userform
Non juste les infos dans la base pour ne pas avoir à intervenir
J'ai ajoute les modifs pour remplir les case RDV etc avec non par defaut a la suite de votre demande.
J'ai aussi corrige une erreur sur le code Filleul: deux "-" ald d'un seul devant le F
Date chaine: corrige
Separateur: chez mois c'est un point. Je fais une modif pour que ce soit le votre
Suite:
Fichier avec les colonnes suplementaires, format date: https://www.cjoint.com/c/LFgqqMXOT6g
Je regarderai demain pour poseM², probleme pour adapter le separateur decimale
Merci pour cette mise à jour rapide
Oui j'avais vu ce problème de -- dans le numéro Filleul, on aurait pu formater F-001, ou F-041 avoir 3 ou 4 caractères en permanence quoique on aura peut-être plus donc je ne sais pas
Ce matin lors de test l'application bloc sur UserForm RDV R Tel V, le faites de mettre à jour les informations il y a un blocage si on laisse la case M² vide.
On peut prévoir le RDV mais on ne sait pas encore la surface celle-ci est mesurée lors du RDV chez le client donc il y a un souci
on laisse la case M² vide.
C'est a la suite d'essai a votre demande M²: pas en nombre mais texte
Faite cette modif apres les lignes en commentaire:
'SepDec = Application.International(xlDecimalSeparator) 'separateur de decimale utilise sur le pc dans Excel
'V = Application.Substitute(TextB_PoseM, ",", SepDec)
If TextB_PoseM <> "" Then
.Cells(PCV, 11) = CSng(TextB_PoseM)
End If
Je continue pour les M² en nombre et separateur utilse sur l'excel du pc
Suite:
Testez ce fichier pour le format M²: https://www.cjoint.com/c/LFhprTqT6Ag
J'ai teste chez moi en changeant le separateur Excel de point en virgule et c'est Ok