Erreur d'exécution 13

celine31190 Messages postés 21 Statut Membre -  
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

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