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 :

InputBox position inopérante [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
    Retraité actif passionné
    Inscrit en
    Janvier 2011
    Messages
    78
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité actif passionné

    Informations forums :
    Inscription : Janvier 2011
    Messages : 78
    Par défaut InputBox position inopérante
    Bonjour le Forum,

    et Meilleurs Voeux...

    Quelques soient la syntaxe utilisée et les valeurs données aux arguments left et top ma box s'affiche toujours au même endroit (très près du coin inférieur droit à égale distance des bords droit et inférieur de l'écran. Voir les lignes "vRep =" dans le code ci-dessous :

    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
    Public Sub InpBox12A(Question As String, Titre As String)
        Do While vRep = "0"
            vRep = Application.InputBox(Question, Titre)
            'vRep = Application.InputBox(Question, Titre, , 1000, 1000)
            'vRep = Application.InputBox(Question, Titre, , 20, 20)
            'vRep = Application.InputBox(prompt:=Question, Title:=Titre, Left:=300, Top:=250)
                If Val(vRep) > 2 Or Val(vRep) < 0 Or vRep = "" Then
                    vRep = "0"
                End If
                If vRep = "Faux" Then
                    Exit Sub
                End If
        Loop
     
    End Sub
    Est ce que la position est calculée par rapport à l'écran ou par rapport à l'USF qui appelle cette proc ?
    Merci
    Cordialement

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Pas de problème pour moi, la ligne ci-dessous s'affiche bien dans le coin supérieur gauche de mon écran. (comportement identique entre appel à partir d'une feuille ou d'un userform)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    InputBox("test", "test", "", 50, 50)

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

Discussions similaires

  1. [XL-2010] position et valeur d'une cellule avec Application.InputBox
    Par tallent_e dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 23/04/2011, 19h57
  2. choix position inputbox
    Par looping dans le forum Langage
    Réponses: 1
    Dernier message: 21/10/2008, 13h29
  3. Position du curseur dans Edit
    Par MrJéjé dans le forum C++Builder
    Réponses: 3
    Dernier message: 20/06/2002, 17h09
  4. Réponses: 2
    Dernier message: 17/05/2002, 20h37
  5. FOnction api specifiant la position de la souris
    Par florent dans le forum C++Builder
    Réponses: 4
    Dernier message: 15/05/2002, 20h07

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