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:

---

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:

---

ActiveWorkbook.Worksheets("Schedule").Cmd_Send_Data.Activate = valid_cvw()

---

qui devient une erreur d'éxecution 424 Objet requis, si je la transforme ainsi:

Code:

---

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.

Déjà, tu peux simplifier ton code

Code:

---

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:

---

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 ?

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.

Si c'est une case à cocher, c'est

Code:

---

LaCaseAcocher.value = True

---

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.

Je verrai assez un truc comme ça

Code:

---

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+

Merci de ton aide, en fait je me suis trompé, je pensais que activate était une propriété or c'est une méthode, dans mon cas il faut que j'utilise .enabled et / ou .TakeFocusOnClick ...

Désolé pour ce probleme qui n'en n'était pas vraiment un.

Au cas où, ça marche comme ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function valid_cvw() As Boolean valid_cvw = Cells(38, 2) = "N" & Cells(39, 2) = "Y" & Cells(40, 2) = "Y" End Function   Public Function AFTER_CHANGECVW() Dim bouton_actif As Boolean bouton_actif = valid_cvw()   Cmd_Send_Data.Enabled = bouton_actif Cmd_Send_Data.TakeFocusOnClick = bouton_actif AFTER_CHANGECVW = True   End Function

---

Merci pour ta disponibilité!