XL 2013 Bouton commande ne fonctionne pas

[midovic]

Bonjour,

J'ai un bouton de commande qui ne fonctionne plus et je ne sais pas pourquoi!
Il se désactive et pourtant quand je passe en mode création il un bien un code affecté au bouton...
Pour info, le but de ce bouton : il me permet de masquer et afficher des lignes avec un total à 0.
Voici le code :

Private Sub CommandButton1_Click()
Dim i&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CommandButton1.Caption = "Masquer" Then
CommandButton1.Caption = "Afficher"
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Hidden = Cells(i, 2) = 0
Next i
Else
CommandButton1.Caption = "Masquer"
Rows.Hidden = False
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Je ne sais pas si quelqu'un voit d'où vient le problème.
Je vous remercie par avance pour votre aide.

 

[sylvanu]

Bonjour Midovic,
Avec le fichier en question ( anonyme et sans données sensibles ) ce serait plus simple. 🙂

 

[midovic]

Merci.
Voici un extrait du fichier avec une seule feuille (fichier volumineux).
a savoir j'utilise ce bouton sur une vingtaine de feuilles.

 

[Franc58]

Bonjour,

J'ai un bouton de commande qui ne fonctionne plus et je ne sais pas pourquoi!
Il se désactive et pourtant quand je passe en mode création il un bien un code affecté au bouton...
Pour info, le but de ce bouton : il me permet de masquer et afficher des lignes avec un total à 0.
Voici le code :

Private Sub CommandButton1_Click()
Dim i&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CommandButton1.Caption = "Masquer" Then
CommandButton1.Caption = "Afficher"
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Hidden = Cells(i, 2) = 0
Next i
Else
CommandButton1.Caption = "Masquer"
Rows.Hidden = False
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Je ne sais pas si quelqu'un voit d'où vient le problème.
Je vous remercie par avance pour votre aide.

Salut, il a suffi que je déplace le bouton pour qu'il fonctionne, pourquoi ? Mystère!!!

 

[sylvanu]

Re, bonjour Franc,
Et sur Win10 XL2007, je n'observe aucun problème. Ca marche.
Double mystère !!!!

 

[Eric C]

Bonjour le forum
Bonsoir midovic, bonsoir Franc58, bonsoir sylvanu

De mon côté, aucun souci non plus , XL 2010 - Win 10.
@+ Eric c

 

[jcf6464]

Bonsoir le forum,midovic, bonsoir Franc58, bonsoir sylvanu

Chez moi cela fonctionne 365 win10

@ + jcf

 

[midovic]

Je vous remercie pour vos réponses, jcf6464, Eric C, Sylvanu, Franc58!
Moi je suis sur 365 et Win 10.
Sincèrement, je ne comprend pas. Vraiment mystère!! j'ai déplacé le bouton et ca a marché!
Le problème si je dois faire ca a chaque fois et sur une vingtaine de feuilles...
Je vous redis si il se désactive encore le bouton.
En tout cas merci beaucoup 🙏 🙂