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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas