Problème Stupide ExcelRésolu

Question

Bonjour le fil, le Forum, et tous ses bienfaiteurs.
J'ai, de nouveau, un problème avec un *** de tableau.
Une macro qui jusqu'alors fonctionnait très bien ne fonctionne plus...
Le code VBA me renvoie systématiquement une erreur d'incompatibilité 13 quand je cible la colonne que je cherche à masquer...et ça m'énerve!!!
Quelqu'un saura-t-il trouver la solution?
Fichier à consulter: 
http:///www.lma-lebeurre.com/test.xls
Merci d'avance si vous passez par là!!

bigfish_le vrai · Accepted Answer

Salut,

même question que Renfield ?

bon ok !

j'ai regardé ton fichier bien que ce soit pas dans mes habitude... et, effectivement poster le code n'aurait pas suffit.

Attention le Application.ScreenUpdating en debut de code ta empêché de comprendre pourquoi !

une des cellules de la colonne H contenait une erreur excel #valeur! qui est de type incompatible d'ou l'erreur 13.
De plus évite de faire appel au propriété des cellules sans les nommer. En clair le .value limite le risque d'erreur

Sub PlagesSupZero()
    Dim n As Integer
    Application.ScreenUpdating = False
    For n = 5 To 580
        'on regarde si la cellule contient une erreur.
        'Si oui on remplace l'erreur par un text "Erreur"
        If Application.WorksheetFunction.IsError(Cells(n, 8)) True Then Cells(n, 8).Value "Erreur"
        If Cells(n, 8).Value = 0 Or Cells(n, 8).Value < 0 Then
            Rows(n).Hidden = True
        End If
    Next n
    Range("A5:A580").EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

A+

Renfield · Answer

Quelle macro ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Renfield · Answer

simple et efficace.

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

chkeuz · Answer

Merci à tous!

Problème Stupide Excel

4 réponses

Votre réponse

Discussions similaires