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 :

Focus dans un TextBox ne fonctionne pas [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut Focus dans un TextBox ne fonctionne pas
    Bonjour,

    J'ai fait ce code qui permet l'initialisation de plusieurs chose à l'initialisation de l'UserForm.
    Je n'arrive pas à faire en sorte que le curseur soit dans le TxtBox T1 dès l'ouverture. J'ai pourtant mis le code qui fallait, mais rien n'y fait.

    J'ai bien 0 dans les propriétés du TextBox - TabIndex
    Merci de m'apporter votre éclairage.

    Sinon voici le code complet :
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
     
    Private Sub UserForm_Initialize()
    Unload UFConsult
    Unload UFEngt
    Unload UFsign
     
        UFact.T1.SetFocus
     
    Dim vCellule As Object
        For Each vCellule In Sheets("Tiers").Range("NumT")
            If vCellule.Value <> "" Then UFact.T10.AddItem vCellule.Value
        Next
     
        For Each vCellule In Sheets("Bât").Range("NomBat")
            If vCellule.Value <> "" Then UFact.T11.AddItem vCellule.Value
        Next
     
        For Each vCellule In Sheets("Nom").Range("Noms")
            If vCellule.Value <> "" Then UFact.T9.AddItem vCellule.Value
        Next
        UFact.T10.ListIndex = -1
        UFact.T11.ListIndex = -1
        UFact.T9.ListIndex = -1
        UFact.T1 = ""
        UFact.T2 = ""
        UFact.T3 = ""
        UFact.T4 = ""
        UFact.T5 = ""
        UFact.T6 = ""
        UFact.T7 = ""
        UFact.T8 = ""
        UFact.T9 = ""
        UFact.T10 = ""
        UFact.T11 = ""
        UFact.T12 = ""
        UFact.L1.Clear
     
    End Sub

  2. #2
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Je pense avoir trouvé d'où vient l'erreur. Le UserForm n'est pas en modal.

    Alors peut-on remettre le modal automatiquement après l'affichage de la feuille de calcul.

    Voici le code qui me permet d'afficher l'UserForm. Ici, seul l'UserForm s'affiche mais pas ma feuille de calcul ("Factures"), elle ne s'affiche que si je ferme l'UF

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private Sub CommandButton3_Click()
    Dim Ash As Worksheet
    Load UFact
    Sheets("Factures").Visible = True
        For Each Ash In ThisWorkbook.Sheets
        'masque les feuilles si nom différent de "Factures"
            If Ash.Name <> "Factures" Then Ash.Visible = xlSheetVeryHidden
        Next Ash
        Sheets("Factures").Activate
    UFact.Show
    End Sub

  3. #3
    Invité
    Invité(e)
    Par défaut Je pense avoir trouvé d'où vient l'erreur. Le UserForm n'est pas en modal.
    bonjour,

    Ça n’a rien à voir, ça doit marcher modal ou pas
    Peux-tu te positionner dessus, et entrer du texte ?
    Si le TabIndex de ce contrôle est =0 le focus devrait ce faire tout seul !
    Ajoute et click sur le UserForm pour tester la prise de focus.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_Click()
    t1.SetFocus
    End Sub

  4. #4
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Lorsque je clique sur l'UF effectivement le focus est bien en T1, mais je suis obligé de cliquer, hors ce que je souhaite faire c'est que lorsque l'utilisateur ouvre l'UF qu'il n'est pas à cliquer, que le curseur soit directement en T1

    Petit rectificatif : il faut que je clique dans T1 pour que le curseur apparaîsse

  5. #5
    Invité
    Invité(e)
    Par défaut test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    'Mes-le à la fin du (n’y aurait-il pas des événement Private Sub ???_Change())
    Private Sub UserForm_Initialize()
    Code…
     
    UFact.T1.SetFocus
    End sub

  6. #6
    Invité
    Invité(e)
    Par défaut Modal ?
    Je suis surpris je viens de positionner propriété ShowModal à false et effectivement le focus Boum je viens d’apprendre qq chose je ne le savais pas. Avant pas de problème !!!!

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

Discussions similaires

  1. [DW MX] lien courriel dans firefox qui ne fonctionne pas
    Par xataka dans le forum Dreamweaver
    Réponses: 1
    Dernier message: 02/11/2007, 14h54
  2. Gestion du focus dans des textbox
    Par noremo2010 dans le forum ASP.NET
    Réponses: 1
    Dernier message: 18/10/2007, 08h42
  3. fonction onClick= dans IE6 ok Firefox fonctionne pas
    Par rejy_l'Édimestre dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 06/08/2007, 21h58
  4. padding dans un table ne fonctionne pas sur IE
    Par J0r_x dans le forum Mise en page CSS
    Réponses: 1
    Dernier message: 05/03/2007, 11h15
  5. Réponses: 3
    Dernier message: 26/01/2006, 13h11

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