XL 2019 saisie de date dans une listbox

Dranreb

XLDnaute Barbatruc

• 20 Août 2022

• #31

Alors le voici muni du bouton.

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  215.3 KB · Affichages: 3

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 20 Août 2022

• #32

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

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 20 Août 2022

• #33

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #34

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.

 

Dernière édition: 21 Août 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #35

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

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  253.6 KB · Affichages: 2

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 21 Août 2022

• #36

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #37

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

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 21 Août 2022

• #38

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

 

Pièces jointes

• CLsCAsMicpid62_09.xlsm

  253.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #39

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 …

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 21 Août 2022

• #40

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #41

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #42

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

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 21 Août 2022

• #43

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #44

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Août 2022

• #45

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

VB:

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

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

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  249.8 KB · Affichages: 4

Vote positif 0 Vote négatif