Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de news:
5613F78D-AFB1-430C-9AE0-6B6ACCC20AA9@microsoft.com...
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En fait
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
5613F78D-AFB1-430C-9AE0-6B6ACCC20AA9@microsoft.com...
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de news:
55F15F2D-9F7B-4EF3-9431-C2EC6D3AB040@microsoft.com...
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En fait
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
5613F78D-AFB1-430C-9AE0-6B6ACCC20AA9@microsoft.com...
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
TechbmRe....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message
de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
Techbm
Re....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
55F15F2D-9F7B-4EF3-9431-C2EC6D3AB040@microsoft.com...
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En fait
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
5613F78D-AFB1-430C-9AE0-6B6ACCC20AA9@microsoft.com...
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message
de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
TechbmRe....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message
de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Cette instruction doit être saisie sur une seule ligne
****** If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True******
C'est le lecteur de News qui coupe les lignes
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
TechbmRe....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message
de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Cette instruction doit être saisie sur une seule ligne
****** If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True******
C'est le lecteur de News qui coupe les lignes
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de news:
89DDBF88-9703-4AD3-9988-4934966B136F@microsoft.com...
Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
Techbm
Re....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
55F15F2D-9F7B-4EF3-9431-C2EC6D3AB040@microsoft.com...
Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En fait
Re...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message de
news:
5613F78D-AFB1-430C-9AE0-6B6ACCC20AA9@microsoft.com...
Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBM
Bonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" <TECHBM@discussions.microsoft.com> a écrit dans le message
de
news:
143C2E4F-3FF7-4B0C-B465-EC80B89CCCAC@microsoft.com...
Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM
Re....
Cette instruction doit être saisie sur une seule ligne
****** If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True******
C'est le lecteur de News qui coupe les lignes
--
Salutations
JJ
"TECHBM" a écrit dans le message de news:Bonjours Jacky !
Je suis désolé mais il y a une erreur qui se produit lors du lancement de
la macro.
l'erreur est : " Erreur de compilation: Next sans For "
Merci
TechbmRe....
Bon....
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountBlank(Range(Cells(i, 2), Cells(i, 9))) = 8 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Ok !! Par contre je me suis mal exprimé !
En fait je vous ai envoyé un exemple de tableau mais en fait ce que je
voudrais c'est qu'a partir du moment ou il y quelquechose dans une case
il
ne
maque pas la ligne conçernée.
Merci !!
En faitRe...
Ok! ,remplace
'----------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'--------------
Par:
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountIf(Range(Cells(i, 2), Cells(i, 9)), "oui") = 0
Then
Rows(i).Hidden = True
Next
End Sub
'--------------
--
Salutations
JJ
"TECHBM" a écrit dans le message de
news:Bonjours Jacky !!!
Ta macro fonctionne à merveille !!!
Ceci dit j'ai encore un petit problème ! En fait les oui qui sont
dans
mon
tableau sont mis par le biais d'un autre classeur. Je te fais
parvenir
les
2
fichiers pour que tu comprennes mieux.
http://www.cijoint.fr/cjlink.php?file=cj200804/cijq9fVKS0.zip.
Merci pour ton aide !
TECHBMBonsoir,
'------------
Sub jj()
For i = [a65536].End(3).Row To 5 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 9))) = 0 Then
Rows(i).Hidden = True
Next
End Sub
'---------------
Voir ici
http://cjoint.com/?ehu5DSaquh
--
Salutations
JJ
"TECHBM" a écrit dans le message
de
news:Bonjours à tous !!
Je souhaiterais masquer des lignes apres avoir verifier dans mon
tableau
si
il y a
des choses dans mes cases !!
Je vous fais parvenir un fichier afin de voir ce que je
souhaiterais
obtenir
!!
http://www.cijoint.fr/cjlink.php?file=cj200804/cijBbQSDCp.xls
Merci de votre aide
Tech BM