Time Value Format

Citation:

---

Précisément le "enablevents" de notre ami gFZT82 reste pour moi mysterieux malgré ce que je viens de trouver sur le net et qui se rapproche fort de notre procédure.

---

Pour avoir une idée précise de l'utilité de cette propriété, tu peux effectuer ce petit test :

1) tu supprimes l'instruction Application.EnableEvents = False

2) tu places un point d'arrêt devant la ligne If Len(Target) = 1 Then

3) tu saisis la valeur numérique 2 dans une cellule quelconque de la feuille
La procédure évènementielle CHANGE sera alors lancée. L'exécution sera interrompue au niveau du point d'arrêt.

4) tu poursuis l'exécution de la procédure en pas à pas (F8) et tu regardes la séquence du programme.

Tu vas constater que la procédure boucle sur elle-même dès l'instant où la valeur de la cible est modifiée.
Dans certaines procédures, cela ne pose pas de problème mais dans ce cas, la valeur de la cible (Target) est devenue 8,33333333333333E-02 (numéro de série pour 02h00) qui représente un texte de 20 caractères.
L'instruction suivante avec String(4 - Len(Target), "0") va générer une erreur.

Cordialement.

Re... Marc et gFZT82,

Merci pour les explications. j'ai effectué les essais qui m'ont permis de comprendre.
La procédure événementielle est déclenchée par un changement dans une cellule. il est donc logique que si une cellule change pendant son exécution , elle s'empare du nouvel événement.

J'avais bien fait le pas à pas mais sans point d'arrêt au bon endroit rien n'était probant.

Les choses deviennent évidentes quand on sait le pourquoi.

Cordialement,

Bonjour,

J'ai une question à pilounet54.
123 doit-il être interprété comme 12:30 ou 1:23?

Ca m'aurait amusé de trouver une fonction pour les paresseux mais je ne suis pas certain du résultat attendu.

Chez moi 123 donne 12:03 …

Bonjour,

Et bien d'après ce que j'ai compris, 123 doit donner 12:30, et 0123 doit donner 01:23 mais avec un système de saisie comme ça, on peut vite se trouver avec des erreurs et donc, rien ne vaut une saisie avec les deux points, en ça, je rejoint Marc quand il parle de "flemme".

Hervé.

D'accord avec Marc-L et Theze car il y a une autre particularité d'Excel.
En cas de saisie en colonne, Excel étend automatiquement le format à la cellule suivante. Donc, si les cellules précédemment tapées contiennent des temps et si, dans une cellule suivante on tape 123, Excel applique le format Date/Time à cette nouvelle cellule et interprète la frappe comme 2/05/1900 mais affiche 00:00 car la cellule a un format Time.

Je pense donc qu'il n'y a pas de solution simple.

Ce serait, bien sûr, différent dans un USF.

Je trouve qu'on rencontre plus de difficultés avec un USF quand il s'agit d'entrer des nombres ( à cause du séparateur décimal qui n'est pas reconnu sur un USF ) et encore plus pour entrer des dates.

Je me demande si la solution la plus simple ne serait pas d'utiliser une feuille pour faire toutes les entrées. Pas de problème de séparateur décimal. Plus de problème de dates erronées.

Docmarti.

Bonsoir,

Pour le séparateur décimal, tu peux le récupérer avec les Apis de façon assez simple. Pour le test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Declare Function GetLocaleInfo _ Lib "kernel32" _ Alias "GetLocaleInfoA" ( _ ByVal Locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String, _ ByVal cchData As Long) As Long   Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long     Sub Separateur()   Dim Separateur As String Dim Tampon As String Dim LTampon As Long   LTampon = 255   Tampon = String$(LTampon, vbNullChar)   LTampon = GetLocaleInfo(GetSystemDefaultLCID, &HE, Tampon, LTampon)   If LTampon > 0 Then   Separateur = Left$(Tampon, LTampon - 1)   MsgBox "Le séparateur décimal est " & IIf(Separateur = ".", "le point", "la virgule") & " !"   End If   End Sub

---

Hervé.

Est-ce que cet API est préférable à

Code:

---

Separateur = format(0,".")

---

Docmarti.

+1, encore plus simple que mon Mid(CStr(1.2), 2, 1) posté récemment …

Bonjour,

Docmarti, je ne connaissais pas cette façon de faire, c'est nickel !

Code:

---

1 2	Separateur = format(0,".")

---

Hervé.

En fait

Code:

---

Separateur = format(0,".")

---

est l'équivalent de

Code:

---

Separateur = Format(0, "#.#")

---

qui a l'avantage d'être plus explicite cependant.

Tout comme le

Code:

---

Mid(CStr(1.2), 2, 1)

---

de Marc-L d'ailleurs.

Docmarti

Avec un UserForm tu peux utiliser 1 controle masque édite avec le format que tu veux 00:00

Citation:

---

Envoyé par nibledispo

Re....,

La proposition de Engue Engue fonctionne mais encore faut-il avoir une procédure convenable et que la cellule transformée soit au format texte (voir plus bas).

A savoir, c'est quand :
- tu tapes un nombre en B que la cellule C doit se transformer en heures:minutes ?
- tu tapeS un nombre en B que cette même cellule B doit se restructurer en heures:minutes ?

si c'est la seconde alors:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) mcellule1 = Target Select Case Len(Target) Case 1 Target = "0" & Target & ":00" Case 2 Target = Target & ":00" Case 3 Target = Left(Target, 2) & ":" & Right(mcellule1, 1) & "0" Case 4 Target = Left(Target, 2) & ":" & Right(mcellule1, 2) End Select End Sub

---

Il faut que les cellules soient au format texte sinon 12 et 24 renvoient respectivement 0:5 et 1.

Par ailleurs, en l'état, des valeurs telles que 2684 sont traitées sans problème. est-ce souhaitable ?

Cordialement,

---

merci cela fonctionne
@+

Citation:

---

Envoyé par AlainTech

Bonjour,

J'ai une question à pilounet54.
123 doit-il être interprété comme 12:30 ou 1:23?

---

ta question est très intéressante , pour vous l’après midi c'est 13 heures ou 1 heures @ + est encore merci à tous