Format date alpha dans combobox de formulaire

Version imprimable

14/02/2021, 21h47
anasecu

Format date alpha dans combobox de formulaire

Bonjour à tous,

J'ai un formulaire avec des dates que je voudrais afficher avec un format personnalisé "ddd d mmm" ce qui donne par exemple "dim. 14 févr" avec la valeur 44241.

Cela fonctionne sans souci et la source est bien un nombre date comme dans l'exemple.

Cependant, lorsque je veux reprendre la valeur de mon combobox pour la mettre dans une cellule de feuille, VBA me dit que ce n'est pas une date ou Cdate plante sans le test.

J'ai essayé d'utiliser datevalue avec combobox.text mais il me trouve une incompatibilité de type et il en est de même avec un format date long standard.

Certes je peux passer sur un format standard "dd/mm/yyyyy" mais avoir le jour en alpha est un plus pour saisir.

Comme je n'est pas trouvé de solution à ce genre de souci, si vous avez une idée pour résoudre ce problème je vous en remercie par avance.
15/02/2021, 08h16
Zekraoui_Jakani

Lorsque vous reprenez la valeur de votre combobox pour la mettre dans une cellule de feuille, c'est bien du texte que VBA renvoie, et non une date.
Il suffit de mettre cette valeur dans une cellule quelconque non formattée, puis de la transformer en date dans la cellule cible, via "=DATEVALUE(adresse)" + le format date de la cellule cible.
15/02/2021, 08h47
anasecu

Bonjour,

Citation:

Envoyé par Zekraoui_Jakani

Il suffit de mettre cette valeur dans une cellule quelconque non formattée, puis de la transformer en date dans la cellule cible, via "=DATEVALUE(adresse)" + le format date de la cellule cible.

Merci pour l'intérêt porté à mon souci mais il ne suffit pas de mettre cette valeur dans une cellule car DATEVALUE utilisée directement comme j'avais essayé ou depuis une cellule comme suggéré se plante sur une incompatibilité de type, même en supprimant le "." qui est rajouté sur le jour dans le format combobox "dim. 14 févr".
Si l'on reprend cette cellule texte avec la fonction excel DATEVAL l'on obtient aussi #VALEUR!

VBA ou Excel savent mettre un format standard ou personnalisé mais ne savent pas l'interpréter pour en retrouver la valeur.
17/02/2021, 11h41
anasecu

Bonjour à tous,

Je vois que mon souci n'inspire pas beaucoup pour trouver une solution alors que ce me semble élémentaire de pouvoir retrouver la valeur de la date qui a été formatée avec le nom du jour et sa valeur.

Sans doute que les experts n'ont pas encore vu ma question. :)
17/02/2021, 13h34
Patrice740

Bonjour,

If suffit de stocker la date (i.e variable de type Date) dans la seconde colonne du combobox et d'utiliser uniquement cette valeur (non formatée) dans une variable date.
17/02/2021, 21h53
anasecu

Bonjour Patrice,

Citation:

Envoyé par Patrice740

If suffit de stocker la date (i.e variable de type Date) dans la seconde colonne du combobox et d'utiliser uniquement cette valeur (non formatée) dans une variable date.

Merci de t'intéresser à mon souci et effectivement l'on peut cacher la valeur dans la seconde colonne mais dans ce cas, l'on ne peut plus utiliser 'rowsource', il faut coder le chargement.

Si j'utilise le combobox c'est précisément en conformité avec les docs Microsoft : le Contrôle ComboBox combine les fonctionnalités d’une zone de liste et d’une zone de texte. L’utilisateur peut entrer une nouvelle valeur, comme avec une zone de texte, ou l’utilisateur peut sélectionner une valeur existante, comme avec un objet ListBox.

D'autre part, je fait confiance à l'utilisateur et je vais lui expliquer l'intérêt de l'objet choisi afin qu'il puisse choisir ou saisir selon son besoin ou affinité.

Il se trouve par exemple, qu'il avait choisi 'dim. 14 Févr." et en validant il s'aperçoit qu'il s'est trompé de jour donc il passe en modification et remplace le 14 par n'importe quel autre jour ou éventuellement le mois : je pense que quand il va valider sa saisie en utilisant la colonne cachée comme valeur il va être enchanté de la subtilité que je lui aurais fournie. Dans ce cas, il faudrait lors de la saisie du combobox remettre la bonne valeur en seconde colonne et c'est précisément l'objet de mon interrogation : l'on tourne en rond !

C'est tout de même curieux que les concepteurs excel ne sachent pas faire fonctionner 'datevalue' avec un format qu'ils ont initié.

J'avais pas mal regardé et apparemment les solutions pour revenir à la valeur date à partir du format alpha ne sont pas légion. :oops:

Merci à toi d'avoir essayé d'en imaginer une.

Bonjour à tous,

N'ayant rien trouvé pour répondre à mon souci je pensais bien que les solutions n'étaient pas légions et c'est tout de même curieux qu'Excel ne sache pas revenir à sa valeur date après un formatage alpha.

Je me suis donc créé une fonction qui permet de récupérer la date après un formatage alpha que je vous livre si elle peut être utile à un lecteur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
'------------------------------------------------ 20/02/2021 --------------
' reprise du format date alpha francaise en valeur de date : le jour doit être en nombre
Public Function rep_dat(den As String, Optional a_d As Integer = 0) ' année en option
Dim jou As Integer ' jour
Dim moi As Integer ' mois
Dim ann As Integer ' année
Dim id1 As Integer ' indice 1
Dim id2 As Integer ' indice 2
Dim tbe            ' table éléments
Dim t_m            ' table mois
    t_m = Array("", "janv", "févr", "mars", "avr", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
    tbe = Split(Replace(Replace(Replace(den, "-", " "), "/", " "), "_", " "), " ")
    For id1 = 0 To UBound(tbe)          ' éléments de la date alpha
        If IsNumeric(tbe(id1)) Then     ' élément numérique
            If jou = 0 And (tbe(id1) > 0 And tbe(id1) < 32) Then
                jou = tbe(id1)          ' jour plausible non renseigné
            ElseIf ann = 0 Then
                ann = tbe(id1)          ' année trouvée
            End If
        Else
            For id2 = 1 To 12           ' recherche du mois alpha
                If InStr(LCase(tbe(id1)), LCase(t_m(id2))) > 0 Then moi = id2
            Next id2
        End If
    Next id1                            ' détermination année
    ann = IIf(a_d = 0, IIf(ann = 0, Year(Date), ann), a_d)
    rep_dat = DateSerial(ann, moi, jou) ' détermination date
End Function

Je n'aime pas réinventer la roue mais ceci ne remplace en aucune manière DATEVAL ou Datevalue qui ne savent pas le faire.