Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Masquer certaines colonnes

Masquer certaines colonnes

15 réponses
Avatar
Lulu
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Re...
Ama, il faut régler le problème en amont...
Met un exemple sur
http://www.cijoint.fr/
--
Salutations
JJ


"Lulu" a écrit dans le message de news:

Encore une petite question :

si dans la liste des fournisseurs sur la ligne 1, il y a #N/A, "erreur
d'exécution 13" imcompatiblité de type

est ce qu'on peut modifier la marcro ??

Merci d'avance

Luc

"Lulu" a écrit dans le message de news:

OK, merci JACKY (Grand Maître en la matière)

Evidemment ca marche.
Je vais essayer d'appliquer l'exemple sur d'autres fichiers en créant
l'onglet fournisseurs avec le nom adéquat
et en recopiant la macro (ou le charabia) dans l'onglet adéquat (un jour
viendra : comment écrire dans visual ...)

Merci encore.
Bien cordialement
Luc


"Jacky" a écrit dans le message de news:
%
Bonsoir,
Mais je me rappelle Jacky, c'est toi qui m'avait donné le module


Alors dans ce cas.... et comme Philippe est en cours de reconversion.
Regarde ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijAKyAr3M.xls
--
Salutations
JJ


"Lulu" a écrit dans le message de news:
%
J'y arrive avec un peu de galère

Mais je me rappelle Jacky, c'est toi qui m'avait donné le module
avec la création d'un nom avec une formule DECALE ...puis création de
la
liste

Ca revient, j'essaie de créer tout ca dans un nouveau fichier mais des
fois ca plante dans la macro, il me dit aucune donnée pour le
fournisseur
!!!

Je vais y arriver

a+ et merci pour tout

Luc

"Jacky" a écrit dans le message de news:
%
Bonsoir,

Allez, Philippe un petit effort et tu lui renvoies son classeur AVEC
la
liste de validation toute faite ;o))
http://www.youtube.com/watch?vð3KAiuMVRw
:o)))
--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
En A1, tu crées une liste de validation avec tes fournisseurs
(données /
validation / autoriser / liste /dans source, tu saisis la liste des
fournisseurs en les séparant d'un point virgule)
Pour coller le code :
clic droit sur l'onglet de la feuille concernée / visualiser le code
et
tu colles dans la fenêtre qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Philippe,

Merci de ta réponse rapide.
Je suppose qu'il faut ouvrir "visual basic" dans macro et là j'ai
insertion module et copier ce que tu m'as dit.
et après je ne sais pas ce qui se passe ?

en A1 je devrais avoir une petite flèche, si je choisis "fourn4" il
me
masque toutes les colonnes sauf "fourn4" et la première liste des
produits.

Luc




"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonjour,

Une piste supposant la valeur de la cellule a1 variant avec la
liste
déroulante ; tu colles ceci dans le module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/08/2009
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
dercol = Range("iv1").End(xlToLeft).Column
Range("a1:iv1").EntireColumn.Hidden = False
dercol = Range("iv1").End(xlToLeft).Column
For i = dercol To 2 Step -1
If Cells(1, i).Value <> [a1] Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
End If
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente
réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc


































Avatar
Lulu
En fait la ligne 1 est une formule RECHERCHE si elle ne trouve pas elle met
#N/A
comme dans l'exemple ci-joint

http://www.cijoint.fr/cjlink.php?file=cj200908/cij2ObHtw4.xls

Luc


"Jacky" a écrit dans le message de news:
O7Ma$
Re...
Ama, il faut régler le problème en amont...
Met un exemple sur
http://www.cijoint.fr/
--
Salutations
JJ


"Lulu" a écrit dans le message de news:

Encore une petite question :

si dans la liste des fournisseurs sur la ligne 1, il y a #N/A, "erreur
d'exécution 13" imcompatiblité de type

est ce qu'on peut modifier la marcro ??

Merci d'avance

Luc

"Lulu" a écrit dans le message de news:

OK, merci JACKY (Grand Maître en la matière)

Evidemment ca marche.
Je vais essayer d'appliquer l'exemple sur d'autres fichiers en créant
l'onglet fournisseurs avec le nom adéquat
et en recopiant la macro (ou le charabia) dans l'onglet adéquat (un jour
viendra : comment écrire dans visual ...)

Merci encore.
Bien cordialement
Luc


"Jacky" a écrit dans le message de news:
%
Bonsoir,
Mais je me rappelle Jacky, c'est toi qui m'avait donné le module


Alors dans ce cas.... et comme Philippe est en cours de reconversion.
Regarde ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijAKyAr3M.xls
--
Salutations
JJ


"Lulu" a écrit dans le message de news:
%
J'y arrive avec un peu de galère

Mais je me rappelle Jacky, c'est toi qui m'avait donné le module
avec la création d'un nom avec une formule DECALE ...puis création de
la
liste

Ca revient, j'essaie de créer tout ca dans un nouveau fichier mais des
fois ca plante dans la macro, il me dit aucune donnée pour le
fournisseur
!!!

Je vais y arriver

a+ et merci pour tout

Luc

"Jacky" a écrit dans le message de news:
%
Bonsoir,

Allez, Philippe un petit effort et tu lui renvoies son classeur AVEC
la
liste de validation toute faite ;o))
http://www.youtube.com/watch?vð3KAiuMVRw
:o)))
--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
En A1, tu crées une liste de validation avec tes fournisseurs
(données /
validation / autoriser / liste /dans source, tu saisis la liste des
fournisseurs en les séparant d'un point virgule)
Pour coller le code :
clic droit sur l'onglet de la feuille concernée / visualiser le code
et
tu colles dans la fenêtre qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Philippe,

Merci de ta réponse rapide.
Je suppose qu'il faut ouvrir "visual basic" dans macro et là j'ai
insertion module et copier ce que tu m'as dit.
et après je ne sais pas ce qui se passe ?

en A1 je devrais avoir une petite flèche, si je choisis "fourn4" il
me
masque toutes les colonnes sauf "fourn4" et la première liste des
produits.

Luc




"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de
news:
Bonjour,

Une piste supposant la valeur de la cellule a1 variant avec la
liste
déroulante ; tu colles ceci dans le module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/08/2009
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
dercol = Range("iv1").End(xlToLeft).Column
Range("a1:iv1").EntireColumn.Hidden = False
dercol = Range("iv1").End(xlToLeft).Column
For i = dercol To 2 Step -1
If Cells(1, i).Value <> [a1] Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
End If
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente
réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc







































Avatar
Jacky
Re...
Sans la formule employée, pas de solution(miracle)
Mais ceci à étudier
=SI(ESTNA(RECHERCHEV(valeur_chercher;plage;1;0));"inconnu";RECHERCHEV(valeur_chercher;plage;1;0))

--
Salutations
JJ


"Lulu" a écrit dans le message de news:
u1$Wj$
En fait la ligne 1 est une formule RECHERCHE si elle ne trouve pas elle
met #N/A
comme dans l'exemple ci-joint

http://www.cijoint.fr/cjlink.php?file=cj200908/cij2ObHtw4.xls

Luc


"Jacky" a écrit dans le message de news:
O7Ma$
Re...
Ama, il faut régler le problème en amont...
Met un exemple sur
http://www.cijoint.fr/
--
Salutations
JJ


"Lulu" a écrit dans le message de news:

Encore une petite question :

si dans la liste des fournisseurs sur la ligne 1, il y a #N/A, "erreur
d'exécution 13" imcompatiblité de type

est ce qu'on peut modifier la marcro ??

Merci d'avance

Luc

"Lulu" a écrit dans le message de news:

OK, merci JACKY (Grand Maître en la matière)

Evidemment ca marche.
Je vais essayer d'appliquer l'exemple sur d'autres fichiers en créant
l'onglet fournisseurs avec le nom adéquat
et en recopiant la macro (ou le charabia) dans l'onglet adéquat (un
jour
viendra : comment écrire dans visual ...)

Merci encore.
Bien cordialement
Luc


"Jacky" a écrit dans le message de news:
%
Bonsoir,
Mais je me rappelle Jacky, c'est toi qui m'avait donné le module


Alors dans ce cas.... et comme Philippe est en cours de reconversion.
Regarde ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijAKyAr3M.xls
--
Salutations
JJ


"Lulu" a écrit dans le message de news:
%
J'y arrive avec un peu de galère

Mais je me rappelle Jacky, c'est toi qui m'avait donné le module
avec la création d'un nom avec une formule DECALE ...puis création de
la
liste

Ca revient, j'essaie de créer tout ca dans un nouveau fichier mais
des
fois ca plante dans la macro, il me dit aucune donnée pour le
fournisseur
!!!

Je vais y arriver

a+ et merci pour tout

Luc

"Jacky" a écrit dans le message de news:
%
Bonsoir,

Allez, Philippe un petit effort et tu lui renvoies son classeur AVEC
la
liste de validation toute faite ;o))
http://www.youtube.com/watch?vð3KAiuMVRw
:o)))
--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
En A1, tu crées une liste de validation avec tes fournisseurs
(données /
validation / autoriser / liste /dans source, tu saisis la liste des
fournisseurs en les séparant d'un point virgule)
Pour coller le code :
clic droit sur l'onglet de la feuille concernée / visualiser le
code
et
tu colles dans la fenêtre qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Philippe,

Merci de ta réponse rapide.
Je suppose qu'il faut ouvrir "visual basic" dans macro et là j'ai
insertion module et copier ce que tu m'as dit.
et après je ne sais pas ce qui se passe ?

en A1 je devrais avoir une petite flèche, si je choisis "fourn4"
il
me
masque toutes les colonnes sauf "fourn4" et la première liste des
produits.

Luc




"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de
news:
Bonjour,

Une piste supposant la valeur de la cellule a1 variant avec la
liste
déroulante ; tu colles ceci dans le module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/08/2009
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
dercol = Range("iv1").End(xlToLeft).Column
Range("a1:iv1").EntireColumn.Hidden = False
dercol = Range("iv1").End(xlToLeft).Column
For i = dercol To 2 Step -1
If Cells(1, i).Value <> [a1] Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
End If
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente
réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc











































Avatar
Jacky
Re...
Tu peux aussi contourner le problème avec "On error resume next" mais bon je
ne suis pas partisan.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
Columns("A:iv").Hidden = False
If [a1] = "TOUS" Then Exit Sub
dercol = Range("iv1").End(1).Column
For i = dercol To 2 Step -1
On Error Resume Next
If Cells(1, i).Value <> [a1] Then Columns(i).Hidden = True
Next i
End If
Application.ScreenUpdating = True
End Sub
'--------------

--
Salutations
JJ


"Lulu" a écrit dans le message de news:
u1$Wj$
En fait la ligne 1 est une formule RECHERCHE si elle ne trouve pas elle
met #N/A
comme dans l'exemple ci-joint

http://www.cijoint.fr/cjlink.php?file=cj200908/cij2ObHtw4.xls

Luc


"Jacky" a écrit dans le message de news:
O7Ma$
Re...
Ama, il faut régler le problème en amont...
Met un exemple sur
http://www.cijoint.fr/
--
Salutations
JJ


"Lulu" a écrit dans le message de news:

Encore une petite question :

si dans la liste des fournisseurs sur la ligne 1, il y a #N/A, "erreur
d'exécution 13" imcompatiblité de type

est ce qu'on peut modifier la marcro ??

Merci d'avance

Luc

"Lulu" a écrit dans le message de news:

OK, merci JACKY (Grand Maître en la matière)

Evidemment ca marche.
Je vais essayer d'appliquer l'exemple sur d'autres fichiers en créant
l'onglet fournisseurs avec le nom adéquat
et en recopiant la macro (ou le charabia) dans l'onglet adéquat (un
jour
viendra : comment écrire dans visual ...)

Merci encore.
Bien cordialement
Luc


"Jacky" a écrit dans le message de news:
%
Bonsoir,
Mais je me rappelle Jacky, c'est toi qui m'avait donné le module


Alors dans ce cas.... et comme Philippe est en cours de reconversion.
Regarde ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijAKyAr3M.xls
--
Salutations
JJ


"Lulu" a écrit dans le message de news:
%
J'y arrive avec un peu de galère

Mais je me rappelle Jacky, c'est toi qui m'avait donné le module
avec la création d'un nom avec une formule DECALE ...puis création de
la
liste

Ca revient, j'essaie de créer tout ca dans un nouveau fichier mais
des
fois ca plante dans la macro, il me dit aucune donnée pour le
fournisseur
!!!

Je vais y arriver

a+ et merci pour tout

Luc

"Jacky" a écrit dans le message de news:
%
Bonsoir,

Allez, Philippe un petit effort et tu lui renvoies son classeur AVEC
la
liste de validation toute faite ;o))
http://www.youtube.com/watch?vð3KAiuMVRw
:o)))
--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
En A1, tu crées une liste de validation avec tes fournisseurs
(données /
validation / autoriser / liste /dans source, tu saisis la liste des
fournisseurs en les séparant d'un point virgule)
Pour coller le code :
clic droit sur l'onglet de la feuille concernée / visualiser le
code
et
tu colles dans la fenêtre qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Philippe,

Merci de ta réponse rapide.
Je suppose qu'il faut ouvrir "visual basic" dans macro et là j'ai
insertion module et copier ce que tu m'as dit.
et après je ne sais pas ce qui se passe ?

en A1 je devrais avoir une petite flèche, si je choisis "fourn4"
il
me
masque toutes les colonnes sauf "fourn4" et la première liste des
produits.

Luc




"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de
news:
Bonjour,

Une piste supposant la valeur de la cellule a1 variant avec la
liste
déroulante ; tu colles ceci dans le module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/08/2009
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
dercol = Range("iv1").End(xlToLeft).Column
Range("a1:iv1").EntireColumn.Hidden = False
dercol = Range("iv1").End(xlToLeft).Column
For i = dercol To 2 Step -1
If Cells(1, i).Value <> [a1] Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
End If
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente
réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc











































Avatar
Lulu
Jacky,

J'ai mis la formule avec =si(estna(recherche .....) comme tu as dit
et je n'ai plus l'erreur.
C'est plus facile quand on a la solution, je n'avais pas encore utilisé la
fonction ESTNA.

Merci encore.

Luc





"Jacky" a écrit dans le message de news:
%
Re...
Tu peux aussi contourner le problème avec "On error resume next" mais bon
je ne suis pas partisan.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
Columns("A:iv").Hidden = False
If [a1] = "TOUS" Then Exit Sub
dercol = Range("iv1").End(1).Column
For i = dercol To 2 Step -1
On Error Resume Next
If Cells(1, i).Value <> [a1] Then Columns(i).Hidden = True
Next i
End If
Application.ScreenUpdating = True
End Sub
'--------------

--
Salutations
JJ


"Lulu" a écrit dans le message de news:
u1$Wj$
En fait la ligne 1 est une formule RECHERCHE si elle ne trouve pas elle
met #N/A
comme dans l'exemple ci-joint

http://www.cijoint.fr/cjlink.php?file=cj200908/cij2ObHtw4.xls

Luc


"Jacky" a écrit dans le message de news:
O7Ma$
Re...
Ama, il faut régler le problème en amont...
Met un exemple sur
http://www.cijoint.fr/
--
Salutations
JJ


"Lulu" a écrit dans le message de news:

Encore une petite question :

si dans la liste des fournisseurs sur la ligne 1, il y a #N/A, "erreur
d'exécution 13" imcompatiblité de type

est ce qu'on peut modifier la marcro ??

Merci d'avance

Luc

"Lulu" a écrit dans le message de news:

OK, merci JACKY (Grand Maître en la matière)

Evidemment ca marche.
Je vais essayer d'appliquer l'exemple sur d'autres fichiers en créant
l'onglet fournisseurs avec le nom adéquat
et en recopiant la macro (ou le charabia) dans l'onglet adéquat (un
jour
viendra : comment écrire dans visual ...)

Merci encore.
Bien cordialement
Luc


"Jacky" a écrit dans le message de news:
%
Bonsoir,
Mais je me rappelle Jacky, c'est toi qui m'avait donné le module


Alors dans ce cas.... et comme Philippe est en cours de reconversion.
Regarde ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijAKyAr3M.xls
--
Salutations
JJ


"Lulu" a écrit dans le message de news:
%
J'y arrive avec un peu de galère

Mais je me rappelle Jacky, c'est toi qui m'avait donné le module
avec la création d'un nom avec une formule DECALE ...puis création
de
la
liste

Ca revient, j'essaie de créer tout ca dans un nouveau fichier mais
des
fois ca plante dans la macro, il me dit aucune donnée pour le
fournisseur
!!!

Je vais y arriver

a+ et merci pour tout

Luc

"Jacky" a écrit dans le message de news:
%
Bonsoir,

Allez, Philippe un petit effort et tu lui renvoies son classeur
AVEC
la
liste de validation toute faite ;o))
http://www.youtube.com/watch?vð3KAiuMVRw
:o)))
--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de
news:
Re,
En A1, tu crées une liste de validation avec tes fournisseurs
(données /
validation / autoriser / liste /dans source, tu saisis la liste
des
fournisseurs en les séparant d'un point virgule)
Pour coller le code :
clic droit sur l'onglet de la feuille concernée / visualiser le
code
et
tu colles dans la fenêtre qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Philippe,

Merci de ta réponse rapide.
Je suppose qu'il faut ouvrir "visual basic" dans macro et là j'ai
insertion module et copier ce que tu m'as dit.
et après je ne sais pas ce qui se passe ?

en A1 je devrais avoir une petite flèche, si je choisis "fourn4"
il
me
masque toutes les colonnes sauf "fourn4" et la première liste des
produits.

Luc




"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de
news:
Bonjour,

Une piste supposant la valeur de la cellule a1 variant avec la
liste
déroulante ; tu colles ceci dans le module de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/08/2009
Application.ScreenUpdating = False
If Not Intersect(Target, Range("a1")) Is Nothing Then
dercol = Range("iv1").End(xlToLeft).Column
Range("a1:iv1").EntireColumn.Hidden = False
dercol = Range("iv1").End(xlToLeft).Column
For i = dercol To 2 Step -1
If Cells(1, i).Value <> [a1] Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
End If
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu" a écrit dans le message de
news:
Bonjour,

J'avais déjà poser la question et j'avais eu une excellente
réponse
mais je l'ai perdue

ci-joint l'exemple :
http://www.cijoint.fr/cjlink.php?file=cj200908/cijkCdgOue.xls

Merci d'avance pour vos lumières

Luc















































1 2