IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Saisie en cours de frappe [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2011
    Messages
    66
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2011
    Messages : 66
    Par défaut Saisie en cours de frappe
    Bonjour,

    Je me suis servi de ce code pour que ":" s'inscrive après la saisie par exemple de 1230 ce qui donne 12:30 soit 12 heures et 30 minutes.

    Pour A1 de la feuille active
    Dans le module de la feuille :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Worksheet_Change(ByVal zz As Range)
    If zz.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
    x = Format(zz, "0000")
    zz.Value = Left(x, 2) & ":" & Right(x, 2)
    Application.EnableEvents = True
    End Sub
    Ma question est la suivante :
    Est-il possible que lorsque je frappe les deux premiers caractères ":"s'inscrive automatiquement et que je frappe les deux caractères suivant dans la foulée tout en conservant le format HH:mm

    Merci pour votre aide

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour

    Une cellule ne subit pas d'évènement Keypress, keydown ou keyup et son évènement Change n'intervient qu'une fois le focus donné à une autre cellule.
    Tu ne peux donc contrôler la saisie d'une cellule en cours de saisie.

  3. #3
    Membre Expert Avatar de antonysansh
    Homme Profil pro
    Chargé d'études RH
    Inscrit en
    Mai 2014
    Messages
    1 115
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chargé d'études RH
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2014
    Messages : 1 115
    Par défaut
    Bonjour Louax,

    Un exemple de traitement du contenu :
    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 Worksheet_Change(ByVal zz As Range)
        Application.EnableEvents = False
            If zz.Address <> "$A$1" Or Not IsNumeric(zz) Then GoTo fin
     
            Select Case Len(zz)
                Case 4, 3
                    zz = zz \ 100 & ":" & zz Mod 100
                    zz.NumberFormat = "hh:mm"
                Case 2, 1
                    zz = zz & ":" & "00"
                    zz.NumberFormat = "hh:mm"
                Case Else
                    zz.NumberFormat = "General"
            End Select
    fin:
        Application.EnableEvents = True
    End Sub
    A toi de voir si le comportement te convient.

    Pour te former, les cours et tutoriels Excel : https://excel.developpez.com/cours/

  4. #4
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2011
    Messages
    66
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2011
    Messages : 66
    Par défaut
    Merci pour votre aide.
    Je vais arrêter de faire le fainéant c'est déjà pas mal de pouvoir ne saisir que les chiffres.
    Mais bon au cas ou, on sait jamais.
    Encore merci pour votre réactivité

  5. #5
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Te voilà redevenu plus raisonnable : contrôle a postériori et non "en cours de frappe".

  6. #6
    Membre extrêmement actif
    Homme Profil pro
    Inscrit en
    Septembre 2013
    Messages
    1 369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 1 369
    Par défaut
    Bonsoir,

    Exemple de masque de saisie dans le tableur

    Boisgontier
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Supprimer Saisie en Cours
    Par JeanMikael dans le forum VBA Access
    Réponses: 0
    Dernier message: 20/09/2007, 12h35
  2. DBGrid Saisie en cours
    Par Issam dans le forum Bases de données
    Réponses: 10
    Dernier message: 11/06/2007, 20h59
  3. [DOM] insertion d'un caractere en cours de frappe avec DOM
    Par alex68 dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 09/06/2007, 18h26
  4. jdb : pouvoir corriger la saisie en cours
    Par lmhelp dans le forum Environnement de Développement Intégré (EDI)
    Réponses: 1
    Dernier message: 26/03/2007, 11h01
  5. Remplir un Edit en cours de frappe
    Par LoicH dans le forum C++Builder
    Réponses: 3
    Dernier message: 07/01/2005, 20h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo