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 ligne

Masquer ligne

12 réponses
Avatar
Érico
Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la ligne
meme chose pour D18 etc....

Merci
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
RV
Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la ligne
meme chose pour D18 etc....

Merci




Avatar
Érico
Comment mettre le reste des cellules comme (D74:D99 et D108:D117)



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

Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la
ligne
meme chose pour D18 etc....

Merci








Avatar
Érico
Ça ne fonctionne pas....



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

Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la
ligne
meme chose pour D18 etc....

Merci








Avatar
JLuc
*Bonjour Érico*,
Tu peux peut etre essayer :

For Each celule in Range("D17:D70,D74:D99,D108:D117")
...

Comment mettre le reste des cellules comme (D74:D99 et D108:D117)



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

Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la ligne
meme chose pour D18 etc....

Merci








--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
Fredo P
Un exemple ici
http://cjoint.com/?gjrFdQJDU0
"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la ligne
meme chose pour D18 etc....

Merci




Avatar
Érico
Woowwww! Ça marche en partie, sauf quant il y a une liaison et que le
résultat est o
Comment éliminé ceci?

gros merci

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

*Bonjour Érico*,
Tu peux peut etre essayer :

For Each celule in Range("D17:D70,D74:D99,D108:D117")
...

Comment mettre le reste des cellules comme (D74:D99 et D108:D117)



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

Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la
ligne
meme chose pour D18 etc....

Merci








--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
JLuc
*Bonjour Érico*,
Tester la valeur de la cellule !

Woowwww! Ça marche en partie, sauf quant il y a une liaison et que le
résultat est o
Comment éliminé ceci?

gros merci

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

*Bonjour Érico*,
Tu peux peut etre essayer :

For Each celule in Range("D17:D70,D74:D99,D108:D117")
...

Comment mettre le reste des cellules comme (D74:D99 et D108:D117)



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

Bonjour Erico,
Voici ce je que je propose avec mes maigres connaissances pour la 1ère
boucle (à mettre dans un module commun):

Sub Macro1()

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

End Sub

En faire autant pour les autres.
Bonne soirée
RV


"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la
ligne
meme chose pour D18 etc....

Merci








-- ____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
Érico
Ton fichier jointe ne fonctionne pas bien.


"Fredo P" a écrit dans le message de news:

Un exemple ici
http://cjoint.com/?gjrFdQJDU0
"Érico" a écrit dans le message de news:

Bonjour,

Est-ce possible avoir une macro qui analyse chaque ligne de (D17:D70 et
D74:D99 et D108:D117)

Si la cellule de D17 est vide du résultat de liaisons, de masquer la
ligne
meme chose pour D18 etc....

Merci








Avatar
Fredo P
Crée 2 boutons ,une pour chaque proc suivantes
copie tout dans module .
Public Sub Masque()
MsQ True
End Sub

Public Sub DeMasque()
MsQ False
End Sub

Public Sub MsQ(Bol As Boolean)
Application.ScreenUpdating = False
Dim ColD As Range, C As Object, Lg#
Lg = Range("D65536").End(3).Row
Set ColD = Range("D1:D" & Lg)
ColD.Select
For Each C In ColD
If C.Value = "" Then
Rows(C.Row).EntireRow.Hidden = Bol
End If
Next
End Sub
Avatar
Fredo P
Masquer Démasquer suivant conditions
http://cjoint.com/?gjukkU2UoN
1 2