AFFICHAGE AUTOMATIQUE DES COLONNE

Panda Tsoa

XLDnaute Nouveau
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
 

Fichiers joints

Johan

XLDnaute Occasionnel
Salut Panda,

J'ai un début de solution, mais qui ne marche que si tu défusionnes tes colonnes...


Code:
Sub HideColumns()

Dim numEntite As String

numEntite = Range("B1").Value

    For Each cell In ActiveSheet.Range("D4:BR4")
        If cell.Value <> numEntite Then
            Columns(cell.Column).Select
            Selection.EntireColumn.Hidden = True
        End If
    Next cell

End Sub
 

Discussions similaires


Haut Bas