VBA cacher des colonnes si une cellule contient le contenu d'une aute Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
elodie13vince
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 9 mai 2019
Version d'Excel : Excel pour Office 365 MSO

Message par elodie13vince » 9 mai 2019, 22:45

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()
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
For Col = 7 To 500
If Cells(4, Col) <> Range("E2") Then Columns(Col).Hidden = True
Next
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 :)
Copie de Récap programme.xlsm
(150.3 Kio) Pas encore téléchargé
g
gyrus
Membre fidèle
Membre fidèle
Messages : 268
Appréciations reçues : 39
Inscrit le : 8 avril 2019
Version d'Excel : 2013 FR

Message par gyrus » 9 mai 2019, 23:41

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.
e
elodie13vince
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 9 mai 2019
Version d'Excel : Excel pour Office 365 MSO

Message par elodie13vince » 10 mai 2019, 08:42

Top merci beaucoup !!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message