Problème avec macro qui masque les lignes

[gillmo]

bonjour,

J'ai un code VBA qui masque des lignes sur une feuille. Tout fonctionnait correctement, et je reprend le dossier que j'avais donné à une autre personne, le code est toujours le même, mais maintenant le code tourne et je suis obligé de passer par echap pour arrêter la macro.

Je ne comprend pas pourquoi le code se bloque malgré que le fichier soit rester le même dans le format, il n'y a eu que des lignes ajoutées.

Ci dessous le code utilisé :

Private Sub Worksheet_Activate()

Dim cell As Range, plage As Range
Application.ScreenUpdating = False
Set plage = Range("w18:w500")
For Each cell In plage
If cell.Value = 1 Then
cell.Rows.EntireRow.Hidden = True
Else: cell.Rows.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True

End Sub

merci pour votre aide, si jamais il faut le fichier complet, je le mettrai ultérieurement.

Cordialement.

 

[Compte Supprimé 979]

Re : Problème avec macro qui masque les lignes

Bonsoir Gilmo

Merci de mettre tes lignes de code entre les balises

 [/ Code][/B]
(sans espace entre [/ et Code])
 
Pour moi, comme ça, il n'y a pas de raison ... peux tu joindre le fichier ?
 
A+

 

[gillmo]

Re : Problème avec macro qui masque les lignes

Bonjour,

ci joint le fichier, je pense qu'il s'agit d'un problème de volume de données mais je ne suis pas sur. La macro se déclenche lorsque l'on clique sur l'onglet récap, et après ca tourne mais ca ne s'arrete pas.

merci.

 

[BOISGONTIER]

Re : Problème avec macro qui masque les lignes

Bonjour,

Private Sub Worksheet_Activate()
  Application.Calculation = xlCalculationManual
  Dim cell As Range, plage As Range
  Application.ScreenUpdating = False
  Set plage = Range("w18:w500")
  For Each cell In plage
   x = cell.Address
   If cell.Value = 1 Then
     cell.Rows.EntireRow.Hidden = True
     Else: cell.Rows.EntireRow.Hidden = False
   End If
  Next
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

JB

 

[gillmo]

Re : Problème avec macro qui masque les lignes

merci ton code fonctionne parfaitement, je ne comprend pas pourquoi le mien généré un bug, si jamais tu peux me dire cela me permettra de me corriger à l'avenir.

Merci encore.