Erreur d'exécution 13
Bonjour,
Aprés ce code, j'ai le message
Erreur d'exécution '13'
Incompatibilité de type.
Alors que les autres feuilles ont exactement le même code et ça marche très bien.
Aprés ce code, j'ai le message
Erreur d'exécution '13'
Incompatibilité de type.
Alors que les autres feuilles ont exactement le même code et ça marche très bien.
Option Explicit
Private Sub Worksheet_Activate()
Dim x As Byte
For x = 19 To 46
If Cells(x, 2) = "" Or Cells(x, 2) = 0 Then
Rows(x).EntireRow.Hidden = True 'masque
Else
Rows(x).EntireRow.Hidden = False 'affiche
End If
Next x
End Sub
