XL 2013 Bouton commande ne fonctionne pas

midovic

XLDnaute Nouveau
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.
 

Franc58

XLDnaute Occasionnel
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

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

Test4.gif
 

midovic

XLDnaute Nouveau
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 🙏 :)
 

Discussions similaires

Réponses
12
Affichages
315

Statistiques des forums

Discussions
313 198
Messages
2 096 141
Membres
106 505
dernier inscrit
ngomez