Date ComboBox dans cellule

Adr11 · 4 Novembre 2020

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 · 4 Novembre 2020

Bonjour,

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

Cordialement

Adr11 · 4 Novembre 2020

Roblochon à dit:
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 · 4 Novembre 2020

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 · 4 Novembre 2020

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

soan

Hasco · 4 Novembre 2020

re,

Adr11 à dit:
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 · 4 Novembre 2020

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 · 4 Novembre 2020

@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 · 4 Novembre 2020

Bonjour @soan,

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

Cordialement

soan · 4 Novembre 2020

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 · 4 Novembre 2020

Roblochon à dit:
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 · 4 Novembre 2020

soan à dit:
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 · 4 Novembre 2020

Re,

Adr11 à dit:
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 :

VB:

'
' 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 · 4 Novembre 2020

Roblochon à dit:

Re,

Et si :

VB:

'
' 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 · 5 Novembre 2020

Roblochon à dit:

Re,

Et si :

VB:

'
' 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

Date ComboBox dans cellule

Adr11

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Adr11

XLDnaute Nouveau

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

soan

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Adr11

XLDnaute Nouveau

Adr11

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Adr11

XLDnaute Nouveau

Adr11

XLDnaute Nouveau

Discussions similaires

Date ComboBox dans cellule

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency