XL 2019 Userform à adapter par rapport les colonnes d'un tableau

[YAP32]

Bonjour à tous,

Voilà je viens vers vous pour solliciter votre aide, je vais essayer de m'exprimer pour le problème.

J'ai un fichier de calendrier de rendez-vous et qu'il a 4 pages TBL, client, RDV et liste avec un userform pour gérer les rendez-vous ajouter/modifier et supprimer mais ici le soucis je ne parviens pas à mettre en place correctement la sélection des Nom qui se trouve dans la feuille Client vers le userform au niveau du ListBox à Ajouter.

La création d'un rendez-vous se fait soit en sélectionnant un Nom (société ou personne) qui se trouve dans la feuille CLIENT ou bien via la date d'inscription (ici plus nécessaire et peut être supprimé). Comme l'affichage ne se fait pas correctement car au nom c'est l'adresse qui s'affiche après sélection d'une adresse du ListBox, en haut dans le combobox le Nom s'affiche mais les autres informations (adresse, code postal et ville) ne s'affichent pas.

Je souhaiterais si possible d'afficher les informations correctement de ma feuille CLIENT dans le combobox et une fois rendez-vous Ajouté qu'ils figurent correctement dans la page RDV.
Le bouton MODIFIER (FrmRDV) ne répond pas comment le mettre en route afin d'effectuer une modification de rendez-vous (ex: heure ou type de rendez-vous).

Les heures de rendez-vous (agenda-motif) étant entre 8h à 18h j'ai ajouté 19h et 20h mais quand je choisis l'un des deux il ne s'affiche pas dans les explications.

Je vous remercie d'avance

Cordialement,

YAP32

 

[sylvanu]

Bonjour Yap,
Au moins un début :
1- La liste client c'est Me.CBCritèrenomFrmRDV.AddItem [T_Client].Item(i, 1) et non 2, le client est en première colonne.
Ainsi que col = 1 et non 2 pour la recherche.
2- Vous faites Format([T_Client].Item(i, 4), "dd/mm/yyyy"). Or la colonne 4 c'est Ville, et d'ailleurs vous n'avez aucune date dans T_Client

 

[YAP32]

Bonjour Sylanu,

Merci d'avoir réagi, effectivement le nom s'affiche correctement mais par conséquent dans le combobox il n'y a plus rien.
Oui pas de date d'inscription ici je n’en ai pas on peut la supprimer du userform. J'ai essayé mais l'affichage ne se fait plus.

Merci

 

[sylvanu]

Ainsi que col = 1 et non 2 pour la recherche.

C'est mieux quand toutes les modifs sont faites.

 

[YAP32]

C'est mieux quand toutes les modifs sont faites.

Je ne parviens pas à retirer le label et le ListBox "Date d'inscription" ou bien comment modifier avec N° de TVA
Merci

 

[sylvanu]

Il suffit de le supprimer du userform, et supprimer les lignes de code s'y référant.
( vous n'avez même pas fait la modif de col ! )

 

[YAP32]

Il suffit de le supprimer du userform, et supprimer les lignes de code s'y référant.
( vous n'avez même pas fait la modif de col ! )

Oui je l’avais fait j'ai dû renvoyer le mauvais fichier

 

[YAP32]

Oui je l’avais fait j'ai dû renvoyer le mauvais fichier

Merci Sylanu, mais quand je complète (Ajouter) un nouveau rendez-vous niveau motif donne une erreur 9 (Indice hors plage) L'indice n'appartient pas à la sélection et quand j'ajoute le RDV il confirme si je veux l'ajouter puis OK et je reçois une autre erreur 424 object requis.

 

[sylvanu]

Erreur dans quel module, sur quelle ligne ?
En faisant quelle manip ?
Vous pourriez être un peu plus précis.

Lorsque vous avez une erreur, la ligne se met en jaune, donc analysez.
Vous avez encore des réf concernant la date de naissance comme par ex :

   CbCritèredatenaissanceFrmRDV.Visible = True
   LblCritèredatenaissanceFrmRDV.Visible = True
   CbCritèredatenaissanceFrmRDV = ""

Dans le module BtnAjouterFrmRDV_Click.

 

[YAP32]

Erreur dans quel module, sur quelle ligne ?
En faisant quelle manip ?
Vous pourriez être un peu plus précis.

Oui j'ai été lente peut-être;

Quand je complète (Ajouter) pour créer un nouveau rendez-vous niveau motif donne une erreur 9 (Indice hors plage) L'indice n'appartient pas à la sélection (Li 316, Col1) et une autre manip quand j'ajoute le RDV sa passe et me demande si je confirme le nouveau rendez-vous après le Msgbox je clique OK et je reçois une autre erreur 424 objecte requis. (Li 225, Col47)

A+

 

[sylvanu]

Je ne comprend rien à votre code.
Vous manquez de rigueur dans l'écriture.
Par ex j'ai trouvé ça :
Erreur 9 ligne 313:

prénom = .ListColumns("Adresse").DataBodyRange(i)

mais vous n'avez aucun champ qui s'appelle Adresse dans tbRDV
ou encore
Erreur 9 ligne 192.

If CDbl(CbHeurerdvFrmRDV) >= CDbl(tbRDV(i, 3)) And CDbl(CbHeurerdvFrmRDV) < CDbl(tbRDV(i, 3)) + CDbl(tbRDV(i, 8)) Then

Vous faites appel à la colonne 8 de tbRDV qui n'a que 7 colonnes.
Je ne peux pas rectifier, je ne sais pas ce que vous voulez faire.
Remettez tout carré, avec les bons noms de champs, les bons N° de colonnes, et ça ira mieux.

 

[YAP32]

Je ne comprend rien à votre code.
Vous manquez de rigueur dans l'écriture.
Par ex j'ai trouvé ça :
Erreur 9 ligne 313:

prénom = .ListColumns("Adresse").DataBodyRange(i)

mais vous n'avez aucun champ qui s'appelle Adresse dans tbRDV
ou encore
Erreur 9 ligne 192.

If CDbl(CbHeurerdvFrmRDV) >= CDbl(tbRDV(i, 3)) And CDbl(CbHeurerdvFrmRDV) < CDbl(tbRDV(i, 3)) + CDbl(tbRDV(i, 8)) Then

Vous faites appel à la colonne 8 de tbRDV qui n'a que 7 colonnes.
Je ne peux pas rectifier, je ne sais pas ce que vous voulez faire.
Remettez tout carré, avec les bons noms de champs, les bons N° de colonnes, et ça ira mieux.

Effectivement, la colonne adresse a été modifiée, avant c'était prénom dans le code pour ne pas trop mélanger j'ai dû laisser comme ça.
Le but est simplement ajouté un rendez-vous correctement et par après si nécessaire d'effectuer une modification.
Tout le reste peut être supprimé à votre convenance

 

[sylvanu]

Je n'ai pas envie de modifier, car je vous l'ai dit, j'y comprends rien.
Pour corriger il faudrait comprendre la logique. Essayez de tout remettre carré comme déjà suggéré.

 

[YAP32]

Je n'ai pas envie de modifier, car je vous l'ai dit, j'y comprends rien.
Pour corriger il faudrait comprendre la logique. Essayez de tout remettre carré comme déjà suggéré.

Quand vous dites carré c'est que je supprime des codes ? Justement c'est pour ça que je vous demande de l'aide je n'arrive pas à supprimer craint de faire une erreur. Sinon c'était avec grande joie car le VBA c'est difficile à mon niveau.
Vous pouvez supprimer tout, juste ajouter/modifier/supprimer les RDV.
Entre-temps j'essaie aussi de mon côté.
Merci de votre compréhension.

 

[sylvanu]

Quand vous dites carré c'est que je supprime des codes ?

Non, que simplement que le code soit homogène avec le tableau, pour les N° de colonnes, les noms d'entete ....
En PJ, un essai qui ne plante plus mais qui donne des résultats médiocres car les données sont mélangées dans le tableau RDV.
Impossible de faire mieux votre code est difficilement compréhensible.
Vous savez que vous avez le droit de mettre des commentaires !
Bon courage.