Format date dans une zone de liste modifiable (userform) ?

[lebarbo]

Bonjour le forum, bonjour à tous,

J'ai créé un userform avec une zone de liste modifiable qui va chercher dans une feuille Excel des dates mais quand je valide la date dans la zone de liste modifiable elle apparaît en chiffre et j'aimerai que ça garde le format date. Comment faire ?

Merci d'avance

 

[lupin]

Re : Format date dans une zone de liste modifiable (userform) ?

Je ne comprend pas je viens d'essayer et je n'ai pas le problème, il me reprend bien les dates sous format date.
Mais en replaçant la valeur dans une cellule, Excel considère la donnée comme du texte.

Lupin

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

Salut Lupin,

Les valeurs que tu as dans ta zone de liste sont bien des dates comme moi mais une fois que tu as sélectionné ta date est ce que il te mets la date dans ta zone ou le chiffre correspondant à la date.

Si je m'exprime mal envoie ton fichier et je verrais si pour toi tu as le problème ou non.

Merci

 

[lupin]

Re : Format date dans une zone de liste modifiable (userform) ?

Désolé mais il m'affiche bien la date sous forme de date dans la zone de liste après sélection.

Lupin

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

tu peux mettre ton fichier en pièce jointe que je regarde ça de plus près...

merciiiii

 

[lupin]

Re : Format date dans une zone de liste modifiable (userform) ?

Le voici ... enfin j'espère car je n'ai jamais posté de fichier encore.

Lupin

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

Moi je le fais direct avec la fonction :

Me.ListBox1.RowSource = "Base_de_donnees!Dates"

Et là ça ne marche pas ;(

Est ce qu'on peut faire quelque chose ?

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

En fait tatiak ce qui me dérange c'est juste le champs de la zone de liste puisqu'après ça me mets la date en format date dans la cellule Excel donc aucun soucis. Donc soit on peut le faire avec la fonction Me.ListBox1.RowSource soit je fais comme Lupin.

 

[lupin]

Re : Format date dans une zone de liste modifiable (userform) ?

Je crois qu'en chargeant la liste à l'activation du userform cela marche sans soucis, voici le code :

Private Sub UserForm_Activate()
' Procédure permettant de remplir la liste déroulante lors du
' chargement du formulaire
For i = 1 To Range("Dates").Count
ListBox1.AddItem Range("Dates")(i)
Next
End Sub

Lupin

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

Ouioui faut que je fasse le teste mais ça a l'air de marcher avec ta méthode je ne vois pas pourquoi ça ne marche pas avec la mienne mais si je n'ai pas le choix j'incrémenterais ma zone de liste comme toi.

Merci Lupin et si d'autres savent comment faire avec la fonction RowSource, c'est ouvert lol

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

Bonjour à tous,

Grâce au conseil de Lupin cela fonctionne mais maintenant j'ai un autre soucis :
Voilà donc j'ai deux userform un qui va chercher la date de début d'une simulation et l'autre la date de fin de la simulation autremen dit pour éviter les erreurs les dates pérsentes dans le deuxième userform ne doivent pas comencer avant la date que l'on a rentré dans le 1er :

Base de données des dates : 01/01/1980 - 01/01/2006

Exemple :
Date début : 10/03/1988
Choix Date fin : 10/04/1988 - 01/01/2006

Donc pour faire ça je fait référence à la date début :
Voilà le code du premier userform :

Private Sub UserForm_Activate()

NoDerniereLigne = Sheets("Base_de_donnees").Range("A65536").End(xlUp).Row

ActiveWorkbook.Sheets("Base_de_donnees").Names.Add Name:="Dates", RefersToR1C1:= _
"=Base_de_donnees!R2C1:R" & NoDerniereLigne & "C1"

For i = 1 To Sheets("Base_de_donnees").Range("Dates").Count
ListBox1.AddItem Sheets("Base_de_donnees").Range("Dates")(i)
Next

End Sub

du deuxième :
Private Sub UserForm_Activate()

NoDerniereLigne = Sheets("Base_de_donnees").Range("A65536").End(xlUp).Row

LigneBox1 = Sheets("Base_de_donnees").Columns("A:A").Find(DateDebut.ListBox1).Row + 1

ActiveWorkbook.Sheets("Base_de_donnees").Names.Add Name:="DatesFin", RefersToR1C1:= _
"=Base_de_donnees!R" & LigneBox1 & "C1:R" & NoDerniereLigne & "C1"

For i = 1 To Sheets("Base_de_donnees").Range("DatesFin").Count
ListBox2.AddItem Sheets("Base_de_donnees").Range("DatesFin")(i)
Next

End Sub

Mais ça bug en LigneBox1 et je ne sais pas pourquoi, si vous avez des idées Mercciii Beaucoup !!

 

[bqtr]

Re : Format date dans une zone de liste modifiable (userform) ?

Bonsoir lebardo, le forum

Voici un exemple à adapter :

Il faut déplacer un peu le 1er UserForm avant d'ouvrir le deuxième sinon il
s'ouvre par dessus et le cache. (cela ne fonctionnera pas avec excel 97 et
peut-être excel 2000)

La plage Dates va de A2 à A30


Bonne soirée

P.O

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

Merci bqtr j'ai réussi à faire ce que je voulais maintenant il n'y a plus que les test à écrire et justement j'ai une autre question ; )
J'ai créé un userform avec une zone de texte, dans cette zone de texte je veux un montant donc un chiffre et je veux faire un test : si la valeur de la zone de texte n'est pas numerique alors masquer le user mais je n'y arrive pas voilà mon code :

Private Sub CommandButton1_Click()

If Montant.Value = "" Then
GoTo Fin
End If

If MontantTest = Not IsNumeric(Montant.Value) Then
GoTo Fin
End If

Periode.Show

Fin:
MontantForm.Hide


End Sub
---------
Montant étant la zone de texte, donc pour le test "" ça marche mais pas pour le texte je ne vois pas pourquoi.
Si vous avrez la soluce merci d'avance.

 

[lebarbo]

Re : Format date dans une zone de liste modifiable (userform) ?

alors je sais pas pourquoi mais l'inverse ça marche et du coup plus de soucis !!

If MontantTest = IsNumeric(Montant.Value) Then
GoTo Fin
End If