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 :

affectation d'une propriété via une procédure


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 3
    Par défaut affectation d'une propriété via une procédure
    Bonjour,

    j'essaie de désactiver un bouton en fonction d'une condition, cela me parait simple mais je récupère l'erreur suivante : erreur d'éxecution 1004 erreur définié par l'application ou par l'objet...

    Voici mon code:

    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
    16
    17
    18
    Public Function valid_cvw() As Boolean
    valid_cvw = True
     
        If (Cells(38, 2) = "N" & Cells(39, 2) = "Y" & Cells(40, 2) = "Y") Then
            valid_cvw = True
        Else
            valid_cvw = False
        End If
     
    End Function
     
    Public Function AFTER_EXPAND()
     
           ActiveWorkbook.Worksheets("Schedule").Cmd_Send_Data.Activate = valid_cvw()
     
            AFTER_EXPAND = True
     
    End Function
    Mon erreur provient de la ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWorkbook.Worksheets("Schedule").Cmd_Send_Data.Activate = valid_cvw()
    qui devient une erreur d'éxecution 424 Objet requis, si je la transforme ainsi:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cmd_Send_Data.Activate = valid_cvw()
    Je ne dois pas m'y prendre correctement dans l'affectation...

    Merci par avance de votre aide!

    Cordialement.

    Fabien.

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Déjà, tu peux simplifier ton code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Public Function valid_cvw() As Boolean
        valid_cvw = Cells(38, 2) = "N" & Cells(39, 2) = "Y" & Cells(40, 2) = "Y" End Function
    Ensuite, tu ne peux pas à la fois activer un objet (c'est quoi Cmd_Send_Data ?) et lui affecter une valeur
    Je verrais plutôt un truc "plus compliqué" de ce style
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If valid_cvw() then Cmd_Send_Data.Activate
    mais je ne sais toujours pas ce qu'est Cmd_Send_Data. Si c'est un objet de la feuille de calculs, tu dois le désigner soit en tant que Shapes("Cmd_Send_Data") si tel est bien son nom, soit en tant qu'OLEObjects(Index)
    Tu précises ?

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : Royaume-Uni

    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut
    Moi j'ai reussi a faire ca sans rentrer la moindre ligne de code.

    En gros tu fait pointer ta CheckBox vers une case qui peut prendre la valeur TRUE ou FALSE.
    Une fois que tu l'as faite pointer tu trouve une fonction qui en fonction de tes criteres va prendre la valeur TRUE (case cochee) ou FALSE (case decochee).

    Generalement des fonction comme OR ou AND (Excel anglais pour moi) renvoient des TRUE ou FALSE.

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Si c'est une case à cocher, c'est
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    LaCaseAcocher.value = True

  5. #5
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 3
    Par défaut
    Merci pour l'aide!!!

    Alors Cmd_Send_Data est un bouton qui sur l'événement "clic" envoi des données.

    Je veux mettre sa propriété à vrai si les conditions sont remplies et à faux sinon, c'est à dire le désactiver le tout grâce à ma fonction valid_cvw().

    J'espère avoir été suffisament clair.

    J'essaierai vos propositions demain au boulot.

    Merci à vous.

  6. #6
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Je verrai assez un truc comme ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub CommandButton1_Click()
    If Not valid_cvw Then Exit Sub
    'dans le cas contraire -> Ton code
    End Sub
     
    Public Function valid_cvw() As Boolean
        valid_cvw = Cells(38, 2) = "N" & Cells(39, 2) = "Y" & Cells(40, 2) = "Y"
    End Function
    Quand tu n'y parviens pas en prenant le problème à l'endroit, prends-le à l'envers
    Tu dis
    A+

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

Discussions similaires

  1. Binding sur une proprité d'une propriété
    Par al2000 dans le forum Windows Forms
    Réponses: 0
    Dernier message: 21/06/2010, 17h24
  2. [AC-2003] Lier les tables d'une Base1 dans une Base3 via une Base2
    Par ted the Ors dans le forum VBA Access
    Réponses: 0
    Dernier message: 30/12/2009, 11h58
  3. Réponses: 14
    Dernier message: 10/09/2009, 19h08
  4. Eval d'une propriété d'une classe dans une classe
    Par bizet dans le forum ASP.NET
    Réponses: 4
    Dernier message: 28/10/2008, 09h43
  5. Réponses: 2
    Dernier message: 17/04/2007, 17h14

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