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 17213 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 25 décembre 2024 - 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

A voir également:

Erreur d'exécution 13
Erreur 0x80070643 - Accueil - Windows
Redmi note 13 5g test - Accueil - Téléphones
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 38 free ✓ - Forum Mobile

1 réponse

Réponse 1 / 1

f894009 Messages postés 17213 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 25 décembre 2024 1 711
12 nov. 2015 à 17:42

Re,

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

Discussions similaires

Voxbone ? qui est-ce ?

VBA erreur 1004

Erreur d'exécution 13 Incompatibilité de type

Code erreur 3000

Erreur vidéo inconnue sur le Freebox Player