Discussion :

[NadStin]

Bonjour,

J'ai un nouveau problème, j'ai essayée trouver la solution par moi même mais en vain...

J'ai une user form, comprenant plusieurs textbox, pour l'une d'entre elle voici le code :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
 
 TextBox3.Value = Format("35:00", "hh:mm")

Cela affiche d'office 35:00 dans la textbox et l'utilisateur doit juste modifier si c'est un autre nombre d'heure ou valider la commande si c'est correct.

Jusque la tout va bien, cependant ...

Résultat : 35:00 s'affiche dans la cellule au format texte, si je clique dans cette cellule, puis entrer, elle s'affiche ensuite au format [h]:mm.
Donc comment faire pour que cela s'affiche dans la cellule directement au format demandé ?

J'espère avoir été claire...

Merci d'avance pour vos retours.

[ChristianBosch]

Dalut,

Il faut forcer le format de la cellule au même que la textbox, pour ce faire tu peux simplement faire :

Code :

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

Feuil1.Range("a1") = TextBox3

Chez moi ça fonctionne comme ça

[NadStin]

J'au pourtant cela dans la commande du bouton :

Code :

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

  myCel.Offset(7, 2).Value = TextBox3

[ChristianBosch]

J'au pourtant cela dans la commande du bouton :

Code :

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

  myCel.Offset(7, 2).Value = TextBox3

Enleve le ".value"

[NadStin]

Cela ne change rien...

[ChristianBosch]

Cela ne change rien...

Quelle version d'excel as tu ?

[NadStin]

excel 360

[ChristianBosch]

C'est le fait qu'il n'y ai pas de "0" devant le 5 qui t’embêtes ?

Car le soucis c'est que si tu mets au format "hh:mm" excel comprends que c'est les heures d'une journée alors que si tu mets "[h]:mm" la c'est un décompte d'heures. Ici je pense que ce que tu veux c'est bien un décompte don il faut mettre "[h]:mm".

Et excel ne prends pas les 0 devant, mais je vois pas pourquoi ça te gêne...

Avec un code dans le genre normalement c'est bon tu dois pas avoir de soucis

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
with Feuil1.Range ("a1")
    .NumberFormat = "[h]:mm"
    .Value = TextBox1.Value
End With
End Sub
 
Private Sub UserForm_Initialize()
TextBox1.Value = "35:00"
End Sub