Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel masquer si vide

masquer si vide

11 réponses
Avatar
Greg
Bonjour,

Quel code me permettrait de masquer automatiquement la ligne entière si les
cellules sont vides entre la colonne 2 (B) et la colonne 5 (E)?

Merci à vous.

Greg
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel.C
un exemple :

ligne = 5
If applicaation.CountA(Range(Cells(5, 2), Cells(5, 5))) = 0 Then
Rows(ligne).Hidden = True
End If

Daniel

Bonjour,

Quel code me permettrait de masquer automatiquement la ligne entière si les
cellules sont vides entre la colonne 2 (B) et la colonne 5 (E)?

Merci à vous.

Greg


Avatar
Greg
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







Avatar
Daniel.C
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









Avatar
Greg
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














Avatar
Daniel.C
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
















Avatar
Greg
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





















Avatar
Greg
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
























Avatar
Daniel.C
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


























Avatar
Greg
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






























Avatar
Daniel.C
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" 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
































1 2