Besoin d'aide pour créer une feuille de saisie "USerForm"
Résolu
PHILOU10120
Messages postés
6513
Date d'inscription
Statut
Contributeur
Dernière intervention
-
PHILOU10120 Messages postés 6513 Date d'inscription Statut Contributeur Dernière intervention -
PHILOU10120 Messages postés 6513 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, à tous
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
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
Configuration: Windows 11/ Edge 99.0.1150.46
A voir également:
- 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 un compte gmail - Guide
195 réponses
Résumé de la discussion
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.
Re,
Pour la date saisie les colonnes
Tout a fait, mais cette date doit etre saisie ex: aujourd'hui nous sommes 18/04/2022 puis je saisir 15/04/2022 ou c'est la date du jour qui fait foi
Mais peut-être prévoir la possibilité de correction d'erreur ?
Il faudrait voir a ce moment de donner une cle unique pour un parrain ou un filleul avec une base Parrain et Filleul qui contient la cle de facon a pouvoir modifier les infos de ces personnes sans a avoir a tripatouiller les enregistrements de la base de donnee a la vue d'une erreur a posteriori. Cles independantes de votre code colonne A (a voir). La base Filleul aura la cle Parrain au moment de l'appairage
Dans la base de donnees, seulement une colonne avec la cle parrain et la cle filleul. les infos completes apparaitrons dans la listview en allant chercher ce qu'il faut dans les base parrain/filleul en fonction de ces cles comme si vous aviez une base ACCESS
Il faudra une Userform pour creer la base parrain et la base filleul au moment de l'appairage Parrain/filleul pour creation fiche base de donnee et une Userform pour mise a jour des Autres infos
Qu'en pensez vous?
Pour la date saisie les colonnes
Tout a fait, mais cette date doit etre saisie ex: aujourd'hui nous sommes 18/04/2022 puis je saisir 15/04/2022 ou c'est la date du jour qui fait foi
Mais peut-être prévoir la possibilité de correction d'erreur ?
Il faudrait voir a ce moment de donner une cle unique pour un parrain ou un filleul avec une base Parrain et Filleul qui contient la cle de facon a pouvoir modifier les infos de ces personnes sans a avoir a tripatouiller les enregistrements de la base de donnee a la vue d'une erreur a posteriori. Cles independantes de votre code colonne A (a voir). La base Filleul aura la cle Parrain au moment de l'appairage
Dans la base de donnees, seulement une colonne avec la cle parrain et la cle filleul. les infos completes apparaitrons dans la listview en allant chercher ce qu'il faut dans les base parrain/filleul en fonction de ces cles comme si vous aviez une base ACCESS
Il faudra une Userform pour creer la base parrain et la base filleul au moment de l'appairage Parrain/filleul pour creation fiche base de donnee et une Userform pour mise a jour des Autres infos
Qu'en pensez vous?
Bonjour F894009
Pour moi c'est la date de saisie qui fait foi donc 18/04/2022
Oui pour les 2 bases parrain filleul on pourra corriger les erreurs de saisie sans possibilité de modifier les autres informations
Je pense qu'il faut que l'on retrouve la clé parrain filleul, il faut savoir qu'un parrain qui a 5 filleuls qui signent et valide l'achat, touche une prime et pour 10 une prime
Merci pour tout ce travail.
Pour moi c'est la date de saisie qui fait foi donc 18/04/2022
Oui pour les 2 bases parrain filleul on pourra corriger les erreurs de saisie sans possibilité de modifier les autres informations
Je pense qu'il faut que l'on retrouve la clé parrain filleul, il faut savoir qu'un parrain qui a 5 filleuls qui signent et valide l'achat, touche une prime et pour 10 une prime
Merci pour tout ce travail.
Bonjour,
La partie saise des infos date RVD etc avec recherche commercial, annee, semaine, Parrain/Filleul est presque finie.
Le pave Date RVD etc.. pourrait se definir avec quel designation?
Je vais reprendre l'Userform Creation Fiche P/F pour inclure la modification en cas d'erreur ou omission d'infos
La partie saise des infos date RVD etc avec recherche commercial, annee, semaine, Parrain/Filleul est presque finie.
Le pave Date RVD etc.. pourrait se definir avec quel designation?
Je vais reprendre l'Userform Creation Fiche P/F pour inclure la modification en cas d'erreur ou omission d'infos
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour F894009
RDV_R_Tel_Val
Pour Rendez-vous Relance Téléphonique Validation
J'espère que cela n'est trop long
J'avais répondu de mon téléphone et cela n'a pas fonctionné et je préfère car je voyais mon adresse mail s'afficher dans la réponse, plutôt gênant
RDV_R_Tel_Val
Pour Rendez-vous Relance Téléphonique Validation
J'espère que cela n'est trop long
J'avais répondu de mon téléphone et cela n'a pas fonctionné et je préfère car je voyais mon adresse mail s'afficher dans la réponse, plutôt gênant
Re,
Fichier pour creation fiche P/F idem fichier precedent et Gestion RDV_R_Tel_Val: https://www.cjoint.com/c/LDzqIr3eyAf
Pour Creation fiche P/F, je vais commencer a voir pour gerer erreur, omission infos voir changement de parrain pour un filleul
Mais dans un premier temps, mettre au point l'existant
Fichier pour creation fiche P/F idem fichier precedent et Gestion RDV_R_Tel_Val: https://www.cjoint.com/c/LDzqIr3eyAf
Pour Creation fiche P/F, je vais commencer a voir pour gerer erreur, omission infos voir changement de parrain pour un filleul
Mais dans un premier temps, mettre au point l'existant
Bonjour F894009
Il y a un problème avec les macros voire copie d'écran, je suis en 64 bits
https://www.cjoint.com/c/LDzsHGxcIt4
Il y a un problème avec les macros voire copie d'écran, je suis en 64 bits
https://www.cjoint.com/c/LDzsHGxcIt4
Bonjour PHILOU10120,
Juste au passage, en 64 bits il faut ajouté le terme [PtrSafe]
Juste au passage, en 64 bits il faut ajouté le terme [PtrSafe]
' 64-bit Declare statement example:
Declare PtrSafe Function GetActiveWindow Lib "User32" () As LongPtr
Re,
Mettre Ptrsafe entre Declare et Function pour toutes les api
Je modifierai le code pour que ça tourne en 32/64 bits
Mettre Ptrsafe entre Declare et Function pour toutes les api
Je modifierai le code pour que ça tourne en 32/64 bits
Bonjour F894009
J'ai modifié au fur et à mesure du déroulement des macros et je bloque voir image
https://www.cjoint.com/c/LDztrmEltE4
Merci Le Pingou pour votre aide
Je regarderai demain
Bonne soirée
J'ai modifié au fur et à mesure du déroulement des macros et je bloque voir image
https://www.cjoint.com/c/LDztrmEltE4
Merci Le Pingou pour votre aide
Je regarderai demain
Bonne soirée
Bonjour F894009
J'ai un autre souci, une incompatibilité de type voire image
https://www.cjoint.com/c/LDAi4ju1cW4
J'ai un autre souci, une incompatibilité de type voire image
https://www.cjoint.com/c/LDAi4ju1cW4
Bonjour F894009
Windows 11 pro 22H2 22598.200
Les lignes de déclaration ou j'ai peut-être fait une bêtise
Private Declare PtrSafe Function GetDC Lib "user32" _
(ByVal hwnd As Long) As LongPtr
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As LongPtr
Windows 11 pro 22H2 22598.200
Les lignes de déclaration ou j'ai peut-être fait une bêtise
Private Declare PtrSafe Function GetDC Lib "user32" _
(ByVal hwnd As Long) As LongPtr
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As LongPtr
Bonjour F894009
J'ai bien du mal, il y a souvent des blocages et parfois je ne sais même pas comment m'en sortir
Ctrl-Alt-Suppr pour fermer l'application Excel est la solution finale
Je commence à découvrir tout le travail que vous avez fait et c'est énorme, je suis très loin mais très, trés loin de tout comprendre
Je vous laisse débugger car je ne sais pas trop le faire
Merci pour cet énorme travail
J'ai bien du mal, il y a souvent des blocages et parfois je ne sais même pas comment m'en sortir
Ctrl-Alt-Suppr pour fermer l'application Excel est la solution finale
Je commence à découvrir tout le travail que vous avez fait et c'est énorme, je suis très loin mais très, trés loin de tout comprendre
Je vous laisse débugger car je ne sais pas trop le faire
Merci pour cet énorme travail
Bonjour F894009
Oui j'ai eu les User Forme Feuille Accueil je peux aller sur Parrain, Filleul, RDV Ferner, Quitter tant que je n'écris rien cela se passe bien si j'écris une fiche il y a un blocage avec le numéro de téléphone argument non facultatif
Private Sub TextB_PhoneP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextB_PhoneP) < 10 And TextB_PhoneP <> "" Then
Cancel = True
Me.TextB_PhoneP.ForeColor = vbRed
MsgBox "date format:00 00 00 00 00 !!!!!"
Call Raz_Telephone("TextB_PhoneP")
Else
Me.TextB_PhoneP.ForeColor = vbBlack
End If
End Sub
Oui j'ai eu les User Forme Feuille Accueil je peux aller sur Parrain, Filleul, RDV Ferner, Quitter tant que je n'écris rien cela se passe bien si j'écris une fiche il y a un blocage avec le numéro de téléphone argument non facultatif
Private Sub TextB_PhoneP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextB_PhoneP) < 10 And TextB_PhoneP <> "" Then
Cancel = True
Me.TextB_PhoneP.ForeColor = vbRed
MsgBox "date format:00 00 00 00 00 !!!!!"
Call Raz_Telephone("TextB_PhoneP")
Else
Me.TextB_PhoneP.ForeColor = vbBlack
End If
End Sub
Bonjour F894009
J'ai eu du mal vu que cela plante je n'ai pas d'accès aux captures d'écran, donc j'ai fait un imprime écran et je suis sortie d'Excel avec Ctrl-Alt-Suppr. J'ai ouvert Word et Copie/Coller cela a marché donc voilà l'information demandée.
https://www.cjoint.com/c/LDBkCjRgnq4
J'ai eu du mal vu que cela plante je n'ai pas d'accès aux captures d'écran, donc j'ai fait un imprime écran et je suis sortie d'Excel avec Ctrl-Alt-Suppr. J'ai ouvert Word et Copie/Coller cela a marché donc voilà l'information demandée.
https://www.cjoint.com/c/LDBkCjRgnq4
Re,
Erreur sur sortie saisie?
Mettez un point d'arret sur toutes les lignes un call pour telephone Parrain pour voir ou il y a probleme
Erreur sur sortie saisie?
Mettez un point d'arret sur toutes les lignes un call pour telephone Parrain pour voir ou il y a probleme
Bonjour F894009
Il manque quelque chose mais je ne sais pas quoi
https://www.cjoint.com/c/LDCjN6pzb04
Il manque quelque chose mais je ne sais pas quoi
https://www.cjoint.com/c/LDCjN6pzb04
Bonjour,
A priori rien d'anormal. J'ai recupere le fichier que vous utilisez et aucun probleme sur la partie num telephone
Mettez la ligne en commentaire pour pouvoir valider un Parrain et creez un filleul pour voir si l'erreur apparait vu que c'est la meme procedure qui est appelee
cette procedure est dans le Module Raz1: Sub Raz_Telephone(TBox), il ne doit y avoir qu'un seul argument qui est le nom de la TextBobox
Mettez le fichier a dispo que je puisse voir s'il y a des differences
A priori rien d'anormal. J'ai recupere le fichier que vous utilisez et aucun probleme sur la partie num telephone
Mettez la ligne en commentaire pour pouvoir valider un Parrain et creez un filleul pour voir si l'erreur apparait vu que c'est la meme procedure qui est appelee
cette procedure est dans le Module Raz1: Sub Raz_Telephone(TBox), il ne doit y avoir qu'un seul argument qui est le nom de la TextBobox
Mettez le fichier a dispo que je puisse voir s'il y a des differences
Bonjour F894009
En mettant la ligne en commentaire je remplis la fiche jusqu'au bout mais rien ne se passe quand je valide, ni si je ferme, ou nettoie
Le fichier dfemandé
https://www.cjoint.com/c/LDCkpHzTwS4
En mettant la ligne en commentaire je remplis la fiche jusqu'au bout mais rien ne se passe quand je valide, ni si je ferme, ou nettoie
Le fichier dfemandé
https://www.cjoint.com/c/LDCkpHzTwS4
