Sub test() For ligne = 5 To 100 txt = "" For i = 2 To 5 txt = txt & Cells(ligne, i) Next i If txt = "" Then Rows(ligne).Hidden = True End If Next End Sub
Daniel
Désolé Daniel mais toutes les ligne se masquent, quelque soit le contenu... même avec ce dernier code.
"Daniel.C" a écrit dans le message de news:
Sub test() For ligne = 5 To 100 If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then If IsError(Application.Match(0, Range(Cells(ligne, 2), _ Cells(ligne, 5)), 0)) Then Rows(ligne).Hidden = True End If End If Next End Sub
Daniel
Au cas où, voici mon fichier d'essai: http://cjoint.com/?ddnrdL0NEl
"Greg" a écrit dans le message de news:%
Il m'efface tout le vilain... cellule=0 ou pas...
"Daniel.C" a écrit dans le message de news:
Essaie :
Sub test() For ligne = 5 To 100 If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then If IsError(Application.Match(txt, Range(Cells(ligne, 2), _ Cells(ligne, 5)), 0)) Then Rows(ligne).Hidden = True End If End If Next End Sub
Daniel
Merci Daniel,
Ca fonctionne bien sur une cellule classique. Par contre, mes cellules sont le résultat d'une formule qui fait référence à une autre feuille:
Exemple en A5:
=SI(Feuil1!A5=0;"";Feuil1!A5)
.... et là, ça ne marche pas. Peut-être aurais-je dû commencer par là.
Autre question: que faut-il écrire à côté de ligne= ? pour qu'il prenne en compte de la ligne 5 à la ligne 100 par exemple?
Merci
Greg
"Daniel.C" a écrit dans le message de news:
Au temps pour moi : Application.CountA pas : Applicaation.CountA
Daniel
Bonjour Daniel et merci pour ta réponse,
Lorsque j'utilise ce code, il me répond "Objet requis". M'y prends-je mal?
Greg
si les
cellules sont vides entre la colonne 2 (B) et la colonne 5 (E)?
Merci à vous.
Greg
Ah que oui!
Merci Daniel!!!
Greg
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:O8D7VXuuKHA.6124@TK2MSFTNGP04.phx.gbl...
Quand ça ne veux pas rire...
Essaie :
Sub test()
For ligne = 5 To 100
txt = ""
For i = 2 To 5
txt = txt & Cells(ligne, i)
Next i
If txt = "" Then
Rows(ligne).Hidden = True
End If
Next
End Sub
Daniel
Désolé Daniel mais toutes les ligne se masquent, quelque soit le
contenu... même avec ce dernier code.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OJzq17suKHA.3408@TK2MSFTNGP06.phx.gbl...
Sub test()
For ligne = 5 To 100
If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then
If IsError(Application.Match(0, Range(Cells(ligne, 2), _
Cells(ligne, 5)), 0)) Then
Rows(ligne).Hidden = True
End If
End If
Next
End Sub
Daniel
Au cas où, voici mon fichier d'essai: http://cjoint.com/?ddnrdL0NEl
"Greg" <debutant@free.fr> a écrit dans le message de
news:%23iZHlosuKHA.3896@TK2MSFTNGP02.phx.gbl...
Il m'efface tout le vilain... cellule=0 ou pas...
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:erdCRcsuKHA.4464@TK2MSFTNGP04.phx.gbl...
Essaie :
Sub test()
For ligne = 5 To 100
If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then
If IsError(Application.Match(txt, Range(Cells(ligne, 2), _
Cells(ligne, 5)), 0)) Then
Rows(ligne).Hidden = True
End If
End If
Next
End Sub
Daniel
Merci Daniel,
Ca fonctionne bien sur une cellule classique. Par contre, mes
cellules sont le résultat d'une formule qui fait référence à une
autre feuille:
Exemple en A5:
=SI(Feuil1!A5=0;"";Feuil1!A5)
.... et là, ça ne marche pas. Peut-être aurais-je dû commencer par
là.
Autre question: que faut-il écrire à côté de ligne= ? pour qu'il
prenne en compte de la ligne 5 à la ligne 100 par exemple?
Merci
Greg
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OixNVEsuKHA.4636@TK2MSFTNGP06.phx.gbl...
Au temps pour moi :
Application.CountA
pas :
Applicaation.CountA
Daniel
Bonjour Daniel et merci pour ta réponse,
Lorsque j'utilise ce code, il me répond "Objet requis". M'y
prends-je mal?
Greg
si les
cellules sont vides entre la colonne 2 (B) et la colonne 5 (E)?
Sub test() For ligne = 5 To 100 txt = "" For i = 2 To 5 txt = txt & Cells(ligne, i) Next i If txt = "" Then Rows(ligne).Hidden = True End If Next End Sub
Daniel
Désolé Daniel mais toutes les ligne se masquent, quelque soit le contenu... même avec ce dernier code.
"Daniel.C" a écrit dans le message de news:
Sub test() For ligne = 5 To 100 If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then If IsError(Application.Match(0, Range(Cells(ligne, 2), _ Cells(ligne, 5)), 0)) Then Rows(ligne).Hidden = True End If End If Next End Sub
Daniel
Au cas où, voici mon fichier d'essai: http://cjoint.com/?ddnrdL0NEl
"Greg" a écrit dans le message de news:%
Il m'efface tout le vilain... cellule=0 ou pas...
"Daniel.C" a écrit dans le message de news:
Essaie :
Sub test() For ligne = 5 To 100 If Application.Max(Range(Cells(ligne, 2), Cells(ligne, 5))) = 0 Then If IsError(Application.Match(txt, Range(Cells(ligne, 2), _ Cells(ligne, 5)), 0)) Then Rows(ligne).Hidden = True End If End If Next End Sub
Daniel
Merci Daniel,
Ca fonctionne bien sur une cellule classique. Par contre, mes cellules sont le résultat d'une formule qui fait référence à une autre feuille:
Exemple en A5:
=SI(Feuil1!A5=0;"";Feuil1!A5)
.... et là, ça ne marche pas. Peut-être aurais-je dû commencer par là.
Autre question: que faut-il écrire à côté de ligne= ? pour qu'il prenne en compte de la ligne 5 à la ligne 100 par exemple?
Merci
Greg
"Daniel.C" a écrit dans le message de news:
Au temps pour moi : Application.CountA pas : Applicaation.CountA
Daniel
Bonjour Daniel et merci pour ta réponse,
Lorsque j'utilise ce code, il me répond "Objet requis". M'y prends-je mal?
Greg
si les
cellules sont vides entre la colonne 2 (B) et la colonne 5 (E)?