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 :

Code message d'erreur [XL-2003]


Sujet :

Macros et VBA Excel

  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 Code message d'erreur
    Bonjour à tous,

    Dans un menu, j'ai un Bouton sur lequel doit cliquer l'utilisateur pour ouvrir un formulaire de saisi (UFsais).
    Celui-ci ne doit s'ouvrir uniquement si un onglet contenant un nom d'école est actif.
    Les onglets concernant les écoles commencent soit par EP soit par MAT.
    Je souhaiterai donc mettre en place un message à l'attention de l'utilisateur lui indiquant qu'il doit choisir une école (UFecole) avant de faire une saisie si aucun onglet commencant par EP ou MAT n'est visible.
    Est-ce possible et comment ?
    Merci pour votre aide

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    re nec, le forum
    suivant ce que tu veux,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CommandButton1_Click()
    If ActiveSheet.Name Like "ep*" Or ActiveSheet.Name Like "mat*" Then
    UFsais.Show
    Else
    MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
    End If
    End Sub
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub CommandButton2_Click()
    Dim x As Integer
    For x = 1 To Sheets.Count
    If Sheets(x).Visible = True And Sheets(x).Name Like "ep*" Or Sheets(x).Name Like "mat*" Then
    UFsais.Show
    Else
    MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
    End If
    Next x
    End Sub
    je rectifie ma seconde proposition
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub CommandButton1_Click()
    Dim x As Integer
    For x = 1 To Sheets.Count
    If Sheets(x).Name Like "ep*" Or Sheets(x).Name Like "mat*" Then
     If Sheets(x).Visible = True Then
    UFsais.Show
    Else
    MsgBox "vous devez selectionner une ecole avant d'ouvrir le formulaire": Exit Sub
    End If
    End If
    Next x
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    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
    Super cool Casefayere. Ce forum m'étonnera toujours.
    Merci beaucoup

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

Discussions similaires

  1. Récuperer les messages d'erreurs dans le code
    Par TSalm dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 26/06/2007, 13h30
  2. [GD] message d'erreur pour un code d'effet miroir
    Par ranell dans le forum Bibliothèques et frameworks
    Réponses: 4
    Dernier message: 12/06/2007, 21h07
  3. des messages d'erreurs avec mon code
    Par ulysse031 dans le forum Langage
    Réponses: 15
    Dernier message: 25/05/2007, 18h14
  4. Réponses: 5
    Dernier message: 27/04/2007, 10h25
  5. message d'erreur code
    Par elabbassi dans le forum Access
    Réponses: 9
    Dernier message: 24/12/2006, 19h55

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