NumberFormat

Résolu

Marcos Y Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
Marcos Y Messages postés 112 Date d'inscription Statut Membre Dernière intervention - 7 sept. 2015 à 15:01

Bonjour,

Je suis en train d'améliorer un fichier Excel qui gère mes heures de pointage au travail. Pour cela, j'ai créé une Macro afin de paramétrer le classeur. Elle permettra de renseigner, au moyen d'un UserForm, les données nécessaires pour les calculs, sur un onglet masqué appelé "paramètres".

Voici le code du bouton de validation de mon UserForm (Label4 et Label5 sont des messages d'erreur) :

Private Sub CommandButton1_Click()

If IsDate(TextBox1.Text) = False Then
Label4.Visible = True
Exit Sub
End If
If IsDate(TextBox2.Text) = False Then
Label5.Visible = True
Exit Sub
End If
With Range("journée_contractuelle")
    .Value = TextBox1
    .NumberFormat = "[h]:mm"
End With
With Range("pause_minimum")
    .Value = TextBox2
    .NumberFormat = "[h]:mm"
End With

Range("type_de_contrat").Value = ComboBox1.Text
UserForm1.Hide
End Sub

Tout ça fonctionne assez bien, sauf que mes cellules "journée_contractuelle" et "pause_minimum" n'apparaissent pas formatées comme indiqué.

Il semble que le "NumberFormat" n'est pas appliqué.

Comment faire ?

Merci d'avance pour vos réponses

A voir également:

Numberformat date vba
Airpods 3 date de sortie - Guide
Jm date avis - Forum Consommation & Internet
Jm date désabonnement - Forum Gmail
Publipostage date inversée - Forum Word
Trier par date excel - Guide

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Bonjour Marcos, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()

If IsDate(TextBox1.Text) = False Then
    Label4.Visible = True
    Exit Sub
End If
If IsDate(TextBox2.Text) = False Then
    Label5.Visible = True
    Exit Sub
End If
With Range("journée_contractuelle")
    .Value = TimeSerial(Hour(TextBox1.Value), Minute(TextBox1.Value), Second(TextBox1.Value))
    .NumberFormat = "[h]:mm"
End With
With Range("pause_minimum")
    .Value = TimeSerial(Hour(TextBox2.Value), Minute(TextBox2.Value), Second(TextBox2.Value))
    .NumberFormat = "[h]:mm"
End With
Range("type_de_contrat").Value = ComboBox1.Text
UserForm1.Hide
End Sub

Marcos Y Messages postés 112 Date d'inscription Statut Membre Dernière intervention 6

Merci ThauTheme !

Ton code fonctionne parfaitement. Merci pour ton aide.

A bientôt !

Discussions similaires

je cherche la date et le lieu de naissance d une personne

Problème publipostage date de naissance

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Problème Whatsapp - "La date est incorrecte"

Votre réponse

Discussions similaires