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