Bonjour,

Je souhaite masquer des colonnes en fonction d'un valeur presente dans une case. Feuil1 B7=3 afficher les 3 premieres colonnes de la feuille 2.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Plage As Range, Intersection As Range
Dim nb_classeur As Integer
 
Set Plage = Range("B7:B7")
Set Intersection = Intersect(Target, Plage)
 
If Not (Intersection Is Nothing) Then
'MsgBox "Dans la plage"
nb_classeur = ActiveSheet.Cells(7, 2)
Sheets("Feuil2").Select
Columns("B:D").Select
Selection.EntireColumn.Hidden = True
Sheets("Feuil1").Select
 
End If
End Sub
J'ai une erreur sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Columns("B:D").Select,
Erreur 1004 La méthode Select de la classe Range à échoué

Merci de votre aide.
Cdlt.