suppresion de colonne lorsque qu'une valeur d'une cellule change

Bonsoir urgent,
prends ceci dans ton pressepapier;(Ctrl+c):
'***
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If IsNumeric(Target.Value) _
Then Columns(Target.Value).EntireColumn.Hidden = True
End Sub
'***

puis

alt+f11
ctrl+r
dans leprojet dblclic sur feuil1 (si c'est celle là)
puis Ctrl+v dans le module qui est à droite
fermer vba et taper un entier en a1

lsteph
"urgent" <urgent@discussions.microsoft.com> a écrit dans le message de news:
5C6B5ECB-4DC8-4540-9581-E7A4F100BD48@microsoft.com...

bonjour,
J'ai un tableau

qui prend la valeur 5 6 7 8 9 10


5 correspond à la collonne C, 6 D,7 à E, 8 à F et ainsi de suite

et je veux quand je met la valeur 5 dans la cellule A1, masquer ou cacher
la
colonne C

quand je met la valeur 6 dans A 1 cacher la colonne C et D

quand je met la valeur 7 dans A1 cacher la colonne C D et E

comment faire merci

Bonsoir,
Si j'ai compris :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] < 5 Then Exit Sub
Range(Columns(3), Columns(8)).Hidden = False
Range(Columns(3), Columns([a1] - 2)).Hidden = True
End If
End Sub

dans le module de la feuille concernée (clic droit sur l'onglet, visualiser le code et coller dans la
feuille qui s'ouvre)
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"urgent" <urgent@discussions.microsoft.com> a écrit dans le message de news:
5C6B5ECB-4DC8-4540-9581-E7A4F100BD48@microsoft.com...

bonjour,
J'ai un tableau

qui prend la valeur 5 6 7 8 9 10


5 correspond à la collonne C, 6 D,7 à E, 8 à F et ainsi de suite

et je veux quand je met la valeur 5 dans la cellule A1, masquer ou cacher la
colonne C

quand je met la valeur 6 dans A 1 cacher la colonne C et D

quand je met la valeur 7 dans A1 cacher la colonne C D et E

comment faire merci

Bonsoir,
A partir des dernières indications fournies :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 09/11/2004 par Philippe.R
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range(Columns(3), Columns(50)).Hidden = False
If Year([a1]) - 2000 < 5 Then Exit Sub
Range(Columns(3), Columns(Year([a1]) - 2002)).Hidden = True
End If
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"urgent" <urgent@discussions.microsoft.com> a écrit dans le message de news:
5C6B5ECB-4DC8-4540-9581-E7A4F100BD48@microsoft.com...

bonjour,
J'ai un tableau

qui prend la valeur 5 6 7 8 9 10


5 correspond à la collonne C, 6 D,7 à E, 8 à F et ainsi de suite

et je veux quand je met la valeur 5 dans la cellule A1, masquer ou cacher la
colonne C

quand je met la valeur 6 dans A 1 cacher la colonne C et D

quand je met la valeur 7 dans A1 cacher la colonne C D et E

comment faire merci