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