XL 2019 saisie de date dans une listbox

[micpid62]

bonsoir à tous
Je vous expose mon problème : je suis en charge de la gestion d'un cimetière (pas gaie mais intéressant) dont j'ai une base de donnée pour gérer les emplacements.
Pour cela j'ai une formulaire(FrmSaisie) pour géré l'ajout de concessions et une autre (Database) pour modifier ou supprimer.
Dans ma base(source) je fait le calcul de la durée de concession(date de début et date de fin)
Lorsque que je saisie à l'aide du formulaire (FrmSaisie) le calcule se fait correctement mais lorsque je veux modifier la date de début j'obtiens dans la cellule date de fin le résultat TEXTE
Je ne sais pas si je me suis bien expliqué mais je joint le fichier pour plus de compréhension
D'avance je vous remercie pour votre aide
MP

 

[micpid62]

Comment faire pour pouvoir modifier la section et le range ?

 

[Dranreb]

Lorsque vous avez la fiche, cliquez d'abord sur le CommandButton affichant "Changer idt".

 

[micpid62]

J'essaye mais cela ne fonctionne pas en cliquant sur le bouton "changer idt" je trouve bien la ligne et lorsque je veux modifier je n'ai pas la possibilité de valider le modi

 

[Dranreb]

Si je tape "22" comme N°Concession, ça m'affiche la fiche de la "Veuve Nouzilleau". Je clique sur "Changer idt" qui devient alors "Rechercher", les ComboBox Section et Rang peuvent désormais être changées sans que ça quitte cette fiche jusqu'à validation par touche Entrée ou bouton "Modifier".
Attention: Ça ne vérifiera pas si ça ne va pas créer un doublon de la combinaison de valeurs.

 

[micpid62]

Je vous demande encore quelque chose car toutes les lignes de la base font partie de l'ancien cimetière hors je voudrai je repartir à 1 pour une nouvelle concession dans le nouveau cimetière

 

[Dranreb]

Pour une nouvelle fiche, tapez une combinaison inexistante de données d'identification.
Le bouton de validation affichera automatiquement "Ajouter".

 

[micpid62]

Est ce qu'il ne vaudrait pas mieux de faire la différence entre l'ancien et le nouveau et faire deux feuilles différentes ?

 

[Dranreb]

Je ne crois pas, mais c'est vous qui voyez.

 

[micpid62]

Bonjour
Je voudrai ajouter un formulaire qui afficherait les données principales, (n° de concession, statut,type de concession, nom de famille, nom concession actuel; date de début, durée, date de fin, adresse et afficher une image de la concession
J'ai essayé de la faire mais je m'aperçois que le nom de la feuille la base de données est différentes 'wshbase)

 

[Dranreb]

Vous voulez dire que vous avez finalement fait une seconde feuille ?
Si c'est le cas vous pourriez par exemple spécifier ActiveSheet au lieu de WshBase.
Sa collection ListObjects doit comporter au moins un élément.
Le ControlsAssociés supporte les Image. Il faut juste prévoir une colonne pour son nom de fichier.

 

[micpid62]

Je n'ai pas ajouter de seconde feuille je voudrai mettre les image dans la meme base de donnée
enfin si c'est possible

 

[Dranreb]

Avec un contrôle Image pris en charge par CAs, un clic sur l'image permettra la sélection d'un fichier image. Seul son nom de fichier sera porté dans la base. Il est possible de spécifier le chemin du dossier à l'argument Format du CAs.Add ImgPhoto, "Nom photo".
Vous ne voudriez vraiment pas une CBxFamille ? Ça m'étonne toujours. Ça m'aurait moins étonné que vous eussiez voulu en plus une recherche intuitive possible dessus.

WshBase nest pas le nom d'une feuille Excel, mais celui d'un objet Worksheet de la rubrique Microsoft Excel Objets qui assume la représentation dans VBA de la feuille "BDD"

 

[micpid62]

Inutile de vous préciser que je suis novice mais si une cbx famille je suis preneur
et encore une grand merci

 

[micpid62]

Sachant que les photos se trouvent dans le dossier gestioncimetiere/photos où dois-je spécifier le chemin?

 

[Dranreb]

À la place de ThisWorkbook.Path dans la CAs.Add Me.ImgPhoto

Avec recherche intuitive, la CBxFamille ? (possibilité de taper un nom à chercher, pouvant être contenu en plein milieu du texte)