Bonjour à tous
j'ai un bouton activeX, que je cache tant qu'un champs n'est pas complété. Si je fais un "reset" (effacer tous les champs que l'utilisateur complete), le bouton ne disparait pas malgré que la case est vide. Par contre si je me rends dans la cellule et que je clic sur "effacer", le bouton disparait... on dirait que la macro ne reconnais pas le "reset"..

voici les codes que j'utilise:

Pour cacher le bouton
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_change(ByVal target As Range)
    Application.ScreenUpdating = False
    If Cells(43, 5).Value <> "" Then
    Me.CommandButton4.Visible = True
    Else
    Me.CommandButton4.Visible = False
    End If
    Application.ScreenUpdating = True
 
End Sub
Pour reseter mon fichier

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub SpeedUpMacros()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Unprotect Password:="JudeLyaJade0."
Sheets("Basic requirement to create cod").Range("ACC_ASS_GRP").Value = "3 - Manufacturing - FG"
Sheets("Basic requirement to create cod").Range("AFFILIATE").Value = ""
Sheets("Basic requirement to create cod").Range("BRAND").Value = ""
Sheets("Basic requirement to create cod").Range("BUoM").Value = ""
Sheets("Basic requirement to create cod").Range("CHANNEL").Value = ""
Sheets("Basic requirement to create cod").Range("COMMENTS").Value = ""
Sheets("Basic requirement to create cod").Range("COUNTRY").Value = ""
Sheets("Basic requirement to create cod").Range("CUSTOMER").Value = ""
Sheets("Basic requirement to create cod").Range("CUSTOMER_NAME") = ""
Sheets("Basic requirement to create cod").Range("EMAIL").Value = ""
Sheets("Basic requirement to create cod").Range("GNPL") = "Please add GNPL ref here"
Sheets("Basic requirement to create cod").Range("GTIN_S") = ""
Sheets("Basic requirement to create cod").Range("GTIN_B") = ""
Sheets("Basic requirement to create cod").Range("MATERIAL_GROUP") = ""
Sheets("Basic requirement to create cod").Range("MSDS") = ""
Sheets("Basic requirement to create cod").Range("NAME") = "=VLOOKUP(UGDN_CREATE,UGDN!$A:$B,2,0)"
Sheets("Basic requirement to create cod").Range("NET_SELLING") = ""
Sheets("Basic requirement to create cod").Range("PACK") = ""
Sheets("Basic requirement to create cod").Range("PLANNED_D") = ""
Sheets("Basic requirement to create cod").Range("PROFIT_CENTER") = ""
Sheets("Basic requirement to create cod").Range("PURCHASING_KEY") = ""
Sheets("Basic requirement to create cod").Range("RECIPE") = ""
Sheets("Basic requirement to create cod").Range("REF") = ""
Sheets("Basic requirement to create cod").Range("REG") = ""
Sheets("Basic requirement to create cod").Range("REGISTRATION") = ""==> c est ce champs qui ne fonctionne pas
Sheets("Basic requirement to create cod").Range("REGUL_ONE") = ""
Sheets("Basic requirement to create cod").Range("ROLE").Value = ""
Sheets("Basic requirement to create cod").Range("SALES_ORG") = ""
Sheets("Basic requirement to create cod").Range("SELLING_PLANT") = ""
Sheets("Basic requirement to create cod").Range("SHELF") = ""
Sheets("Basic requirement to create cod").Range("SOURCE") = ""
Sheets("Basic requirement to create cod").Range("STORAGE_LOCATION") = ""
Sheets("Basic requirement to create cod").Range("TAX") = ""
Sheets("Basic requirement to create cod").Range("TYPE") = ""
Sheets("Basic requirement to create cod").Range("UGDN_CREATE") = "=GetUserName()"
Sheets("Basic requirement to create cod").Range("VOLUME") = ""
ActiveSheet.Protect Password:="JudeLyaJade0.", AllowFormattingColumns:=True, DrawingObjects:=False
CreateObject("WScript.Shell").Popup "Form has been reset" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Send your creation file" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "using the Send to MD button ", 4, "MDM"
Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = False
End Sub
Aurriez vous une idée de coment solutionner ce problème ?
Merci à tous et bonne semaine
Guismo30