Discussion :

[youngest]

Bonjour.
Je suis débutant en VBA et j'ai créer un formulaire pour remplir quelques cellules.
Le formulaire écrit directement dans la cellule pas de bouton valider mais uniquement un bouton quitter
La cellule est avec un format heure personnalisé qui fonctionne très bien si on la renseigne ex : 01:20 donne 02 H 00 et je peut faire des calcul en heure.
Par contre si je passe par le formulaire le cellule renseignée reste au format 01:20 et mes calculs ne fonctionne plus.
Voici le code VBA pour renseigner la cellule

Code :

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

1
2
3
Private Sub TextBox2_Change()
[m8] = UserForm2.TextBox2
End Sub

J'aimerai une formule simple. J'ai essayé value.format sans résultat.
Merci de votre aide

[Invité]

Code :

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

[m8] = format(format(UserForm2.TextBox2,"HH:MM"),"@@ H @@")

[youngest]

Merci pour ta réponse rapide.
Je me si peut-être mal exprimé mais je souhaite que dans le textebox le format soit en date 00:00 et que la mise en format dans la cellule de destination soit 00 H 00.
Si je rentre l'heure manuellement dans la cellule sans passer par le formulaire sous la forme 00:00 dans la cellule on voit bien le formatage personnalisé 02 H 00.
Quand je passe par le formulaire j'ai comme résultat 00:00 et non 00 H 00
Si j'utilise ta formule les calculs horaires de ma feuille ne fonctionne plus.

[youngest]

J'ai trouvé une solution qui fonctionne parfaitement
voici le code de la textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'textbox2 à changer par le nom de ton textbox
Dim touche_autorisée As String
touche_autorisée = "[01234567989:]"
'on ne peut pas taper autre chose que des chiffres
If Not ChrW(KeyAscii) Like touche_autorisée Then KeyAscii = 0
  'ici on empeche de taper plus de 4 chiffre(2 pour l'heure,2pour les minutes )
  If Len(TextBox2) = 5 Then KeyAscii = 0: Exit Sub
   'ici on empeche de taper plus gros que 2 pour le premier chiffre de l'heure
   If Len(TextBox2) = 0 And Not ChrW(KeyAscii) Like "[0-1-2]" Then KeyAscii = 0
     'ici on empeche de taper plus gros que 3 pour le deuxieme chiffre de l'heure en fonction du premier
     If Len(TextBox2) = 1 And TextBox1.Value = 2 And Not ChrW(KeyAscii) Like "[1-2-3]" Then KeyAscii = 0
        'ici on empeche de taper plus gros que 5 pour les dizaine de minute(59 minutes maximum)
        If Len(TextBox2) = 3 And Not ChrW(KeyAscii) Like "[0-1-2-3-4-5]" Then KeyAscii = 0
If Len(TextBox2) = 2 Then
  If ChrW(KeyAscii) <> ":" Then KeyAscii = Asc(":")
End If
End Sub

Et pour le bouton

Code :

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

1
2
3
Private Sub CommandButton1_Click()
[o8] = CDate(TextBox3)
End Sub

J'ai bien le format dans Userform 00:00 et dans le feuille de calcul j'ai bien le format 00 H00 format personnalisé dans la cellule. Les calcul horaires fonctionnent.
Merci de votre aide.