Date ComboBox dans cellule

A

Adr11

XLDnaute Nouveau
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
 

Pièces jointes

  • budget-vtest (2).xlsm
    121.7 KB · Affichages: 31
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour a tous
@soan l'erreur se produit quand une date est pris en long comme tel
c'est a dire dd divisé par mm divisé par yyyy

et cela dans l'ordre de la demande

a moindre incidence, cette erreur provoque un "##############" interminable dans les cellules car le chiffre est trop grand et faux bien entendu
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Adr11 à dit:
Bonjour,

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

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

Merci

Adr
Cliquez pour agrandir...
dte = cdate(Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1))

cela dit vu les problèmes rencontrés peut être vaudrait il mieux de mettre un garde fou
plutôt que planter vba et perdre d’éventuelles données non enregistrées
VB: 
' Pour les dates du combo items de 0 à 11
Dim xdte
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
  xdte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
If IsDate(xdte) Then dte = CDate(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
'ou
'If IsDate(xdte) Then dte = datevalue(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
   ' date du mois en cours
   dte = DateSerial(Year(Date), Month(Date), 1)
End If
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour Patrick, (réponse à ton post #16)

merci pour ton info.

* je crois bien que tu parles de l'erreur « Mémoire insuffisante pour afficher en entier. »

* je sais que des dièses "#######" sont affichés si un nombre ne tient pas dans une
cellule pas assez large ; mais ça m'affiche pas le message d'erreur ci-dessus.

* et donc ça serait ce que tu as écrit à propos de la date et des divisions qui cause
cette erreur ; erreur qui survient juste en faisant Alt F11 pour aller sur l'éditeur
VBA, ou juste en affichant le UserForm.

soan
 
Vote positif 0 Vote négatif
A

Adr11

XLDnaute Nouveau
patricktoulon à dit:
dte = cdate(Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1))
Cliquez pour agrandir...

Bonjour Patrick,

Merci pour la réponse ! Cependant je suis pas sur de comprendre, ceci ne va pas faire afficher textuellement "Encours" dans la cellule en sortie de combobox si ?

patricktoulon à dit:
cela dit vu les problèmes rencontrés peut être vaudrait il mieux de mettre un garde fou
plutôt que planter vba et perdre d’éventuelles données non enregistrées
VB: 
' Pour les dates du combo items de 0 à 11
Dim xdte
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
xdte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
If IsDate(xdte) Then dte = CDate(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
'ou
'If IsDate(xdte) Then dte = datevalue(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
' date du mois en cours
dte = DateSerial(Year(Date), Month(Date), 1)
End If
Cliquez pour agrandir...

Effectivement c'est plus sage d'ajouter un garde corps si la date n'est pas valide.

Merci pour la contribution
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re

Merci pour la réponse ! Cependant je suis pas sur de comprendre, ceci ne va pas faire afficher textuellement "Encours" dans la cellule en sortie de combobox si ?
Cliquez pour agrandir...
biensur que non dte est une date
si tu veux voir atterrir"En cours" dans ta cellules c'es dans le else qui faut afficher "encours"
après tu donne trop peu d'information pour aller plus loin
parce que jusqu'a preuve du contraire dte est une variable mais comme je vois pas sa déclaration ca peut etre une date, une cellule ,un variant ,etc....
bref brouillon tout ça ;)
 
Vote positif 0 Vote négatif
A

Adr11

XLDnaute Nouveau
patricktoulon à dit:
re


biensur que non dte est une date
si tu veux voir atterrir"En cours" dans ta cellules c'es dans le else qui faut afficher "encours"
après tu donne trop peu d'information pour aller plus loin
parce que jusqu'a preuve du contraire dte est une variable mais comme je vois pas sa déclaration ca peut etre une date, une cellule ,un variant ,etc....
bref brouillon tout ça ;)
Cliquez pour agrandir...

re,

Dte est effectivement une variable date, je dois la déclarer en Variant ? Déclarer une variable String dans le Else et faire correspondre avec le texte "encours" ?

Je suis légèrement perdu j'avoue ..

Merci

Adr

VB: 
Private Sub CommandButton2_Click()
    Dim dte As Date
    If Me.ComboBox1 = "" Or Me.TextBox10 = "" Or Me.TextBox5 = "" Then
        MsgBox ("Il manque des informations!")

    Else
        Dim xdte
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
  xdte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
If IsDate(xdte) Then dte = CDate(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub

' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
   ' date du mois en cours
   dte = DateSerial(Year(Date), Month(Date), 1)
End If
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 2) = Me.TextBox10
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 3) = Me.ComboBox1
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 4) = Me.ComboBox2
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 5) = Me.TextBox3
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 6) = Me.ComboBox3.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 7) = Me.TextBox5.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 8) = Me.TextBox6.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 9) = Me.ComboBox_devise
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 10) = Me.ComboBox_Facture
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 11) = dte
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 12) = Me.TextBox7
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 13) = Me.TextBox8
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 14) = Me.TextBox9

        Range("tableau1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("DATA").Range("Z2:Z3"), CopyToRange:=Sheets("DATA").Range("AB2:AP2"), Unique:=False
        Me.ListBox1.RowSource = "decal"
        ThisWorkbook.RefreshAll
        ThisWorkbook.Save

    End If

End Sub
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
dte est un variant et c'est soit une date(celle la date de la combo) soit un string"encours"
c'est cela que tu veux?
VB: 
Private Sub CommandButton2_Click()
    Dim dte As Variant
    If Me.ComboBox1 = "" Or Me.TextBox10 = "" Or Me.TextBox5 = "" Then
        MsgBox ("Il manque des informations!")

    Else
        Dim xdte
        If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
            xdte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
            If IsDate(xdte) Then dte = CDate(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
            'ou
            'If IsDate(xdte) Then dte = datevalue(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
            ' Pour l'item "Encours"
        ElseIf ComboBox_Mois.Value = "Encours" Then
            ' date du mois en cours
            dte = ComboBox_Mois.Value    'DateSerial(Year(Date), Month(Date), 1)
        End If
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 2) = Me.TextBox10
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 3) = Me.ComboBox1
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 4) = Me.ComboBox2
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 5) = Me.TextBox3
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 6) = Me.ComboBox3.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 7) = Me.TextBox5.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 8) = Me.TextBox6.Value
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 9) = Me.ComboBox_devise
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 10) = Me.ComboBox_Facture
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 11) = dte
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 12) = Me.TextBox7
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 13) = Me.TextBox8
        Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 14) = Me.TextBox9

        Range("tableau1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("DATA").Range("Z2:Z3"), CopyToRange:=Sheets("DATA").Range("AB2:AP2"), Unique:=False
        Me.ListBox1.RowSource = "decal"
        ThisWorkbook.RefreshAll
        ThisWorkbook.Save

    End If

End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Résolu(e)
XL pour MAC Format de nombres importés
Réponses
11
Affichages
252
Modeste geedee
Modeste geedee
J
  • Résolu(e)
Microsoft 365 ComboBox format date
Réponses
2
Affichages
324
juju91
J
J
  • Question
XL 2016 Trier des dates dans un ComboBox
Réponses
11
Affichages
453
jeff2318
J
Phoenix23
  • Question
XL 2016 Pb de format d'affichage date et heures dans la même cellule
Réponses
3
Affichages
197
Phoenix23
Phoenix23
M
  • Résolu(e)
Microsoft 365 Doublons dans combobox
Réponses
13
Affichages
413
Marvin57
M
chris6999
  • Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
158
mapomme
mapomme
N
  • Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
338
Neofalken
N
B
  • Résolu(e)
XL 2016 Format date dans un Userform
Réponses
7
Affichages
429
patricktoulon
patricktoulon
P
  • Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
2 K
pouetpouetlagalette
P
S
  • Question
XL 2016 afficher plusieurs résultats dans un combobox
Réponses
5
Affichages
391
submarine22
S

Membres actuellement en ligne

16 membres et 122 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 499
Messages
2 089 002
Membres
104 002
dernier inscrit
SkrauzTTV