Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format heure

Format heure

5 réponses
Avatar
Polio2004
Je désire développer une petite application pour établir un classement
suivant le temps réalisé. La fourchette du temps est de l'ordre de 10
minutes (00:00:10) à 1 heure 10, minutes (01:10:00).
Est il possible de rentrer 10:10 est d'obtenir 00:10:10 dans la cellule
plutôt que de saisir 01:10:10 ?
Merci de votre aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...

Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV
Avatar
Polio2004
Merci beaucoup de votre aide.

"AV" a écrit dans le message de news:

Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...

Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV




Avatar
Polio2004
J'ai bien rentré le code, c'est super. Comment puis je autoriser l'exécution
de cette proc uniquement sur les cellules de le colonne C par exemple.

"AV" a écrit dans le message de news:

Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...

Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV




Avatar
Jacky
Bonjour,
A défaut d 'AV,
Ligne à modifier (3 étant la colonne C)
'--------
If IsNumeric(zz.Value) And zz.Value > 1 And zz.Column = 3 Then
'---------
Salutations
JJ

"Polio2004" a écrit dans le message de
news:
J'ai bien rentré le code, c'est super. Comment puis je autoriser
l'exécution

de cette proc uniquement sur les cellules de le colonne C par exemple.

"AV" a écrit dans le message de news:

Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...

Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod
100)


zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV








Avatar
Polio2004
Merci

"Jacky" a écrit dans le message de news:
epQ$
Bonjour,
A défaut d 'AV,
Ligne à modifier (3 étant la colonne C)
'--------
If IsNumeric(zz.Value) And zz.Value > 1 And zz.Column = 3 Then
'---------
Salutations
JJ

"Polio2004" a écrit dans le message de
news:
J'ai bien rentré le code, c'est super. Comment puis je autoriser
l'exécution

de cette proc uniquement sur les cellules de le colonne C par exemple.

"AV" a écrit dans le message de news:

Pour des saisies en colonne A et sans séparateur !
Exemples
11005 pour signifier 01:10:05
1025 pour signifier 00:10:25
130 pour signifier 00:01:30
etc...

Dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
x = zz.Value
zz = TimeSerial(Int(x / 10000), Int((x Mod 10000) / 100), x Mod
100)


zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV