Besoin d'aide pour créer une feuille de saisie "USerForm"
Résolu/Fermé
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
-
20 mars 2022 à 19:12
PHILOU10120 Messages postés 6390 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 27 septembre 2024 - 12 juin 2022 à 14:52
PHILOU10120 Messages postés 6390 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 27 septembre 2024 - 12 juin 2022 à 14:52
A voir également:
- Besoin d'aide pour créer une feuille de saisie "USerForm"
- Créer un compte gmail - Guide
- 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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
18 avril 2022 à 19:01
18 avril 2022 à 19:01
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?
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
18 avril 2022 à 19:57
18 avril 2022 à 19:57
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.
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
24 avril 2022 à 12:08
24 avril 2022 à 12:08
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
24 avril 2022 à 12:18
24 avril 2022 à 12:18
Bonjour F894009
Ok, merci j'attends de voir le résultat avec impatience
Bonne journée
Ok, merci j'attends de voir le résultat avec impatience
Bonne journée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 avril 2022 à 06:59
25 avril 2022 à 06:59
Bonjour,
Le pave Date RVD etc..
Quel nom donner a ce pave?
Le pave Date RVD etc..
Quel nom donner a ce pave?
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
Modifié le 25 avril 2022 à 10:57
Modifié le 25 avril 2022 à 10:57
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 avril 2022 à 11:01
25 avril 2022 à 11:01
Re,
Ok, ca roule
Ok, ca roule
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
>
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
25 avril 2022 à 18:40
25 avril 2022 à 18:40
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
25 avril 2022 à 20:37
25 avril 2022 à 20:37
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
Le Pingou
Messages postés
12153
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 septembre 2024
1 447
Modifié le 25 avril 2022 à 20:52
Modifié le 25 avril 2022 à 20:52
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 avril 2022 à 20:55
25 avril 2022 à 20:55
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
25 avril 2022 à 21:18
25 avril 2022 à 21:18
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié le 26 avril 2022 à 10:15
Modifié le 26 avril 2022 à 10:15
Bonjour,
Pour toutes les UF_, dans les procedure:
J'aurai du le faire car j'ai mis la ligne qui modifie l'affichage UF en commentaire
Pour toutes les UF_, dans les procedure:
Private Sub UserForm_Initialize() 'mettre cette ligne en commentaire 'Call FormatUserForm(Me.Caption)
J'aurai du le faire car j'ai mis la ligne qui modifie l'affichage UF en commentaire
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
26 avril 2022 à 10:57
26 avril 2022 à 10:57
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié le 26 avril 2022 à 11:12
Modifié le 26 avril 2022 à 11:12
Re,
hDC = GetDC(0)
C'est une fonction qui est declaree au debut de cette "page"
Vous avez quel window?
hDC = GetDC(0)
C'est une fonction qui est declaree au debut de cette "page"
Private Declare Function GetDC Lib "user32" _ (ByVal hwnd As Long) As Long
Vous avez quel window?
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
Modifié le 26 avril 2022 à 11:36
Modifié le 26 avril 2022 à 11:36
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
26 avril 2022 à 12:07
26 avril 2022 à 12:07
Re,
essayez en remplacent LongPtr par Long
Vous avez quel Office?
essayez en remplacent LongPtr par Long
Vous avez quel Office?
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
26 avril 2022 à 12:09
26 avril 2022 à 12:09
Bonjour F894009
Office Pro 2019
Office Pro 2019
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
26 avril 2022 à 15:12
26 avril 2022 à 15:12
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
26 avril 2022 à 18:43
26 avril 2022 à 18:43
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié le 27 avril 2022 à 08:36
Modifié le 27 avril 2022 à 08:36
Bonjour,
si j'écris une fiche il y a un blocage
Quelle Userform?
Chez moi, pas de probleme sur les deux UF.
Pouvez faire une recopie d'ecran sur l'erreur UF et Code
Par contre vous avez de raz qui ne se font pas pour le moment, je suis entrain de retifier ca entre autres
si j'écris une fiche il y a un blocage
Quelle Userform?
Chez moi, pas de probleme sur les deux UF.
Pouvez faire une recopie d'ecran sur l'erreur UF et Code
Par contre vous avez de raz qui ne se font pas pour le moment, je suis entrain de retifier ca entre autres
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
27 avril 2022 à 12:28
27 avril 2022 à 12:28
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
27 avril 2022 à 17:28
27 avril 2022 à 17:28
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
28 avril 2022 à 11:40
28 avril 2022 à 11:40
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié le 28 avril 2022 à 12:00
Modifié le 28 avril 2022 à 12:00
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
PHILOU10120
Messages postés
6390
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
27 septembre 2024
810
28 avril 2022 à 12:16
28 avril 2022 à 12:16
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