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 :

tester un bouton de commande


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut tester un bouton de commande
    bonjour,
    je verouille au futures utilisateurs la possibilite d enregistrer mais pour cela j ecris ds "thisworkboo" un evenement:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UserForm4.Show
    If UserForm4.TextBox1.Value = " password" And UserForm4.CommandButton1.value = true Then _
    Cancel = False
    End Sub
    mais le teste du bouton du userform ne fonctionne pas , comment faire ? ou est l erreur?

    car ce matin je vois rien!
    merci
    seulement

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Où as-tu trouvé cela :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm4.CommandButton1.value = true
    Il n'y a pas de propriété Value sur un bouton de commande.

    Que veux-tu détecter sur ce bouton ?

    Starec

  3. #3
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut
    je veux detecter un click !

    je viens de le voir qu il n y avait pas .value >>>pfff

    2 solutions : soit tu fait ton code de vérification et de sauvegarde dans ton userform.
    Soit tu passe par une variable globale que ton userform4 met à jour et que tu test dans la procedure BeforeSave
    je vais chosir la deuxieme, je ne peux programmer un evenement ds mon userform enfin du moins je ne sais pas comment faire.

  4. #4
    Membre éprouvé Avatar de zebulon2212
    Inscrit en
    Juin 2006
    Messages
    77
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Juin 2006
    Messages : 77
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UserForm4.Show
    If UserForm4.TextBox1.Value = " password" And UserForm4.CommandButton1.value = true Then _
    Cancel = False
    End Sub
    La partie en rouge de ton code n'est pas bonne puisque lorsque cetteprocedure reprend la main ton userform4 est fermé et tu ne peux plus faire de test sur tes valeurs
    2 solutions : soit tu fait ton code de vérification et de sauvegarde dans ton userform.
    Soit tu passe par une variable globale que ton userform4 met à jour et que tu test dans la procedure BeforeSave

  5. #5
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut variable globale
    voila ce que je fais et je reutilise x ds thisworkbook mais ya un bug ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Private Sub CommandButton1_Click()
    Dim x As Boolean
    x
    End Sub

  6. #6
    Membre éprouvé Avatar de zebulon2212
    Inscrit en
    Juin 2006
    Messages
    77
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Juin 2006
    Messages : 77
    Par défaut
    c'est pas une variable globale mais une variable locale
    declare x dans Thisworkbook de cette maniere
    puis dans le code de ton userform,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    x = true
    End Sub

  7. #7
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut je cherche encore ...
    ya un prob quelque part je fais

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    x = True
    End Sub

    puis ds this workbook:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UserForm4.Show
     
    If x = True And UserForm4.TextBox1.Value = "password" Then
    Cancel = False
    Else: Cancel = True
    End If
    End Sub

    je vois pas d ou vient l erreur mais il ne se passe rien qd je clic sur ok!

  8. #8
    Membre éprouvé Avatar de zebulon2212
    Inscrit en
    Juin 2006
    Messages
    77
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Juin 2006
    Messages : 77
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UserForm4.Show
     
    If x = True And UserForm4.TextBox1.Value = "password" Then
    Cancel = False
    Else: Cancel = True
    End If
    End Sub
    l'erreur est en rouge
    Tu ne peux pas tester la valeur de ta textbox lorsque ton userform est fermé
    Modifie ton commandbutton1_click :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CommandButton1_Click()
    if TextBox1.Value = "password" then
    x = True
    else
    x = false
    end if
    End Sub

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

Discussions similaires

  1. PB Bouton de commande
    Par tigerfish dans le forum Access
    Réponses: 15
    Dernier message: 27/03/2006, 11h27
  2. Bouton de commande - Aller à un onglet défini
    Par JF.Stachera dans le forum Access
    Réponses: 2
    Dernier message: 16/09/2005, 17h58
  3. [Conception] Tester quel bouton a effectué l'action
    Par Cyborg289 dans le forum Général Java
    Réponses: 6
    Dernier message: 07/07/2005, 23h50
  4. [Collaboration/Interaction] Peut-on schématiser une interaction entre un bouton de commande et un autre objet ?
    Par manel007 dans le forum Autres Diagrammes
    Réponses: 5
    Dernier message: 21/09/2004, 01h01
  5. Ajout de bouton de commandes dans la barre de menus
    Par vanessaf22 dans le forum IHM
    Réponses: 9
    Dernier message: 21/07/2003, 11h38

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