XL 2016 Changement de recherche de critère des listes et adaptation aux usf

[YAP32]

Bonsoir à toutes et à tous,

Voilà je suis employé dans une petite société privée et au bureau on utilise la version Excel 2016 en FR.

Nous avons un fichier de client qui est très basique et j'avais proposé de créer un fichier Excel de gestion client et de rendez-vous.

Après plusieurs recherches sur la toile je suis tombé sur un fichier téléchargeable et gratuit mais impossible de l'adapter à notre source je ne suis pas du tout expert dans les codes VBA.

Donc je suis ici pour demander votre aide précieux afin de supprimer certaines colonnes du fichier téléchargé afin de l'adapter dans les 2 userform et supprimer du userform ce qui n'est pas nécessaire pour la gestion de client et gestion des rendez-vous.

Si c'est possible je souhaiterais supprimer ce qui est noté dans le fichier Excel ci-dessous et l'adapter niveau la page 'client'.
Notre page de client assez simple dont un tableau l'en-tête des colonnes qui sont: Nom Société /Rue /Code Postal /Ville /N° TVA /N° de Téléphone et Adresse Mail.

Le fichier contient plus de données dont si c'est possible de supprimer les colonnes comme d'écrit dans le fichier et de l'adapter dans les userforms.(il y en a 2).

PS: On avait essayé avec un collègue du bureau de supprimer mais c'était un résultat catastrophique quand j'ai supprimé les colonnes A, Ces, D, E, F, G et I les USF ne réponds plus et si possible dans le userform gestion client niveau numéro de téléphone modifier au format belge genre +32 475 75 75 99 et aussi le N° de Tva vers le format 0 756 852 321.

Merci d'avance.

YAP32

 

[ChTi160]

Bonjour YAP32
Bienvenue sur XLD
il faudrait que tu travailles sur les Userform et y mettre ce que tu veux y trouver et Quoi y faire !
Renomme les Controls que tu veux garder et mets-y le texte que tu veux etc
Ensuite on pourra travailler a adapter les procédures.
Bonne Journée
Jean marie

 

[ChTi160]

Re
une première approche
j'ai modifié la présentation du Userform "Clients" (en fonction de ce que j'ai compris)
Perfectible
Jean marie

 

[cp4]

Bonjour Chti60,

Je te remercie infiniment pour ton aide. À l'ouverture du fichier j'ai un message : membre de méthode ou de données introuvable ci-joint en image.

Dans le userform gestion client je souhaite garder l'option critères de recherche client afin de pouvoir choisir le client et modifier, supprimer ou ajouter, mais peut-être qu'ils sont là mais en raison du message de compilation on ne les voit pas ? Comme dans les images.

Les userform je n'ose pas trop toucher/modifier mais je peux organiser niveau visuel

Merci

Yap32

Bonjour @ChTi160 , @YAP32 ,

@YAP32 : Je n'ai pas compris pourquoi à l'ouverture du fichier vouloir vider la listbox alors que le formulaire n'a encore été initialisé (ouvert). Il te suffit de supprimer la procédure qui plante.

Le fichier joint a été conçu pour géré des Patients. Les userforms sont à adapter. Il faut donc oser y toucher.
Maintenant, si tu es là pour un coup de pouce, je suis partant pour t'aider. Par contre si c'est pour du tout cuit, je passe la main.
D'après tes tableaux, je pense c'est ce qu'il te faut (image)

A+

 

[cp4]

Bonjour cp4,

Je vous remercie d'avance et comme vous l'avez mentionné j'ai supprimé dans Thisworkbook le clear.
Mais je n'ai pas le même fichier que vous. Pouvez-vous ajouter le fichier que vous avez SVP chez moi ce n'est pas du tout le même fichier je j'ai pas cette fenêtre.

PS: Puis je ferai des changements et je reviendrais vers vous.

Cordialement.

Re,

J'ai pris ton fichier joint et suivant tes explications j'ai supprimé certains contrôles du formulaire FrmPatient.

 

[cp4]

Re-bonjour,

Je ne vois pas le fichier ? Pouvez-vous joindre le fichier SVP.

Merci

ci-joint fichier, juste ajout client a été traité mais beaucoup de choses restent à mettre au point.

 

[ChTi160]

Re
le fichier ou j'ai supprimé le Workbook_Open
soit

Private Sub Workbook_Open()
FrmPatient.Lb_Patient.Clear
End Sub

et plus de Message à l'ouverture Lol
Jean marie

 

[cp4]

PS:Je tiens à vous préciser que je suis novice de novice en vba

Mais je continue à tourner en rond

A+

Bonjour,

@YAP32 : Novice, tu t'attaques donc à un gros projet sans B.A BA du VBA. ICI une mine d'or de feu Jacques Boisgontier.
Tu tournes en rond, c'est normal car tu as pris le projet de quelqu'un d'autre. Il faut donc faire l'effort de comprendre puis modifier/corriger le code.

Je suis un peu occupé, je ne serai donc pas très réactif. J'ai fait une petite modification concernant la ville et le code postal. En effet, dans le fichier joint, la ville peut ne pas correspondre au cp saisie(voir démo)

Bonne journée.

 

[cp4]

Bonsoir à tous,

J'essaie de modifier un client dans le USF-> gestion client mais je reçois le message : erreur d'exécution : 13 "incompatibilité de type comment modifier le (n = Me.Lb_Patient.Value) ici le Lb.Patient c'est quoi ? où puis-je le modifier cela fait quasi 2 heures que je tourne en rond.

PS:Je tiens à vous préciser que je suis novice de novice en vba

Mais je continue à tourner en rond


Dans N° téléphone ; j'ai ajouté entre "" le format +32 ##0\ 00""0\ 000 mais ne reponds pas non plus

Private Sub TxtN°téléphoneFrmPatient_Change()

TxtN°téléphoneFrmPatient.MaxLength = 16 (avant 14 ici)
Select Case Len(TxtN°téléphoneFrmPatient.Value)
Case 2, 5, 8, 11
TxtN°téléphoneFrmPatient.Value = TxtN°téléphoneFrmPatient.Value & "+32 ##0\ 00""0\ 000 "
End Select
TxtAlerteFrmPatient = ""

End Sub

Merci

A+

Bonjour,

Pour te permettre d'avancer, Laisse la procédure ci-dessus dans ton message telle qu'elle était et ajoutes cette procédure. le numero sera mis à jour en passant en passant à un autre contrôle.

Private Sub TxtN°téléphoneFrmPatient_AfterUpdate()
TxtN°téléphoneFrmPatient = "+32 " & Format(TxtN°téléphoneFrmPatient, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

nb: je n'ai traité que le bouton "ajouter" pas "modifier"

 

[cp4]

Bonjour,

Merci pour tes conseils je suis d'accord avec toi, je ne pensais pas que c'était si compliqué; Pas si simple et rien à voir avec tableau Excel mais je crois toujours. Ici pour intervenir, je devrais avoir des connaissances comme vous mais je ne rêve pas ce n'est pas mon cas (il faudra des années). Je vais jeter un coup d'œil au lien afin d'avancer pour pouvoir modifier et supprimer un client.

Merci

@YAP32 : en attendant un RDV décalé, je réponds vite fait.
interesse-toi à finaliser l'ajout d'un client avant de passer aux partie modification et suppression. Pour ces 2 dernières il faut récupérer le n° de lignes du client à modifier ou supprimer, ce n'est pas comme pour l'ajout où il faut insérer une nouvelle ligne en fin de tableau.
De plus présentement, on peut ajouter un client en doublon car il n'y pas de vérification préalable que le nouveau client n'existe pas dans la feuille 'client'.
Oriente-toi vers la fonction Find.

A+

 

[cp4]

J'ai ajouté du code pour gérer les doublons client (demo).
Pour la tva, est-ce que les n° sont connus pour que l'utilisateur ne puisse faire qu'une simple sélection via combobox. Ce qui implique l'ajout des données dans la feuille liste.

A+

 

[cp4]

Bonsoir cp4,

Pourriez-vous m'envoyer la dernière version SVP ? Sur le lien je suis allé voir fonction FIND et j'ai voulu suivre les instructions pour. (A cette stat-là le [modifier] qui est gestion client n'a pas tellement d'importance je ne sais même plus ouvrir un rendez-vous sélectionnant un client y a un problème entre les LB et CBCritèrenomFrmRDV)

Dans critères recherche client dans le FRMRDV; au niveau du Nom: ce sont les valeurs de colonne RUE qui s'affiche et niveau date d'inscription c'est la Ville reçois le message suivant :

Erreur 424 : objet requis!

Recherche 2 critères avec find (nom & date) du userform gestion rendez-vous 'FrmRDV'​

Private Sub BtnCritèrerechercherFrmRDV_Click()
'Sub FindMultiCritères()
n = "Nom"
d = "date"
Set c = [NOM].Find(n, LookIn:=BtnCritèrerechercherFrmRDV, LookAt:=CBCritèrenomFrmRDV)
If Not c Is Nothing Then
premier = c.Address
Set temp = c.Offset(, 1)
Do
Set temp = Union(temp, c.Offset(, 1))
Set c = [NOM].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
'-- recherche date d'inscription
Set c = temp.Find(p, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
MsgBox c.Offset(, 1)
Else
MsgBox "client n'existe pas" vbinformation, "INFORMATION!"
End If
End Sub


J'ai essayé pas mal de combinaisons mais je pense que j'ai tout mais tout mélangé les formules l'un de l'autre j'ai supprimé (je ne vois plus claire) et je vais recommencer de zéro. Aujourd’hui mon cerveau s'arrête ici

Mais dans la fonction FIND il ne prend pas comme dans le userform car double recherche avec deux différentes valeurs recherchées.


Merci

A++

Bonjour,

@YAP32 : Tu es dépassé et je le comprends très bien car tu as pris un fichier conçu par une autre personne. Il faut donc faire un double effort: comprendre d'abord ce qu'a voulu faire cette personne et ensuite adapter les codes.

Tu aurais dû démarrer d'un nouveau fichier pour demander de l'aide tout étant le plus explicite possible.
Pour le moment, je suis assez occupé. J'essaie de t'aider comme je peux. Je ne t'ai pas envoyé le dernier fichier car je n'ai pas terminé les modifications et codages, ça ne servira qu'à t'embrouiller plus qu'autre chose.

Bonne journée.

edit: pour que ton code soit lisible édite-le entre les cotes <VB> (demo)

 

[cp4]

Merci cp4,

Je tiens à te remercier pour tous ceux que tu fais et pour les conseils. Vraiment la prochaine fois (car je suis sûr qu'on va me demander autre chose heureusement j’avais dit que j’utilisai Excel) mais bon ainsi j'apprends.

J'attends impatiemment votre retour,

Question: Étant donné que certaines colonnes ont été supprimées et changés de nom aussi dans la feuille CLIENT, peut-être de ce fait dans critères recherche client dans le userform FRMRDV; au niveau du Nom: RUE et date d’inscription VILLE qui s'affiche comment voir quelle colonne appartient a quelle ligne ?

PS : Comment puis-je démarrer le VBA des cours en ligne les soirs, jamais fait de la programmation et le site que vous m'avez envoyé est très bien pour les personnes qui ont déjà un certain niveau il y a des choses que je ne comprends et d'autre pas, vraiment pas facile !

Bien amicalement,

Bonne journée

Re,
Si ton patron te demande autre chose, dis-lui de mettre la main dans la poche et faire appel à un développeur professionnel.
Sinon pour apprendre le VBA, tu peux trouver des cours sur le net. Certains sont payants, d'autres sont gratuits. Tu trouveras des cours au format pdf.
Je suis autodidacte. J'étais nul mais j'ai progressé grâce au forum XLD.

Bonne journée.

 

[cp4]

Bonsoir,

Je n'ai rien fait concernant le formulaire de prise de RDV. C'était déjà assez compliqué avec le formulaire client.
Pour le reste, ajouter ville et cp via le formulaire client, je passe la main.

 

[ChTi160]

Bonjour YAP32
Il manque si je ne me trompe
L'indication de la colonne dans cette partie du Code

Me.CbVilleFrmClient.List(Me.CbVilleFrmClient.ListIndex)"

"LisIndex" définit la ligne Source et les colonnes vont de 0 à 9 pour 10 colonnes.
Donc pour la première Colonne

Me.CbVilleFrmClient.List(Me.CbVilleFrmClient.ListIndex,0)

Je n'ai pu ouvrir le fichier(depuis mon téléphone)
A voir donc
Jean marie

 

[ChTi160]

Re
Je me suis permit de modifier Le fichier de Cp4 que je salut
J'ai chargé le Combobox des CP avec la Liste des Villes. Puis j'affiche le CP en fonction du Choix dans le Combobox des Villes (ListIndex car même Liste dans les deux Controls) .

Bonne fin de Soirée
Jean marie