Erreur d'exécution 13

Fermé
celine31190 Messages postés 21 Date d'inscription jeudi 12 novembre 2015 Statut Membre Dernière intervention 17 décembre 2015 - 12 nov. 2015 à 14:33
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 12 nov. 2015 à 17:42
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.

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

1 réponse

f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
12 nov. 2015 à 17:42
Re,

C'est toujours d'actualite ou pas ????
0