Discussion :

[Nanit6]

Bonjour,
Je souhaiterais faire apparaitre dans mon formulaire la valeur d'une cellule tout en gardant son format qui est "[h]:mm". J'ai tenté de passer par un ComboBox mais je n'y arrive pas.
Merci de votre éclairage car ma lanterne faiblit...

[Invité]

Bonjour

Titre : Zone texte evolutive dans formulaire
Message : J'ai tenté de passer par un ComboBox mais je n'y arrive pas.

Donc quel contrôle as-tu voulu utiliser, et qu'as tu mis comme code qui ne donne rien ?

Starec

PS : Merci de mettre un titre en rapport avec le problème

[Nanit6]

Enfait je débute dans les formulaires VBA. J'ai lu dans des forums qu'ils mettaient une ComboBox pour afficher ce qu'ils veulent mais je n'obtiens pas ce que je veux.
J'ai tenté cela mais la valeur ne s'affiche que si je clique sur la case et effectue une action (je tape sur la flèche du bas sur le clavier), et en plus le format n'est pas gardé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Combobox.AddItem Sheets("Sheet1").Cells(1, 1)

[AlainTech]

Essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Combobox.AddItem Sheets("Sheet1").Cells(1, 1).Text

[INFERNOTRONIC]

Bonjour,
Je souhaiterais faire apparaitre dans mon formulaire la valeur d'une cellule tout en gardant son format qui est "[h]:mm". J'ai tenté de passer par un ComboBox mais je n'y arrive pas.
Merci de votre éclairage car ma lanterne faiblit...

Salut,

voici la solution que j'emploie pour une date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tbx_date.Value = Worksheets(mafeuille).Range("A" + strIndex)

voici la solution que j'emploie pour une heure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
fValueP = Worksheets(mafeuille).Range("B" + strIndex)
Tbx_heure.Value = Format(fValueP, "hh:mm")

Attention si tu fais l'inverse (récupération d'une date ou d'une heure dans un combobox (Cbx) ou textbox (Tbx) la date est prise en compte sous format américain !!!
Le texte de commande deviens celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.Offset(0, 23).Value = DateValue(formulaire.champ_date.Value)
ActiveCell.Offset(0, 24).Value = TimeValue(formulaire.champ_heure.Value)

Si cela peut t'aider ?

[Nanit6]

Merci, mais j'avais trouvé une autre solution.
J'ai fait avec une TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub valeuraafficher_Change()
End Sub
 
Private Sub UserForm_Initialize()
valeuraafficher.Text = Range("Valeurs!E1").Text
End Sub