PRBL valeur combobox

Bonsoir Titanic, le forum...

J'ai eu récemmnent le même problème

je l'ai résolu comme ceci :

CDate(ComboBox1)

Cordialement

Merci pour ta réponse Startus.
Ou places tu le code ?
Je viens de le mettre dans mon module comme:


Private Sub ComboBox3_Change()
ComboBox1.DateValue = CDate(ComboBox3)
End Sub


Mais le débogueur n'apprécie pas !!!
Membre de méthode ou donnée introuvable...

OUPS..
Pardon, j'ai plutot mis:

Private Sub ComboBox3_Change()
ComboBox3.DateValue = CDate(ComboBox3)
End Sub

OK, le code:

Private Sub ComboBox3_Change()
ComboBox3.Value = CDate(ComboBox3)
End Sub

ça à l'air de fonctionner...

Merci 1000 fois !!!

EH ZUT!!!!!!!!!!!
la date est inversée....

Salut TITANIC, startus, le Forum

Essayes


Bonne Journée

Salut Dull.
c'est négatif, il 'inverse' toujours la date.
Du type;
je sélectionne une date dans la liste ( via le combo ), il affiche un n°de série, et passe au bon format date à la perte du focus ( à la limite on peut tolérer ça ), mais lorsque on valide la nouvelle date :
si j'ai sélectionné par ex 02/08/06, il valide alors 08/02/806 dans la liste ( c'est pas le top).

Pardon il valide 08/02/2006

Re,

Comprends pas ça devrait marcher essaye comme ça peut-être

Non ca marche pas
erreur de compilation;
projet ou bibliothèque introuvable !

En fait la routine qui fonctionne le mieux est :

Private Sub ComboBox3_AfterUpdate()
ComboBox3.Value = CDate(ComboBox3)
End Sub

au niveau de la base de donnée, simplement l'info jour/mois est inversée

+ bien sur le souci d'affichage num série de la date modifiée.
Je trouve pas , c'est infernal !!

Je pense que j'ai un problème de boucle car;
le combo renvoi une donnée date ( il y a d'autres textbox et combos qui renvoient des données liée) et ensuite je modifie cette date pour la ré-injecter après modif dansla base de donnée. Il y a peut être un soucis 'lecture seule / édtion' au niveau de la routine ( mais je trouve pô )

re re,

Comprends vraiment pas ça devrait marcher fait une compilation des deux:
style


Dernier essai on sait jamais

Toujours rien!
je récapitule une dernière fois, et si ca marche je laisse tomber pour aujourd'ui.
Le contexte ;
a/une base de donnée ( plage nommée ) de 8 colonnes
b/ un userform destiné à la gestion ( 1/ entrer des données 2/ retourner des données pour modification ou retrait de la base.

Les codes:
A/ Combobox de rappel général ( titre ):

Private Sub ComboBox5_Change()
' rappel du titre FA
Dim L As Integer, i As Integer
L = Sheets('liste fa').Range('A32767').End(xlUp).Row
For i = 2 To L
If Sheets('liste fa').Range('a' & i) = UserForm1.ComboBox5.Value Then
UserForm1.ComboBox3.Value = Sheets('liste fa').Range('C' & i).Value
UserForm1.TextBox4.Value = Sheets('liste fa').Range('G' & i).Value
UserForm1.ComboBox1.Value = Sheets('liste fa').Range('D' & i).Value
UserForm1.TextBox2.Value = Sheets('liste fa').Range('F' & i).Value
UserForm1.TextBox12.Value = Sheets('liste fa').Range('B' & i).Value
UserForm1.TextBox13.Value = Sheets('liste fa').Range('E' & i).Value
End If
Next
End Sub

b/ combobox de modif de date: ( ton code )
Private Sub ComboBox3_AfterupDate()

ComboBox3.Value = Format(CDate(ComboBox3.Value), 'dd/mm/yyyy')
End Sub

C/ LE bouton qui valide la nouvelle donée:

Private Sub CommandButton9_Click()
' modification des données
Application.ScreenUpdating = False
Dim L As Integer, i As Integer
L = Sheets('liste fa').Range('A32767').End(xlUp).Row
For i = 2 To L
If Sheets('liste fa').Range('A' & i) = UserForm1.ComboBox5.Value Then
Sheets('liste fa').Range('B' & i) = UserForm1.TextBox12.Value
Sheets('liste fa').Range('C' & i) = UserForm1.ComboBox3.Value
Sheets('liste fa').Range('D' & i) = UserForm1.ComboBox1.Value
Sheets('liste fa').Range('E' & i) = UserForm1.TextBox13.Value
Sheets('liste fa').Range('F' & i) = UserForm1.TextBox2.Value
Sheets('liste fa').Range('G' & i) = UserForm1.TextBox4.Value

End If

Range('A2:H61').Select

Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

Next
Unload UserForm1
Load UserForm1
UserForm1.Show
End Sub
)))))))))))))))))))))))))))))))))))))))))
merci en tous les cas , pour toutes tes interventions !!!