Erreur 13 : Incompatibilité de type

[Nisos]

Bonjour,

J'ai écrit une macro qui permet de masquer une colonne lorsqu'une cellule donnée de cette colonne n'affiche pas la même valeur qu'une valeur choisie dans une liste déroulante.
Seulement, lorsque je lance la macro, il m'apparaît "erreur 13 : incompatibilité de type", alors que cette macro a déjà fonctionné dans le passé...
Voici le code :

Sub MasquerColonnes()
   
   Dim i As Integer
   For i = 6 To 150
   Sheets("Recherche par chaîne").Columns(i).Hidden = False
   If Sheets("Recherche par chaîne").Cells(1, i) <> Sheets("Recherche par chaîne").Cells(6, 2) Then
   Sheets("Recherche par chaîne").Columns(i).Hidden = True
   End If
   Next i
   
      
End Sub

Merci par avance pour votre aide !

 

[Efgé]

Re : Erreur 13 : Incompatibilité de type

Bonjour Nisos,

Sans exemple, difficile de voir quoi que ce soit.....

N'aurais-tu pas des valeurs d'erreurs dans certaines cellules?

Pendant que l'on y est, une proposition pour raccourcir le code:

Sub MasquerColonnes_2()
Dim i As Intege
With Sheets("Recherche par chaîne")
    For i = 6 To 150
        .Columns(i).Hidden = .Cells(1, i) <> .Cells(6, 2)
    Next i
End With
End Sub

Cordialement

 

[Nisos]

Re : Erreur 13 : Incompatibilité de type

Effectivement, j'avais une valeur d'erreur dans une cellule, alors je l'ai enlevée et la macro marche !

Merci beaucoup, et merci pour le code simplifié !