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.