Affichage automatique des colonne

Bonjour tout le monde,
Je sollicite votre aide. Je sais pas si ma demande est faisable mais j’ai détaillé dans le fichier dans le fichier ci-joint mon besoin.
Merci pour votre assistance et espérant votre retour,
Meilleures salutations
=> automatisation.xlsx (112,0 Ko)

Bonjour
A tester
la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim stRech As String
Dim c As Range
Dim Col As Integer
Columns("D:BR").Select
Selection.EntireColumn.Hidden = False 'on affiche toutes les colonnes
With Feuil22
    stRech = .Range("B1")
    If stRech <> "" Then
        'On fait la recherche dans la ligne 4 de Feuil22
        Set c = Feuil22.Rows(4).Find(stRech, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Col = c.Column
            Set c = Nothing
            Columns("D:BR").Select
            Selection.EntireColumn.Hidden = True 'on masque toutes les colonnes
            Columns(Col).Select
            Selection.EntireColumn.Hidden = False 'on affiche la colonne trouvée
            Columns(Col + 2).Select
            Selection.EntireColumn.Hidden = False 'on affiche la 3ème colonne trouvée
        End If
    End If
End With
Range("B1").Select
End Sub

automatisation.xlsm (119,7 Ko)

1 J'aime

Bonjour Mimimathy,
Votre réponse a bien marché. Merci pour le temps que vous avez consacré pour moi.
Une petite remarque, j’ai oublié dans ma question, si j’ai dans la liste déroulante “tout” toutes les colonnes s’affichent? Pourriez-vous l’insérer dans le code s’il vous plaît?
Encore merci

Re,
C’est parfait, une dernière question, si je copie le code dans la vraie matrice, où est-ce que je vais le coller, dans un module ?
Merci

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.