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 :

Position d'une UserForm par rapport à une cellule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    Analyse système
    Inscrit en
    Octobre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Analyse système
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2016
    Messages : 2
    Par défaut Position d'une UserForm par rapport à une cellule
    Salut,
    J'ai lu cette discussion.
    J'utilise ce code qui fonctionne parfaitement avec une version de Windows en 32 bit mais pas en 64.
    Comment le modifier pour qu'il accomplisse la même fonction mais sous x64?
    Merci d'avance .

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Je viens de l'essayer avec Windows 10 64 bits, et cela fonctionne parfaitement.

    Et personne n'a de boule de cristal...

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bonjour
    allons clement!!!
    dis moi encore que cette déclaration d'api fonctionne en 64 bits
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Option Explicit
     
    Private Declare Function GetDC& Lib _
    "user32.dll" (ByVal hwnd&)
    Private Declare Function GetDeviceCaps& _
    Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
    surtout avec la user32 hein!!!!
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Membre chevronné
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    181
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 181
    Par défaut
    Bonsoir à tous,
    On devrait arriver peut-être à cela, mais c'est à vérifier car je ne peux pas essayer.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    #If Win64 Then
        Dim hwnd As LongPtr, hDC As LongPtr, nIndexPtr As LongPtr
        Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&)
        Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
    #Else
        Dim hwnd As Long, hDC As Long, nIndex As Long
        Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&)
        Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
    #End If

  5. #5
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    hophophop
    les variables n'ont pas besoins de ptr car elle sont en dehors des déclarations des apis donc pas besoins de les dupliquer dans chaque mode
    j'ai aussi des doutes sur "devicecaps" je ne suis pas sur que cela soit necessaire seul la user 32 doit subir la transformation
    on en mettre qu'une seul donc apres le "#end if "
    voila
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  6. #6
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    Bonsoir clement
    dans ce cas la c'est pas le bon test
    c
    ce serait plutôt

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    #if VBA7 then 
    'declaration api avec ptrsafe et longptr pour la user (Attention!!!pas forcement pour toute les autre dll )
    #else
    ' declaration classique 
    #end if
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  7. #7
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Citation Envoyé par patricktoulon Voir le message
    bonjour
    allons clement!!!
    surtout avec la user32 hein!!!!
    Ah oui, je l'ai testé. Son problème ce n'est pas un Windows 64 bits, mais un Office 64 bits. Un Office 32 bits fonctionne en SYSWOW32 et n'a pas besoin de modifier les déclarations de l'API, mais un Office 64 bits doit adapter les déclarations. Mais comme la question c'était :

    j'ai répondu pour sous x64.

Discussions similaires

  1. Réponses: 2
    Dernier message: 27/12/2015, 19h13
  2. Position d'une fenêtre par rapport à une autre
    Par aljessy dans le forum AWT/Swing
    Réponses: 3
    Dernier message: 21/08/2012, 13h50
  3. Réponses: 5
    Dernier message: 06/10/2011, 12h56
  4. [XL-2007] Position d'une UserForm par rapport à une cellule
    Par ESVBA dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/10/2009, 17h23
  5. Réponses: 3
    Dernier message: 01/06/2009, 18h21

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