Bonjour hichem,
je veux masquer des colonnes selon le choix que j'ai fais sur ma liste déroulante
A tester:
Sub masqueCol()
With Sheets("A_remplir")
If Cells(3, 2) = "" Then 'si cellule B3 vide alors'
Range("d:x").EntireColumn.Hidden = False ' on ne masque rien'
End If
If Cells(3, 2) = "Provision client/vente" Then 'si cellule B3=Provision client/vente'
Range("f:g").EntireColumn.Hidden = True 'on masque F et G'
Range("d:e,p:x").EntireColumn.Hidden = False 'on affiche les autres'
End If
If Cells(3, 2) = "Provision fournisseur/Achat" Then 'si cellule B3=Provision fournisseur/Achat'
Range("d:e,p:x").EntireColumn.Hidden = True 'on masque D,E et P à X'
Range("f:g").EntireColumn.Hidden = False 'on affiche F et G
End If
If Cells(3, 2) = "Opérations diverses" Then 'si cellule B3=Opérations diverses'
Range("d:e,f:g,p:x").EntireColumn.Hidden = True ' on masque D,E,F,G et P à X'
End If
End With
End Sub
A rajouter dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("b3").Address Then
Call MasquerColonne
End If
End Sub
Cordialement,