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

 

[Dranreb]

Alors le voici muni du bouton.

 

[micpid62]

Toujours dans le test lorsque je moifier une ligne j'ai une erreur d'execution 1004 et dans sur cette ligne
Else: CLs.Lignes(LCou).Range.Value = TVL: End If

 

[micpid62]

Encore un souci si dans la base de donnée les cellule sont, je ne pas les modifier car les listes déroulant affiche vide en vert et je ne peux rien faire

 

[Dranreb]

Cette instruction n'est plus tout à fait comme ça, dans la Sub CBnEntrée_Click je pense, car si le CLs a été stoppé et l'identification changée il faut penser à envoyer les changements dans TVL
Bien sûr il faut d'abord s'arranger pour afficher la ligne à modifier. Mais après, normalement, après avoir cliqué sur le bouton "Changer idt" la modification des ComboBox prises en charge par CLs ne provoque plus de recherche, et le CBnEntré garde son rôle affiché "Ajouter" ou "Modifier" qu'il avait en dernier quand le CLs était actif.

"(Vide)" signifie "dûment renseigné (si chartreuse clair) ou assumé (si émeraude), mais à rien du tout", pour que ce ne soit pas confondu avec "Non renseigné".

Au dernière nouvelle j'ai eu d'inexplicales erreurs d'exécution "Mémoire insuffisante". Alors que les modifications se faisaient pourtant correctement. J'ai contourné en mettant des On Error Resume Next devant.

 

[Dranreb]

Bonjour.
Le classeur dans son état actuel chez moi.

 

[micpid62]

Après un test il m'est impossible de modifier la ligne sélectionnée

 

[Dranreb]

Pourquoi ?
Chez moi ça marche très bien !
Décrivez moi les manœuvres que vous effectuez pour cela.

 

[micpid62]

Je ne comprend pas
j'ouvre le formulaire (évidemment)
Je selectionne le n° de concession
tout s'affiche normalement
et lorsque je veux supprimer les de la colonne mail ou téléphone rien ne se passe

 

[Dranreb]

Effectivement, je n'avais pas vu ça. À partir de la colonne "Date de Début" les modification ne sont plus reportées. Je vais chercher. Peut être que je trouverai en même temps pourquoi j'ai ces "Mémoire insuffisante" … C'est la première fois que ça m'arrive. Ça va être dur de trouver ce qui se passe. Je soupçonne vaguement la formule …

 

[micpid62]

Pour info : De mon côté je n'ai pas de souci de "Mémoire insuffisante"

 

[Dranreb]

Les On Error Resume Next empêchent de les voir de toute façon, mais il semblerait que du coup l'affectation du tableau TVL aux valeurs de la plage de la ligne ne va pas jusqu'au bout.

 

[Dranreb]

Ouh là ! Je commence à soupçonner les textes représentant des dates antérieures au 1/1/1900

 

[micpid62]

Oui c'est une gestion de concession de cimetière il y même des date de 1869 mais apparemment les dates de fin se calcule correctement

 

[Dranreb]

J'avance peut être un peu : VBA les détecte comme dates et essayerait à tort de les imposer comme tel à Excel, qui lui ne les accepte pas, c'est sûr.

 

[Dranreb]

Apparemment c'était ça.
J'ai été obligé d'ajouter une instruction dans le module de classe CAssoTBx :

      If Year(CAsso_Valeur) < 1900 Then CAsso_Valeur = TBx.Text

Mais ça cache quand même des bogues de Microsoft, à mon avis …