Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Masquer des lignes

Masquer des lignes

12 réponses
Avatar
Erico
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une liaisons
et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à
D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub
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
Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à
D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub



Avatar
Erico
Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à
D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub







Avatar
Daniel
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples du
contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à
D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub











Avatar
Erico
Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui est
écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples du
contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108
à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub















Avatar
Daniel
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui est
écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples du
contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108
à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub



















Avatar
Erico
ça s'En vient bien.

Il n'a pas de message d'erreur maintenant, mais il fonctionne seulement
quand les cellules sont vide
Comme je t'ai dit, mes cellules contiennent des liaisons comme
"=Annexe_1.1b!D19".

J'ai essayer de mettre zéro au lieu d'un espace vide et ça ne fonctionne pas
non plus.

Un grosssss merci.


"Daniel" a écrit dans le message de news:
%
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui
est écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples du
contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et
D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub























Avatar
Daniel
Regarde là :
http://cjoint.com/?gltpNFWxJQ
Daniel
"Erico" a écrit dans le message de news:

ça s'En vient bien.

Il n'a pas de message d'erreur maintenant, mais il fonctionne seulement
quand les cellules sont vide
Comme je t'ai dit, mes cellules contiennent des liaisons comme
"=Annexe_1.1b!D19".

J'ai essayer de mettre zéro au lieu d'un espace vide et ça ne fonctionne
pas non plus.

Un grosssss merci.


"Daniel" a écrit dans le message de news:
%
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"), Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui
est écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples
du contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et
D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub



























Avatar
Erico
ça ne fonctionne pas non plus

Je pense que tu as mal compris.

Je veux qu'il masque les cellules qui sont vide de réponse, pas celle qui
sont complètement vide (j'en ai pas)

comme la cellule D17 et D18 de ton exemple.



"Daniel" a écrit dans le message de news:
%
Regarde là :
http://cjoint.com/?gltpNFWxJQ
Daniel
"Erico" a écrit dans le message de news:

ça s'En vient bien.

Il n'a pas de message d'erreur maintenant, mais il fonctionne seulement
quand les cellules sont vide
Comme je t'ai dit, mes cellules contiennent des liaisons comme
"=Annexe_1.1b!D19".

J'ai essayer de mettre zéro au lieu d'un espace vide et ça ne fonctionne
pas non plus.

Un grosssss merci.


"Daniel" a écrit dans le message de news:
%
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui
est écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples
du contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et
D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub































Avatar
Daniel
Je ne comprends, ton code initial devait fonctionner :
http://cjoint.com/?glvkHETk2M
Daniel
"Erico" a écrit dans le message de news:

ça ne fonctionne pas non plus

Je pense que tu as mal compris.

Je veux qu'il masque les cellules qui sont vide de réponse, pas celle qui
sont complètement vide (j'en ai pas)

comme la cellule D17 et D18 de ton exemple.



"Daniel" a écrit dans le message de news:
%
Regarde là :
http://cjoint.com/?gltpNFWxJQ
Daniel
"Erico" a écrit dans le message de news:

ça s'En vient bien.

Il n'a pas de message d'erreur maintenant, mais il fonctionne seulement
quand les cellules sont vide
Comme je t'ai dit, mes cellules contiennent des liaisons comme
"=Annexe_1.1b!D19".

J'ai essayer de mettre zéro au lieu d'un espace vide et ça ne fonctionne
pas non plus.

Un grosssss merci.


"Daniel" a écrit dans le message de news:
%
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur qui
est écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des exemples
du contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et
D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub



































Avatar
Erico
Je l'ai trouvé, la voici....

Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D76:D101"), Range("D106:D126"),
Range("D132:D152"))
For Each c In Plage
If c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub




"Daniel" a écrit dans le message de news:
%
Je ne comprends, ton code initial devait fonctionner :
http://cjoint.com/?glvkHETk2M
Daniel
"Erico" a écrit dans le message de news:

ça ne fonctionne pas non plus

Je pense que tu as mal compris.

Je veux qu'il masque les cellules qui sont vide de réponse, pas celle qui
sont complètement vide (j'en ai pas)

comme la cellule D17 et D18 de ton exemple.



"Daniel" a écrit dans le message de news:
%
Regarde là :
http://cjoint.com/?gltpNFWxJQ
Daniel
"Erico" a écrit dans le message de news:

ça s'En vient bien.

Il n'a pas de message d'erreur maintenant, mais il fonctionne seulement
quand les cellules sont vide
Comme je t'ai dit, mes cellules contiennent des liaisons comme
"=Annexe_1.1b!D19".

J'ai essayer de mettre zéro au lieu d'un espace vide et ça ne
fonctionne pas non plus.

Un grosssss merci.


"Daniel" a écrit dans le message de news:
%
Voila ce que c'est de ne pas tester :
corrige :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
c.EntireRow.Hidden = True
End If
Next c
End Sub

Daniel
"Erico" a écrit dans le message de news:

Je pense que c'Est aucun rapport, il m'affiche un message d'Erreur
qui est écrit "400" seulement

=Annexe_1.1b!D19


"Daniel" a écrit dans le message de news:
%23L%
Bonjour.
Alors, je n'ai pas compris le sens de ton message. Donne des
exemples du contenu de tes cellules.
Daniel
"Erico" a écrit dans le message de news:

Ça ne fonctionne pas!!!!



"Daniel" a écrit dans le message de news:

Bonsoir.
Teste :

Sub Macro1()
Dim Plage As Range, c As Range
Set Plage = Union(Range("D17:D70"), Range("D74:D99"),
Range("D108:D117"))
For Each c In Plage
If c.Formula = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next c
End Sub

Cordialement.
Daniel
"Erico" a écrit dans le message de news:
%
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous
une liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et
D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub







































1 2