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:
Mon erreur provient de la ligne :
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
qui devient une erreur d'éxecution 424 Objet requis, si je la transforme ainsi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveWorkbook.Worksheets("Schedule").Cmd_Send_Data.Activate = valid_cvw()
Je ne dois pas m'y prendre correctement dans l'affectation...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cmd_Send_Data.Activate = valid_cvw()
Merci par avance de votre aide!
Cordialement.
Fabien.
Partager