Date ComboBox dans cellule

[Adr11]

Bonjour le Forum,

Je réalise un programme de gestion de budget dans lequel j'ai besoin de faire correspondre ma ComboBox_Mois dans l'USF "rechercher" à mes cellules au format date et je n'y arrive pas.
J'ai besoin de l'affichage suivant : mmm.yyyy

Mon code fonctionne mais, Excel stock le changement au format texte.

Merci pour votre aide

Adr

 

[Hasco]

Bonjour,

Essayez avec : CDate("1/" & Replace(ComboBox_Mois.Text, ".", "/")) et mettez vos cellules au format souhaité.

Cordialement

 

[Adr11]

Bonjour,

Essayez avec : CDate("1/" & Replace(ComboBox_Mois.Text, ".", "/")) et mettez vos cellules au format souhaité.

Cordialement

Bonjour

Merci pour votre retour, en faisant cela j'ai une erreur d'exécution '13'

C'est normal ?

Merci

 

[soan]

Bonjour Adr11, Roblochon,

ah ben ça alors ! c'est la 1ère fois qu'ça m'arrive ! j'ai ouvert ton fichier du post #1 ;
ok : ça marche bien ; mais quand j'fais Alt F11 pour aller sur l'éditeur VBA :

pourtant, j'ai une RAM de 8 Go (et Windows 7, pas Windows 10).

soan

 

[soan]

j'ai quand même continué, et ouvert ton UserForm "Rechercher" ; mais idem :

soan

 

[Hasco]

re,

C'est normal ?

Cela le peut ! Mais comment l'affirmer si je ne sais pas ce que vous avez fait de cette instruction.

cordialement

 

[Hasco]

Re,

Dans le fichier joint, la propriété RowSource du combobox a été annulée.
Le combobox est alimenté dans la procédure UserForm_Initialize

Voyez comment est récupérée la date dans la procédure d'enregistrement.
Je trouve, mais ce n'est que mon opinion, que vous vous embêtez bien la chose avec ces formats différents. mm/yyyy et mmm.yyyyy

Cordialement

 

[soan]

@Roblochon

tu n'as pas eu le même message d'erreur que moi ?
« Mémoire insuffisante pour afficher en entier. »

tu as une RAM de 16 Go ? ou de 32 Go ?

soan

 

[Hasco]

Bonjour @soan,

Une petite ram de 8 GO. Pas de message d'erreur.

Cordialement

 

[soan]

merci pour ta réponse ! mais j'pige pas pourquoi
ça bloque sur mon PC ! tant pis... ça doit être mon
PC qui aime pas l'fichier du demandeur.

soan

 

[Adr11]

Re,

Dans le fichier joint, la propriété RowSource du combobox a été annulée.
Le combobox est alimenté dans la procédure UserForm_Initialize

Voyez comment est récupérée la date dans la procédure d'enregistrement.
Je trouve, mais ce n'est que mon opinion, que vous vous embêtez bien la chose avec ces formats différents. mm/yyyy et mmm.yyyyy

Cordialement

Re,

Ah oui c'est juste ! c'est super merci!!

Cependant, dans ma ComboBox_Mois j'ai également une donnée au format texte que je dois également afficher et avec cette procédure mon texte ne peut être pris en compte.

Des idées?

Je vous remercie

Adr

 

[Adr11]

merci pour ta réponse ! mais j'pige pas pourquoi
ça bloque sur mon PC ! tant pis... ça doit être mon
PC qui aime pas l'fichier du demandeur.

soan

Bizzare, j'ai pas du tout de souci avec le fichier même sur différentes machines ...

Désolé

 

[Hasco]

Re,

Cependant, dans ma ComboBox_Mois j'ai également une donnée au format texte que je dois également afficher et avec cette procédure mon texte ne peut être pris en compte.

Et si :

'
' Pour les dates du combo items de 0 à 11
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
   dte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
   ' date du mois en cours
   dte = DateSerial(Year(Date), Month(Date), 1)
End If

Bien sûr j'ai supposé que votre item 'Encours' voulait dire 'Le mois en cours'

Cordialement

 

[Adr11]

Re,



Et si :

'
' Pour les dates du combo items de 0 à 11
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
   dte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
   ' date du mois en cours
   dte = DateSerial(Year(Date), Month(Date), 1)
End If

Bien sûr j'ai supposé que votre item 'Encours' voulait dire 'Le mois en cours'

Cordialement

Re,

Merci pour la modification

Non le "Encours" correspond à textuellement "Encours" et ne fais référence à aucun mois en particulier.

Je vais essyer une procédure de mon coté

Merci

 

[Adr11]

Re,



Et si :

'
' Pour les dates du combo items de 0 à 11
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
   dte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
   ' date du mois en cours
   dte = DateSerial(Year(Date), Month(Date), 1)
End If

Bien sûr j'ai supposé que votre item 'Encours' voulait dire 'Le mois en cours'

Cordialement

Bonjour,

Vous avez une solution avec ma problématique de texte ?

Je ne trouve pas je pense que je cherche trop compliqué

Merci

Adr