comment masquer une ligne suite a une action

6 réponses

frero

25/05/2008 à 19:59

re bonjour
encore moi
je cherche un moyen simple pour masquer les lignes d'un tableau fait sous
Excel après confirmation d'une action :
cocher une case dans une colonne ou mettre une lettre "x" par exemple .
le résulta me permettrai d'évaluer le travail qui reste à faire
par avance merci de votre aide
fréro

6 réponses

francois.forcet

25/05/2008 à 20:36

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

frero

25/05/2008 à 22:09

ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
a écrit dans le message de news:

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

frero

26/05/2008 à 23:37

bonsoir
je n'y arrive pas ...
fréro
"frero" a écrit dans le message de news:
%

ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
a écrit dans le message de news:

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

Philippe.R

27/05/2008 à 21:31

Bonsoir,
Supposons que la cellule dans laquelle tu places un X pour valider soit la
conne E de ta feuille
Tu cliques droit sur l'onglet de ladite feuille, choisis "Visualiser le
code" et colles le code qui suit dans le module qui vient de s'ouvrir :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e:e")) Is Nothing _
And Target.Value = "x" Then
Target.EntireRow.Hidden = True
End If
End Sub

si c'est une autre colonne, tu changes la lettre e pour la bonne dans :
Range("e:e")
--
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
"frero" a écrit dans le message de
news:%

bonsoir
je n'y arrive pas ...
fréro
"frero" a écrit dans le message de news:
%
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
a écrit dans le message de news:

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

Philippe.R

27/05/2008 à 21:59

On aura lu colonne et non conne !
;o))) bien sur
--
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
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:%

Bonsoir,
Supposons que la cellule dans laquelle tu places un X pour valider soit la
conne E de ta feuille
Tu cliques droit sur l'onglet de ladite feuille, choisis "Visualiser le
code" et colles le code qui suit dans le module qui vient de s'ouvrir :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e:e")) Is Nothing _
And Target.Value = "x" Then
Target.EntireRow.Hidden = True
End If
End Sub

si c'est une autre colonne, tu changes la lettre e pour la bonne dans :
Range("e:e")
--
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
"frero" a écrit dans le message de
news:%
bonsoir
je n'y arrive pas ...
fréro
"frero" a écrit dans le message de news:
%
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
a écrit dans le message de news:

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

frero

28/05/2008 à 09:33

bonjour
ça marche
bonne journée
fréro

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

Bonsoir,
Supposons que la cellule dans laquelle tu places un X pour valider soit la
colonne E de ta feuille
Tu cliques droit sur l'onglet de ladite feuille, choisis "Visualiser le
code" et colles le code qui suit dans le module qui vient de s'ouvrir :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e:e")) Is Nothing _
And Target.Value = "x" Then
Target.EntireRow.Hidden = True
End If
End Sub

si c'est une autre colonne, tu changes la lettre e pour la bonne dans :
Range("e:e")
--
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
"frero" a écrit dans le message de
news:%
bonsoir
je n'y arrive pas ...
fréro
"frero" a écrit dans le message de news:
%
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
a écrit dans le message de news:

Salut frero
Colonne R par exemple onglet Feuil1 ce code masque les lignes dont les
cellules ont "x" à partir de la ligne 2 :

For Each c In Worksheets("Feuil1").Range("R2", "R" &
Range("R65535").End(xlUp).Row)
If c = "x" Then
c.EntireRow.Hidden = True
End If
Next

comment masquer une ligne suite a une action

6 réponses

Veuillez sélectionner un problème