Bonjour,

Je viens vers vous car je ne trouve pas la réponse à mon problème.

J'ai créer de code et pour moi il n'y a aucune raison pour que cela ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Activate()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In Range("P2:AUH2")
    If cel = "" Then
    cel.EntireColumn.Hidden = True
    Else: cel.EntireColumn.Hidden = False
    End If
    Next
    Application.ScreenUpdating = True
 
End Sub

l'idée est d'analyser toutes les cellules de l'entête (P2 à AUH2), et lorsque la cellule est égale à "" => De cacher la colonne complète.

Les cellules de l'entête ont cette formule ci: =SI(Service!A7="";"";Service!A7)


la marco marche mais à la fin de son exécution, j'ai l'erreur 2029 qui apparait...

Pourquoi ???