texbox et combobox

[aeque]

SAlut à tous

voilà j'ai un soucis je souhaite rentrer un chiffre dans une textbox pour qu'il aille sur une cellule dans une feuille excel.

Là pas de problème par contre une fois qu'il est dans cette cellule, excel le traitre comme du texte et non un nombre

Qqun pourrais m'aider je suis sur que c'est juste une bétise mais je n'arrive pas à trouver comment faire


Merci

P.S. voici le code de ma textbox

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Vous devez entrer un nombre."
TextBox1.Text = ""
End If
[jour!d8] = Enregnouvca.TextBox1
End Sub

J'amerai donc que dans la feuille Jour en B8 apparaisse en nombre



ET si c possible en même temps j'ai créer une combobox pour faire choisir une journée sous la JJ/MM/AAAA mais lorsque que l'on choisis une date j'ai la valeur numérique qui apparait dans ma combobox au lieu de la forme JJ/MM/AAAA

Merci beaucoup

 

[pierrejean]

Re : texbox et combobox

bonjour aeque

teste

[jour!d8] = Cdbl(Enregnouvca.TextBox1)

pour la combobox

entrer sous la forme Cstr(ladate)
et sortir sous la forme Cdate(combobox...)

 

[wilfried_42]

Re : texbox et combobox

Bonjour

pour ce qui est de la date, c'est normal, toutes les dates sous excel sont en format numeric, correspondant au nimbre de jours depuis le 1er janvier 1900pour ceux qui sont en calendrier 1900

Vba fait un transfert automatique des formats numeric en format text mais pour les dates, il faut lui dire

textbox1 = Format(date,"dd/mm/yyyy")

Edit : Bonjour pierrejean

 

[aeque]

Re : texbox et combobox

Merci à tous les deux pour vous réponse

pour la texbox ca marche nikel

Par contre pour la combobox j'ai pas saisi ce qu'il fallait faire

Vous voulez bien détailler svp

Merci

 

[pierrejean]

Re : texbox et combobox

re

vois le fichier joint

 

[aeque]

Re : texbox et combobox

Merci pour votre réponse mais décidément j'ai du mal

si vous pouvez regarder mon fichier c serais sympa

Merci

 

[pierrejean]

Re : texbox et combobox

bonjour aeque

voila

modif:

façon d'initialiser userform pour combobox:

Private Sub UserForm_Initialize()
For n = 2 To Sheets("Userform").Range("A65536").End(xlUp).Row
  ComboBox1.AddItem CStr(Sheets("Userform").Range("A" & n))
Next n
End Sub

 

[aeque]

Re : texbox et combobox

merci beaucoup c nikel