J'aimerais savoir s'il existe une formule qui fait la m=EAme=20
chose mais lorsque le r=E9sultat est z=E9ro.
En fait dans mes cellules A1 =E0 A10 j'ai des formules qui=20
donnent parfois z=E9ro et qui font en sorte que la formule=20
ci-haut mentionn=E9e ne fonctionne pas.
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
michdenis
Bonjour Roxanne,
Essaie ceci :
Adapte le nom de la feuille et de la plage de cellules '------------------------ With Worksheets("Feuil1") Dim Rg as Range On error resume next Set rg = Union(.Range("A1:A10"). _ SpecialCells(xlCellTypeConstants, xlNumbers), _ .Range("A1:A10").SpecialCells(xlCellTypeFormulas)) For Each c In rg If c = 0 Then If c <> "" Then c.EntireRow.Hidden = True End If End If Next End With Set Rg = Nothing '------------------------
Salutations!
"ROXANNE" a écrit dans le message de news:1c62701c452d0$6d2edf00$ Bonjour,
On m'avait déjà donné la formule suivante afin de masquer les lignes dont une cellule donnée était vide :
J'aimerais savoir s'il existe une formule qui fait la même chose mais lorsque le résultat est zéro.
En fait dans mes cellules A1 à A10 j'ai des formules qui donnent parfois zéro et qui font en sorte que la formule ci-haut mentionnée ne fonctionne pas.
Merci de bien vouloir me venir en aide.
RORO
Bonjour Roxanne,
Essaie ceci :
Adapte le nom de la feuille et de la plage de cellules
'------------------------
With Worksheets("Feuil1")
Dim Rg as Range
On error resume next
Set rg = Union(.Range("A1:A10"). _
SpecialCells(xlCellTypeConstants, xlNumbers), _
.Range("A1:A10").SpecialCells(xlCellTypeFormulas))
For Each c In rg
If c = 0 Then
If c <> "" Then
c.EntireRow.Hidden = True
End If
End If
Next
End With
Set Rg = Nothing
'------------------------
Salutations!
"ROXANNE" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1c62701c452d0$6d2edf00$a301280a@phx.gbl...
Bonjour,
On m'avait déjà donné la formule suivante afin de masquer
les lignes dont une cellule donnée était vide :
J'aimerais savoir s'il existe une formule qui fait la même
chose mais lorsque le résultat est zéro.
En fait dans mes cellules A1 à A10 j'ai des formules qui
donnent parfois zéro et qui font en sorte que la formule
ci-haut mentionnée ne fonctionne pas.
Adapte le nom de la feuille et de la plage de cellules '------------------------ With Worksheets("Feuil1") Dim Rg as Range On error resume next Set rg = Union(.Range("A1:A10"). _ SpecialCells(xlCellTypeConstants, xlNumbers), _ .Range("A1:A10").SpecialCells(xlCellTypeFormulas)) For Each c In rg If c = 0 Then If c <> "" Then c.EntireRow.Hidden = True End If End If Next End With Set Rg = Nothing '------------------------
Salutations!
"ROXANNE" a écrit dans le message de news:1c62701c452d0$6d2edf00$ Bonjour,
On m'avait déjà donné la formule suivante afin de masquer les lignes dont une cellule donnée était vide :
J'aimerais savoir s'il existe une formule qui fait la même chose mais lorsque le résultat est zéro.
En fait dans mes cellules A1 à A10 j'ai des formules qui donnent parfois zéro et qui font en sorte que la formule ci-haut mentionnée ne fonctionne pas.