Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

texbox et combobox

  • Initiateur de la discussion Initiateur de la discussion aeque
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aeque

XLDnaute Occasionnel
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
 
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...)
 
Dernière édition:
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
 
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
 
Re : texbox et combobox

bonjour aeque

voila

modif:

façon d'initialiser userform pour combobox:

Code:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…