XL 2016 Forcer un format nombre après la frappe

[ReneDav14000]

Bonjour le forum,
Existe-t-il une méthode qui permettrait d'obliger la saisie d'un format. Je travaille avec un format hh:mm.
Par exemple : Si l'utilisateur tape 6 cela devienne 6:00, si il tape 6,30 cela devienne 6:30, si il tape 6/30 cela devienne 6:30,
si il tape 6.30 cela devienne 6:30. En fait, quel que soit le caractère frappé entre l'heure et les minutes. Cela peut être aussi 6!30 ou 6n30.
Merci par avance pour votre aide

 

[sylvanu]

Bonjour ReneDav,
Un essai en PJ à tester.

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    Valeur = Target.Value
    For N = 1 To Len(Valeur)
        If Not IsNumeric(Mid(Valeur, N, 1)) Then Exit For   ' On cherche le premier caractère non numérique
    Next N
    Application.EnableEvents = False
    Target = Left(Valeur, N - 1) & ":" & Mid(Valeur, N + 1) ' On reconstruit l'heure
Fin:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

On cherche dans la chaine le premier caractère non numérique et on lui substitue ":"
Il suffit de taper une chaine dans une cellule quelconque pour faire la traduction.

 

[ReneDav14000]

Bonjour sylvanu,
Merci beaucoup, ça marche pour presque tous les caractères. Toutefois si je tape 6/30 j'obtiens

0:270833333333333

ou

01:06/1930

 

[sylvanu]

Bonsoir,
Exact, j'ai vu, ça le fait avec / et aussi avec -, mais bizarrement pas avec + ou *.
Et je ne vois pas de solution car c'est XL qui le traduit avant que le VBA ne le récupère.
L'autre souci plus gênant est que si vous entrez "titi" alors il le transforme en ":iti" ce qui est logique de par l'algo mais débile dans le fonctionnement.
Et là pour le coup je ne vois pas comment faire. Je ne sais même pas s'il existe une solution.

 

[ReneDav14000]

Merci pour votre réponse. Même constat chez moi. Mais bon, dans l'absolu, il y a peu de chance que l'employé(e) tape titi avant. Les autres sont plus probables.
Je vais continuer mes recherches et si je trouve une solution, je vous en ferais part.

 

[sylvanu]

il y a peu de chance que l'employé(e) tape titi avant.

Le problème n'est pas là. Cela affecte toutes les entrées.
Si vous tapez "Salut ReneDav" il traduit ":alut ReneDav" !

 

[ReneDav14000]

Bonsoir sylvanu,
La solution est peut-être là, donnée par JCGL. Mais je me demande si les ":" passeraient, est-ce considéré comme du numérique ou pas ? Je ferai l'essai plus tard.

Interdire la saisie de caractères alphabétiques

Bonjour, Je recherche le code VBA pour interdire la saisie de caractères alphabétiques sur certaine cellules d'une feuille de classeur. Je vous remercie d'avance

excel-downloads.com

 

[Phil69970]

Bonjour à tous

@ReneDav14000
Un essai

Merci de ton retour

@Phil69970

 

[ReneDav14000]

Bonjour Phil59970,
Merci pour ton fichier. L'idée n'est pas mauvaise.
Par contre, si je tape 7:15, il m'affiche 7:015. C'est le même problème pour chaque minute

 

[jcf6464]

Bonjour à vous tous et le forum,

chez moi cela fonctionne bien (excel 365) avec le fichier de Phil69970
en tapant 07:15 = 7:15

bonne continuation jcf

 

[sylvanu]

Bonjour tout le monde,
Sous XL2007, idem, ça marche bien :

 

[ReneDav14000]

Bonjour tout le monde,

En frappant directement dans la cellule, pas de soucis j'ai bien 07:15 mais si l'on passe par la msgbox on obtient ce résultat.

 

[Phil69970]

Re

@ReneDav14000
La msgbox ne me sert juste de contrôle lors de mes tests on peut (doit) l'enlever sans problème la msgbox
Je l'ai laissée juste pour ne pas mettre de point d'arret

Par contre la 2eme msgbox me semble pertinente (message à revoir bien sur) pour indiquer que la saisie ne sera pas pris en compte

@Phil69970

 

[ReneDav14000]

Merci Phil69970. Pas trop réveillé ce matin.
Merci beaucoup pour ton aide.

 

[job75]

Bonjour à tous,

Toutes les cellules sont au format Texte, voyez le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, x$, i%
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In UsedRange 'si entrées multiples
    x = c
    For i = 2 To Len(x)
        If Not IsNumeric(Mid(x, i, 1)) Then
            x = Left(x, i - 1) & ":" & Mid(x, i + 1)
            If IsDate(x) Then c = Format(x, "h:mm")
            Exit For
        End If
Next i, c
Application.EnableEvents = True 'réactive les évènements
End Sub

A+