date dans un menu deroulant combobox

date dans un menu deroulant combobox - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2005 à 02:54:17    

bonjour,
j'ai un pt probleme.
Comment valider une date ou une heure dans un menu déroulant (combobox)?(vba excel Xp)
j'ai deux feuilles  
une feuil1 et l'autre Data .Mes data sont enregistrees sous la forme
INSERT/NAME/DEFINE/DATE.
Dans ma data "date" pas de probleme,
dans le menu deroulant de la combobox pas de probleme et dans la feuil1 ,pas de probleme.
Le prob c'est que des que je click dans le menu deroulant de la combo la date se transforme en nombre.j'ai essayé comboBox1.value=Format(comboBox1.value,"dd/mm/yyyy" ),Mais ça change rien!
De plus la date en français change en US dans ma feuil1.(PC anglais)
Une autre pt question .
Comment faire pour faire demarrer le resulta dans la feuil1 en A6 avec la formule
nun=Sheets("Feuil1" ).Range("A65536" ).End(xlUp).Row+1
Range("A" & nun).value = comboBox1.value
merci d avance.


---------------
yebert
Reply

Marsh Posté le 13-07-2005 à 02:54:17   

Reply

Marsh Posté le 13-07-2005 à 17:09:55    

pour le résultat, tu parles de la date? et tu veux la mettre dans la premiere case vide en partant du haut c ca?
voila ce ke je propose dans ce cas la :
 
Range("Feuill!a65536" ).End(xlUp).Offset(1, 0).Value = comboBox1.Value
à voir si tu gardes le +1 ou pas
 

yebert23 a écrit :

bonjour,
j'ai un pt probleme.
Comment valider une date ou une heure dans un menu déroulant (combobox)?(vba excel Xp)
j'ai deux feuilles  
une feuil1 et l'autre Data .Mes data sont enregistrees sous la forme
INSERT/NAME/DEFINE/DATE.
Dans ma data "date" pas de probleme,
dans le menu deroulant de la combobox pas de probleme et dans la feuil1 ,pas de probleme.
Le prob c'est que des que je click dans le menu deroulant de la combo la date se transforme en nombre.j'ai essayé comboBox1.value=Format(comboBox1.value,"dd/mm/yyyy" ),Mais ça change rien!
De plus la date en français change en US dans ma feuil1.(PC anglais)
Une autre pt question .
Comment faire pour faire demarrer le resulta dans la feuil1 en A6 avec la formule
nun=Sheets("Feuil1" ).Range("A65536" ).End(xlUp).Row+1
Range("A" & nun).value = comboBox1.value
merci d avance.


Reply

Marsh Posté le 14-07-2005 à 18:50:31    


Bonjour et merci Jyp1901,pour ta proposition
mais la question était faire démarrer le resultat du menu déroulant en A6 et la réponse est très simple tu veux le menu déroulant qui commence en A6 ,tu écris un titre en A5.
Tu veux le résultat de ton menu déroulant qui commence en A10 ,tu écris un titre en A9 qui fait bouchon.
 
next
 
format date dans un combobox?
il faut écrire  
nun=Sheets("Feuil1" ).Range("A65536" ).End(xlUp).Row+1  
Range("A" & nun).value = CDate(comboBox1.value)
"CData sert a convertir une date au format régional du pc"
 
next et encore un probleme!
 
comment faire pour  
faire apparaitre une heure dans un menu déroulant (combobox)? sous forme  
ex: 03:00 a la place de 1.25 = décimal(dans vba excel Xp)  
j'ai essayé  
comboBox1.value=Format(comboBox1.value,"hh:mm" )et CDate
 
Mais ça change rien!  
merci pour votre aide a+ yebert23
 


---------------
yebert
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed