Macro pour masquer ligne

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4314341
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"
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


papou
Le #4314331
Bonjour
Quel est le "déclencheur" de ton opération ?

Cordialement
Pascal

"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


Jacky
Le #4314321
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"
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


Aiwa
Le #4314311
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


Daniel
Le #4314241
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"
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




Jacky
Le #4314221
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"
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




Aiwa
Le #4313981
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


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

--
Salutations
JJ



"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




Daniel
Le #4313871
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"
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"
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








Aiwa
Le #4313721
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"
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









Publicité
Poster une réponse
Anonyme