date dans un menu deroulant combobox - VB/VBA/VBS - Programmation
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, |
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
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