VBA cacher des colonnes si une cellule contient le contenu d'une aute

Bonsoir à tous,

J'ai créé un tableau qui sera à terme assez volumineux et j'ai donc fait des macros de recherche de colonnes.

Pou le moment j'ai ceci sous VBA :

Sub Rechercheprogramme()

End Sub

Cela fonctionne mais je souhaiterais que les colonnes qui s’affichent soient celles dont la cellule 4 contienne le mot de la cellule E2 et non pas soit égale à (et si possible sans respecter la casse).

Ainsi, si je tape AA dans la cellule E2, les colonnes « AA1» et « AA2 » vont apparaitre.

Évidemment à terme, le contenu des cellules sera plus compliqué que deux lettres et un chiffre ...

Merci d'avance de vote aide

Bonjour,

Essaye comme cela

Option Explicit
Sub Rechercheprogramme()
Dim Col As Integer
    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    For Col = 7 To 500
        If InStr(1, Cells(4, Col), Range("E2"), vbTextCompare) = 0 Then Columns(Col).Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Cordialement.

Top merci beaucoup !!

Rechercher des sujets similaires à "vba cacher colonnes contient contenu aute"