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
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
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
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8d5a9042-6902-42dd-97f4-832c648800f5@i76g2000hsf.googlegroups.com...
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
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
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
bonsoir
je n'y arrive pas ...
fréro
"frero" <frero@free.invalid.> a écrit dans le message de news:
%23S4AyMqvIHA.5472@TK2MSFTNGP06.phx.gbl...
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8d5a9042-6902-42dd-97f4-832c648800f5@i76g2000hsf.googlegroups.com...
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
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
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
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" <frero@free.invalid.> a écrit dans le message de
news:%23QvJyi3vIHA.3384@TK2MSFTNGP03.phx.gbl...
bonsoir
je n'y arrive pas ...
fréro
"frero" <frero@free.invalid.> a écrit dans le message de news:
%23S4AyMqvIHA.5472@TK2MSFTNGP06.phx.gbl...
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8d5a9042-6902-42dd-97f4-832c648800f5@i76g2000hsf.googlegroups.com...
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
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
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
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:%233rqGBDwIHA.3484@TK2MSFTNGP06.phx.gbl...
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" <frero@free.invalid.> a écrit dans le message de
news:%23QvJyi3vIHA.3384@TK2MSFTNGP03.phx.gbl...
bonsoir
je n'y arrive pas ...
fréro
"frero" <frero@free.invalid.> a écrit dans le message de news:
%23S4AyMqvIHA.5472@TK2MSFTNGP06.phx.gbl...
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8d5a9042-6902-42dd-97f4-832c648800f5@i76g2000hsf.googlegroups.com...
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
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
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
bonjour
ça marche
bonne journée
fréro
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%233rqGBDwIHA.3484@TK2MSFTNGP06.phx.gbl...
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" <frero@free.invalid.> a écrit dans le message de
news:%23QvJyi3vIHA.3384@TK2MSFTNGP03.phx.gbl...
bonsoir
je n'y arrive pas ...
fréro
"frero" <frero@free.invalid.> a écrit dans le message de news:
%23S4AyMqvIHA.5472@TK2MSFTNGP06.phx.gbl...
ou la la il va falloir que je réfléchisse...
merci de l'aide
fréro
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
8d5a9042-6902-42dd-97f4-832c648800f5@i76g2000hsf.googlegroups.com...
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" <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