XL 2019 saisie de date dans une listbox

micpid62

XLDnaute Occasionnel

• 1 Septembre 2022

• #211

Merci
Je pense avoir réussi à remplacer la sub CbnSopt_clik par le code reçu mais j'ai pas su faire pour remplacer le CbnStop par la CkxDfnts

 

Pièces jointes

• CLsCAsMicpid62 (11).xlsm

  152.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Septembre 2022

• #212

La boîte à outils dit "Case à cocher". Où est le problème ?
On pourrait aussi mettre un ToggleButton ("Bouton bascule" dans la boîte à outils)

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 1 Septembre 2022

• #213

Je précise que je suis en apprentissage j'ai bien mis une case à cocher mais cela ne marche pas

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Septembre 2022

• #214

Avez vous renommé CkxDfnts cette CheckBox1 (je suppose) dans la fenêtre de propriétés ?

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 5 Septembre 2022

• #215

Bonjour je viens de remarquer que lorsque que je veux ajouter une nouvelle concession les colonnes C, D E, F J, ne se remplisse pas mais je peux modifier la ligne que je viens d'ajouter

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Septembre 2022

• #216

Bonjour.
Chez moi ces colonnes se remplissent si les contrôles correspondants sont renseignés au moment de l'ajout.
Le problème viendrait-il de ce qu'ils s'effacent lorsqu'on change le nom ou le prénom du concessionnaire ? Que faudrait-il y faire ? Pour qu'ils ne soient jamais effacés en création il faudrait mettre en commentaire l'instruction CAsC.ValeursDepuis TVLC à la fin de la Sub CLsC_Change. Mais alors ils ne seraient même plus effacés quand on clique sur le bouton "Effacer"
Peut être vaudrait il mieux mettre plus haut les CBxNomConc et CBxPréConc pour inciter à les renseigner en premier. En cochant la CkxDfnts on éviterait aussi l'effacement car le CLsC n'est plus actif. Au fait ça marche maintenant ce truc là ?

Peut être peut on simplement ajouter une avant dernière instruction :

VB:

   If CBxNoConc.Text <> "" And CBnEntrée.Enabled Then Exit Sub

Hélas non, ça ne va pas bien car si on tape "0" dans NoCons ça peut suffire à garnir d'un existant ces contrôles, qui ne seront plus effacés quand on aura fini de taper le nouveau NoConc

Que faire alors ?
Cette instruction est peut être mieux :

Code:

   If CLsC.NbRenseignés > 1 Then Exit Sub

Comme ça les contrôles saisis ne sont plus effacés si on a renseigné au moins deux ComboBox prises en charge par CLsC, et si la combinaison n'est toujours pas existante.
Mais ce n'est pas encore parfait parce qu'ils s'effacent alors si on efface une des ComboBox préalablement renseignée !

 

Dernière édition: 5 Septembre 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Septembre 2022

• #217

Je joins une version où j'ai ajouté une variable ViderCAsConcession qui indique s'il faut ou non le faire, et que je positionne à différents endroits ailleurs selon que je crois que ce sera souhaitable ou non …

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  253.6 KB · Affichages: 6

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 6 Septembre 2022

• #218

Merci cette fois on est au point mais je me demande comment faire une recherche sur une concession pour afficher tous lés défunts qui s'y trouvent ? Un TCD peut être ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Septembre 2022

• #219

Encore une fois vous avez la liste de leurs prénoms dans la CBxPréDfnt. Que vous faut-il de plus ?
À quoi vous servirait, notamment, en plus de ça, leur affichage dans une ListBox ?
Ce ne serait sans doute pas trop dfifficile, mais complètement inutile. À moins que vous m'expliquiez à quoi ça pourrait servir qui n'est pas déjà possible grâce à cette ComboBox.

 

Dernière édition: 6 Septembre 2022

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 1 Octobre 2022

• #220

Bonjour
Je reviens vers vous pour pouvoir si c'est possible, dans une nouvelle feuille, afficher, en fonction du nom concess , la concession avec le nom des défunts pour pouvoir ensuite exporter une fiche au format PDF

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Octobre 2022

• #221

Bonjour.
J'ai ajouté un bouton pour ça dans l'UserForm

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  259.9 KB · Affichages: 5

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 3 Octobre 2022

• #222

Un grand merci pour votre réactivité
J'ai encore une question ; comment faire pour une concession qui contient plusieurs défunts ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Octobre 2022

• #223

S'ils sont plusieurs, effacez le prénom du défunt pour qu'aucun en particulier ne soit sélectionné.
S'il y a des noms différents, effacez aussi le nom (sinon vous ne pouvez pas)

Tiens, il y a une erreur dans la Sub CBnExport_Click, il faut :

VB:

      For C = 1 To 4
         TRésu(LR + 3, C) = TVLD(1, C + 1)
         Next C

Il y avait LD au lieu de LR

 

Dernière édition: 3 Octobre 2022

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 17 Octobre 2022

• #224

Je reviens vers vous après quelques semaine de souci de santé, est ce qu'il possible lors d'un export de mettre le résultat de l'export dans les même cellules de la feuille export

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Octobre 2022

• #225

Je ne comprend pas votre question.
Vous les mettez où vous voulez, toujours au même endroit.

 

Vote positif 0 Vote négatif