XL 2019 saisie de date dans une listbox

Dranreb

XLDnaute Barbatruc

• 17 Août 2022

• #2

Bonsoir.
Utilisez la fonction CDate pour convertir en date un texte figurant une date.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Août 2022

• #3

bonsoir
avec un petit Cdate

VB:

Sheets("source").ListObjects(1).DataBodyRange(Me.Txt_RowId, 10) = CDate(Me.Txt_Date_debut)

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 17 Août 2022

• #4

Merci
Je viens de tester mais j'ai une erreur d'exécution

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Août 2022

• #5

Si la TextBox risque de ne pas être rensignée, testez la par la fonction IsDate

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 19 Août 2022

• #6

J'ai tout essayer mais je ne m'en sort. Pouvez-vous pourquoi je n'obtiens par le même résultat lorsque que je saisi une à partir d'un formulaire ou d'une listbox

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #7

Bonjour.
Pourquoi saisissez vous des choses dans une ListBox ?
Notez que des dates antérieures au 1/1/1900 ne peuvent pas être enregistrées en tant que dates. Elles doivent donc l'être en texte.

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 19 Août 2022

• #8

En fait je veux modifier une ligne de la source avec le formulaire Datebase qui mer permet de faire une recherche pour l'afficher dans la listbox et ensuite pouvoir modifier la ligne
je joint mon fichier pour plus de compréhension

 

Pièces jointes

• CimetiereWeb_03.xlsm

  56.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 19 Août 2022

• #9

Bonjour,
après avoir traiter la date ... tu n'as pas traiter la durée => tu la remets dans ton tableau mais sous forme de texte. alors que tu a besoin d'un numérique pour la formule de calcul de ta date de fin.

---



---


---



C'est ta fonction DateFin qui te met "texte" au lieu de tenter de modifier la chaine de caractère en un chiffre pour faire le calcul.

Je crois que c'est la cause

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #10

Je vous recommanderai de réécrire comme ça votre fonction :

VB:

Option Explicit
Function DateFin(ByVal DtDéb, ByVal Durée)
   Dim TSp() As String
   If TypeOf DtDéb Is Range Then DtDéb = DtDéb.Value
   If TypeOf Durée Is Range Then Durée = Durée.Value
   If VarType(Durée) = vbString Then
      If IsNumeric(Durée) Then Durée = CDbl(Durée)
      End If
   If VarType(Durée) = vbDouble Then
      If VarType(DtDéb) = vbDate Then
         DateFin = DateSerial(Year(DtDéb) + Durée, Month(DtDéb), Day(DtDéb))
      ElseIf DtDéb Like "*/*/*" Then
         TSp = Split(DtDéb, "/")
         TSp(2) = TSp(2) + Durée
         DateFin = Join(TSp, "/")
         If TSp(2) >= 1900 Then DateFin = CDate(DateFin)
      Else
         DateFin = CVErr(xlErrValue)
         End If
   Else
      DateFin = "Perpétuité"
      End If
   End Function

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #11

Par ailleurs je propose d'habitude une solution avec un seul UserForm de consultation et mise à jour basé sur le modèle joint.
Quelles seraient les infos d'identification et/ou de recherche, dans l'hypothèse ou chacune devrait être saisie dans une ComboBox ? Je l'adapterai peut être pour votre besoin …

 

Pièces jointes

• CLsCAsEric72.xlsm

  159.9 KB · Affichages: 10

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 19 Août 2022

• #12

En attendant sa réponse ...
pour la modif => son champ de recherche vérifie dans la colonne "Recherches" où il a concaténé toutes les données de la ligne ... => recherche full texte
et ensuite il double clique sur la ligne qu'il veut modifier parmi les résultats qui correspondent à la recherche.

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 19 Août 2022

• #13

Merci encore
Si on peux mettre les critères sur n° de concession, code emplacement ou famille
merci encore pour votre aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #14

C'est ce que je pensais. Les 3 1ers.
Serait-il utile d'ajouter la Famille et/ou la Concession actuelle (si elles ne changent plus sur une ligne existante) ?

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 19 Août 2022

• #15

non la recherche sur le code emplacement suffirait

 

Vote positif 0 Vote négatif