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 :

Affichage conditionnelle d'un userform à l'ouverture d'un fichier


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Marketing
    Inscrit en
    Mars 2020
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Marketing

    Informations forums :
    Inscription : Mars 2020
    Messages : 19
    Par défaut Affichage conditionnelle d'un userform à l'ouverture d'un fichier
    Bonjour,
    J'aimerais que mon userform "Connection" qui contient le nom de l'utilisateur et des boutons d'action s'affiche à l'ouverture de mon fichier si une condition est remplie. En l'occurrence si l'utilisateur figure dans une plage du fichier. Les sub d'initialisation et des actions des boutons du userform figurent dans la catégorie "feuilles" du projet.
    Faut-il appeler la sub userform_initialize dans dans la sub open ?
    Quelqu'un peut m'aider svpl ?

  2. #2
    Membre Expert Avatar de Thautheme
    Homme Profil pro
    salarié
    Inscrit en
    Août 2014
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : salarié

    Informations forums :
    Inscription : Août 2014
    Messages : 1 373
    Par défaut
    Bonjour Peat, bonjour le forum,

    Pas sûr d'avoir bien compris...
    Si dans un onglet tu as une liste de noms, le code ci-dessous (à adapter et à placer dans le composant VBA ThisWorkbook) devrait fonctionner :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Workbook_Open()
    Dim O As Worksheet
    Dim R As Range
     
    Set O = Worksheets("Feuil1") 'à adapter
    Set R = O.Cells.Find(Application.UserName, , xlValues, xlWhole)
    If Not R Is Nothing Then Connection.Show
    End Sub

  3. #3
    Membre averti
    Homme Profil pro
    Marketing
    Inscrit en
    Mars 2020
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Marketing

    Informations forums :
    Inscription : Mars 2020
    Messages : 19
    Par défaut
    C'est parfait, un grand merci !

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

Discussions similaires

  1. Excel : lancement d'un userform à l'ouverture du classeur
    Par repié dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/12/2005, 17h29
  2. Sécurité et VBA - Affichage conditionnel de contrôles
    Par Thomas JOUANNOT dans le forum Sécurité
    Réponses: 5
    Dernier message: 23/11/2005, 17h13
  3. [MySQL] select avec affichage conditionnel
    Par encoupe dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 31/10/2005, 23h46
  4. [VB.NET] Affichage conditionnel dans un repeater
    Par NicoNGRI dans le forum ASP.NET
    Réponses: 4
    Dernier message: 07/02/2005, 12h58
  5. [STRUTS] [JAVA] Affichage conditionnel de bean:write
    Par babylone7 dans le forum Struts 1
    Réponses: 6
    Dernier message: 29/04/2004, 16h20

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