Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
on peut y arriver -- 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 "j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
on peut y arriver
--
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
"j-pascal" <messages@venir.com> a écrit dans le message de
news:mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
on peut y arriver -- 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 "j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Youky
Une solution Youky
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
Une solution
Youky
If Application.CountA([D:E]) = 0 Then
Columns("D:E").Hidden = True
Else
Columns("D:E").Hidden = False
End If
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
Mgr.Abile
Bonsoir mon fils, Je crois que ce sont les lignes que veux masquer le questionneur, pas les colonnes, non ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Youky" a écrit dans le message de news:
Une solution Youky
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
Bonsoir mon fils,
Je crois que ce sont les lignes que veux masquer le questionneur, pas les
colonnes, non ?
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de
news:OZzfmrSPJHA.1164@TK2MSFTNGP03.phx.gbl...
Une solution
Youky
If Application.CountA([D:E]) = 0 Then
Columns("D:E").Hidden = True
Else
Columns("D:E").Hidden = False
End If
Bonsoir mon fils, Je crois que ce sont les lignes que veux masquer le questionneur, pas les colonnes, non ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Youky" a écrit dans le message de news:
Une solution Youky
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
Youky
Aie,aie aie... Je vais de ce pas à confesse . . . . Youky "Mgr.Abile" a écrit dans le message de news:
Bonsoir mon fils, Je crois que ce sont les lignes que veux masquer le questionneur, pas les colonnes, non ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Youky" a écrit dans le message de news:
Une solution Youky
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
Aie,aie aie...
Je vais de ce pas à confesse . . . .
Youky
"Mgr.Abile" <Abile@lacurie.va> a écrit dans le message de news:
uN4r5FTPJHA.4576@TK2MSFTNGP03.phx.gbl...
Bonsoir mon fils,
Je crois que ce sont les lignes que veux masquer le questionneur, pas les
colonnes, non ?
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de
news:OZzfmrSPJHA.1164@TK2MSFTNGP03.phx.gbl...
Une solution
Youky
If Application.CountA([D:E]) = 0 Then
Columns("D:E").Hidden = True
Else
Columns("D:E").Hidden = False
End If
Aie,aie aie... Je vais de ce pas à confesse . . . . Youky "Mgr.Abile" a écrit dans le message de news:
Bonsoir mon fils, Je crois que ce sont les lignes que veux masquer le questionneur, pas les colonnes, non ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Youky" a écrit dans le message de news:
Une solution Youky
If Application.CountA([D:E]) = 0 Then Columns("D:E").Hidden = True Else Columns("D:E").Hidden = False End If
j-pascal
> Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
> Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce
qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E])
mais je ne sais pas comment le combiner avec les variables "i"
> Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Jacky
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ?
Ou alors, j'ai pas compris :o((
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1a497d8b8b3300ab.81386@venir.com...
Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce
qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E])
mais je ne sais pas comment le combiner avec les variables "i"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
j-pascal
> Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
> Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ?
Ou alors, j'ai pas compris :o((
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1a497d8b8b3300ab.81386@venir.com...
Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui
semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E])
mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage,
soit plutôt de D à Z.
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
Jacky
Re...
soit plutôt de D à Z.
'---------------- Sub jj() Application.ScreenUpdating = False Rows("1:50").Hidden = False For i = 50 To 1 Step -1 If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then Rows(i).Hidden = True Next End Sub '-----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
Re...
soit plutôt de D à Z.
'----------------
Sub jj()
Application.ScreenUpdating = False
Rows("1:50").Hidden = False
For i = 50 To 1 Step -1
If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then
Rows(i).Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1aa37d8b0d445f56.81386@venir.com...
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ?
Ou alors, j'ai pas compris :o((
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1a497d8b8b3300ab.81386@venir.com...
Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce
qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E])
mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit
plutôt de D à Z.
'---------------- Sub jj() Application.ScreenUpdating = False Rows("1:50").Hidden = False For i = 50 To 1 Step -1 If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then Rows(i).Hidden = True Next End Sub '-----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
j-pascal
> Re...
soit plutôt de D à Z.
'---------------- Sub jj() Application.ScreenUpdating = False Rows("1:50").Hidden = False For i = 50 To 1 Step -1 If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then Rows(i).Hidden = True Next End Sub '-----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
Merci, c'est parfait ! Pourquoi fais-tu une boucle à partir de la dernière ligne et non de la première ?
jp
> Re...
soit plutôt de D à Z.
'----------------
Sub jj()
Application.ScreenUpdating = False
Rows("1:50").Hidden = False
For i = 50 To 1 Step -1
If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then
Rows(i).Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1aa37d8b0d445f56.81386@venir.com...
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ?
Ou alors, j'ai pas compris :o((
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1a497d8b8b3300ab.81386@venir.com...
Bonsoir
par exemple:
'------------------
Sub jj()
For i = 50 To 1 Step -1
If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True
Next
End Sub
'------------------
--
Salutations
JJ
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.14e87d8bcc2c0fbf.81386@venir.com...
Bonjour,
(En vba)
Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les
colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce
qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E])
mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit
plutôt de D à Z.
Mille pardons ;-(
JP
Merci, c'est parfait !
Pourquoi fais-tu une boucle à partir de la dernière ligne et non de la
première ?
'---------------- Sub jj() Application.ScreenUpdating = False Rows("1:50").Hidden = False For i = 50 To 1 Step -1 If Application.CountBlank(Range(Cells(i, 4), Cells(i, 26))) = 23 Then Rows(i).Hidden = True Next End Sub '-----------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Re...
.....mais j'ai précisé "à" et non pas "et"
De la colonne D à la colonne E c'est bien D et E non ? Ou alors, j'ai pas compris :o((
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonsoir par exemple: '------------------ Sub jj() For i = 50 To 1 Step -1 If Cells(i, 4) & Cells(i, 5) = "" Then Rows(i).Hidden = True Next End Sub '------------------
-- Salutations JJ
"j-pascal" a écrit dans le message de news:
Bonjour,
(En vba) Sur un tableau de 50 lignes, comment puis-je masquer les lignes si les colonnes D à E ne contiennent aucune saisie (chiffre ou lettre) ?
Merci pour vos lumières,
JP
Bonjour,
Merci pour cette proposition, mais j'ai précisé "à" et non pas "et" (ce qui semble être le cas pour ce code).
Je pensais intégrer qqch comme : If Application.CountA([D:E]) mais je ne sais pas comment le combiner avec les variables "i"
@+ ?
JP
Désolé, vraiment ...
En fait, j'ai pris un exemple ambigü ! Je voulais dire sur une plage, soit plutôt de D à Z.
Mille pardons ;-(
JP
Merci, c'est parfait ! Pourquoi fais-tu une boucle à partir de la dernière ligne et non de la première ?