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

Macro pour masquer ligne

27 réponses
Avatar
Aiwa
Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel
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 3
Avatar
Daniel
Bonjour.
Dans le code de la feuille, mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AV14,AV17,AV20")) _
Is Nothing Then Exit Sub
If Target = "" Then
Range(Target.Offset(-1, 0), Target.Offset(1, 0)) _
.EntireRow.Hidden = True
End If
End Sub

Cordialement.
Daniel
"Aiwa" a écrit dans le message de news:

Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel


Avatar
papou
Bonjour
Quel est le "déclencheur" de ton opération ?

Cordialement
Pascal

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

Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel


Avatar
Jacky
Bonjour, ceci peur-être
'-----------
Sub jj()
Application.ScreenUpdating = False
Rows("13:21").EntireRow.Hidden = False
If [av14] = "" Then Rows("13:15").EntireRow.Hidden = True
If [av17] = "" Then Rows("16:18").EntireRow.Hidden = True
If [av20] = "" Then Rows("19:21").EntireRow.Hidden = True
End Sub
'---------

--
Salutations
JJ



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

Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel


Avatar
Aiwa
Rebonjour
Ca fonctionne pas j'ai essayer la solution a Jacky et de Daniel
dans la cellule AY14 j'ai cette formule
SI(OU(G5<AL14;B5>AO14);"";SI(ET(G5>=AL14;G5<=AO14);G5;AO14))
ca peut-tu influencer


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel


Avatar
Daniel
Si tu as une formule en AV.., utilise la macro suivante :

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("AV14") = "" Then
Range("AV13:AV17").EntireRow.Hidden = True
Else
Range("AV13:AV17").EntireRow.Hidden = False
End If
If Range("AV17") = "" Then
Range("AV16:AV18").EntireRow.Hidden = True
Else
Range("AV16:AV18").EntireRow.Hidden = False
End If
If Range("AV20") = "" Then
Range("AV19:AV21").EntireRow.Hidden = True
Else
Range("AV19:AV21").EntireRow.Hidden = False
End If
Application.EnableEvents = True
End Sub

Cordialement.
"Aiwa" a écrit dans le message de news:

Rebonjour
Ca fonctionne pas j'ai essayer la solution a Jacky et de Daniel
dans la cellule AY14 j'ai cette formule
SI(OU(G5<AL14;B5>AO14);"";SI(ET(G5>=AL14;G5<=AO14);G5;AO14))
ca peut-tu influencer


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel




Avatar
Jacky
Re....
Ca fonctionne pas ....
regarde ici

http://cjoint.com/?ecpbUmgG4N
La demande initiale était pour:
Quand la cellule AV14 est vide.....
S'il y a une formule, elle doit comporter une condition ayant comme résultat


"" (entre autre)
Une formule dans AY14 n'a pas d'incidence
--
Salutations
JJ



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

Rebonjour
Ca fonctionne pas j'ai essayer la solution a Jacky et de Daniel
dans la cellule AY14 j'ai cette formule
SI(OU(G5<AL14;B5>AO14);"";SI(ET(G5>=AL14;G5<=AO14);G5;AO14))
ca peut-tu influencer


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel




Avatar
Aiwa
Rebonjour
J'inscrit ca dans Microsoft Excel Objets je sélectionne le nom de mon onglet
et je colle vos Macro, je ne comprend pas il n'y a aucune erreur mais les
ligne de son pas masquer?
J'ai tu inscrit la macro au bon endoit


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel


Avatar
Jacky
Re...
As-tu testé le fichier que je t'ai envoyé????

--
Salutations
JJ



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

Rebonjour
J'inscrit ca dans Microsoft Excel Objets je sélectionne le nom de mon
onglet
et je colle vos Macro, je ne comprend pas il n'y a aucune erreur mais les
ligne de son pas masquer?
J'ai tu inscrit la macro au bon endoit


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel




Avatar
Daniel
Clic droit sur l'onglet de la feuille, clic sur "visualiser le code".
Colle la macro dans la fenêtre qui vient de s'ouvrir.
Daniel
"Daniel" a écrit dans le message de news:

Si tu as une formule en AV.., utilise la macro suivante :

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("AV14") = "" Then
Range("AV13:AV17").EntireRow.Hidden = True
Else
Range("AV13:AV17").EntireRow.Hidden = False
End If
If Range("AV17") = "" Then
Range("AV16:AV18").EntireRow.Hidden = True
Else
Range("AV16:AV18").EntireRow.Hidden = False
End If
If Range("AV20") = "" Then
Range("AV19:AV21").EntireRow.Hidden = True
Else
Range("AV19:AV21").EntireRow.Hidden = False
End If
Application.EnableEvents = True
End Sub

Cordialement.
"Aiwa" a écrit dans le message de news:

Rebonjour
Ca fonctionne pas j'ai essayer la solution a Jacky et de Daniel
dans la cellule AY14 j'ai cette formule
SI(OU(G5<AL14;B5>AO14);"";SI(ET(G5>=AL14;G5<=AO14);G5;AO14))
ca peut-tu influencer


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire
dans une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel








Avatar
Aiwa
Oui Jacky j'ai testé ton fichier, ca marche sauf que tu a un bouton.
Moi j'ai pas créer de bouton, J'ai inscrit ta macro dans Microsoft Excel
Objets je sélectionne le nom de mon onglet et je colle ta Macro dans la parti
de droite, je ne comprend pas pourquoi il n'y a pas d'erreur et les ligne ne
sont pas masquer lorsque les cellule sont vide.


Re...
As-tu testé le fichier que je t'ai envoyé????

--
Salutations
JJ



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

Rebonjour
J'inscrit ca dans Microsoft Excel Objets je sélectionne le nom de mon
onglet
et je colle vos Macro, je ne comprend pas il n'y a aucune erreur mais les
ligne de son pas masquer?
J'ai tu inscrit la macro au bon endoit


Bonjour on ma répondu que pour masquer un ligne on peut pas le faire dans
une
formulaire mais bien avec une Macro, ma question est comment le faire,
voici un exemple.

Quand la cellule AV14 est vide masquer ligne 13-14-15
Quand la cellule AV17 est vide masquer ligne 16-17-18
Quand la cellule AV20 est vide masquer ligne 19-20-21

Merci à l'avance de votre aide habituel









1 2 3