Discussion :

[guismo30]

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

[EricDgn]

Bonjour,

Cela vient du fait que vous avez indiqué Application.EnableEvents = False en tête de code, ce qui fait que Worksheet_change n'est pas activé.

Cordialement.

[deedolith]

Salut,

La première chose que je remarque est toutes ces instructions de pseudo-optimisation.
Comprends-tu leurs rôle ?
En as-tu réellement besoin ?

Dans le gestionnaire d'évènement Worksheet_change, clairement non.
Dans la procédure SpeedUpMacros (quel nom mal choisit pour un reset !!), tu n'as besoin que de désactiver l'affichage.

Fais toi une fleur, et vires tous ces parasites inutiles.

[guismo30]

Salut,

La première chose que je remarque est toutes ces instructions de pseudo-optimisation.
Comprends-tu leurs rôle ?
En as-tu réellement besoin ?

Dans le gestionnaire d'évènement Worksheet_change, clairement non.
Dans la procédure SpeedUpMacros (quel nom mal choisit pour un reset !!), tu n'as besoin que de désactiver l'affichage.

Fais toi une fleur, et vires tous ces parasites inutiles.

Bonjour et merci pour ton commentaire
alors c est simple, je ne connais pas du tout la VBA et tout ce que je "fais" c est du copier coller de trucs que je trouve sur le net, donc, oui, mon fichier est loin d'être parfait, mais je n'ai personne dans mes connaissances sui pourrait me faire cela sur mesure, donc, j'essaye de trouver de bon trucs...
maintenant si vous avez le temps de me mettre cela au clair ce serai super gentil !

[Philippe Tulliez]

Bonjour,
Cela ne répond pas vraiment à votre question mais lorsque l'on doit modifier la propriété booléenne d'un objet en fonction d'une ou plusieurs conditions, il y a plus simple que de passer par le bloc d'instruction If...Then...Else.

Ainsi au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  If Cells(43, 5).Value <> "" Then
    Me.CommandButton4.Visible = True
   Else
    Me.CommandButton4.Visible = False
  End If

privilégiez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  With Me
  .CommandButton4.Visible = .Cells(43, 5).Value <> ""
  End With

Si le sujet vous intéresse, j'ai écrit un billet sur ce sujet VBA - De la mauvaise utilisation d'un If...Then...Else pour modifier une propriété Booléenne