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

7 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. Jacky n'a pas l'air à l'écoute...
Pourquoi mets-tu " " qui signifie "je mets un espace", au lieu de mettre ""
qui signifie "je ne mets rien car c'est ce que la macro attend" ?
AV14 = =si(AV8="";"";AV8)
et les autres à l'avenant.
Daniel
"Aiwa" a écrit dans le message de news:

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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
































Avatar
Aiwa
Re..
j'ai corriger les " " par "" et ca marche toujours pas cest tu acause du
format de date jj-mmm-aa ?


Bonjour. Jacky n'a pas l'air à l'écoute...
Pourquoi mets-tu " " qui signifie "je mets un espace", au lieu de mettre ""
qui signifie "je ne mets rien car c'est ce que la macro attend" ?
AV14 = =si(AV8="";"";AV8)
et les autres à l'avenant.
Daniel
"Aiwa" a écrit dans le message de news:

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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





































Avatar
Jacky
Re...
Il y a tout de même quelque chose qui m'échappe.
Tout ces contrôles:
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)
Sont identiques et ont comme référence la cellule AV8

C'est bien cela ???
Si oui le code serait:
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av8")) Is Nothing Then
Application.ScreenUpdating = False
Rows("13:21").EntireRow.Hidden = False
If [av8] = "" Then Rows("13:21").EntireRow.Hidden = True
End If
End Sub
'----------
Si non, une copie de ton fichier sur
http://cjoint.com/


--
Salutations
JJ


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

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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
































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

Re..
j'ai corriger les " " par "" et ca marche toujours pas cest tu acause du
format de date jj-mmm-aa ?


Bonjour. Jacky n'a pas l'air à l'écoute...
Pourquoi mets-tu " " qui signifie "je mets un espace", au lieu de mettre
""
qui signifie "je ne mets rien car c'est ce que la macro attend" ?
AV14 = =si(AV8="";"";AV8)
et les autres à l'avenant.
Daniel
"Aiwa" a écrit dans le message de news:

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon
fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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







































Avatar
Daniel
Bonjour.
La cavalerie est enfin arrivée ;-)))
Daniel
"Jacky" a écrit dans le message de news:

Re...
Il y a tout de même quelque chose qui m'échappe.
Tout ces contrôles:
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)
Sont identiques et ont comme référence la cellule AV8

C'est bien cela ???
Si oui le code serait:
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av8")) Is Nothing Then
Application.ScreenUpdating = False
Rows("13:21").EntireRow.Hidden = False
If [av8] = "" Then Rows("13:21").EntireRow.Hidden = True
End If
End Sub
'----------
Si non, une copie de ton fichier sur
http://cjoint.com/


--
Salutations
JJ


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

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon
fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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




































Avatar
Aiwa
Merci beaucoup a vous deux de votre aide et votre patience
ca fonctionne maintenant
Merci



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

Re..
j'ai corriger les " " par "" et ca marche toujours pas cest tu acause du
format de date jj-mmm-aa ?


Bonjour. Jacky n'a pas l'air à l'écoute...
Pourquoi mets-tu " " qui signifie "je mets un espace", au lieu de mettre
""
qui signifie "je ne mets rien car c'est ce que la macro attend" ?
AV14 = =si(AV8="";"";AV8)
et les autres à l'avenant.
Daniel
"Aiwa" a écrit dans le message de news:

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon
fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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












































Avatar
Aiwa
Oups encore une petite chose, les lignes que je masque sont vérouiller,
comment inscrire le Unprotect et le Protect dans ma macro
Voici ma macro original

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5,av14,av17,av20")) Is Nothing Then
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 If
End Sub





Bonjour.
La cavalerie est enfin arrivée ;-)))
Daniel
"Jacky" a écrit dans le message de news:

Re...
Il y a tout de même quelque chose qui m'échappe.
Tout ces contrôles:
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)
Sont identiques et ont comme référence la cellule AV8

C'est bien cela ???
Si oui le code serait:
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av8")) Is Nothing Then
Application.ScreenUpdating = False
Rows("13:21").EntireRow.Hidden = False
If [av8] = "" Then Rows("13:21").EntireRow.Hidden = True
End If
End Sub
'----------
Si non, une copie de ton fichier sur
http://cjoint.com/


--
Salutations
JJ


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

Re...
J'ai essayer ton fichier et sa marche pour qu'il soit semble a mon
fichier
j'ai ajouter ceci, et ca fonctionne pas ?

AV8 = format jj-mmm-aa
AV14 = =si(AV8="";" ";AV8)
AV17 = =si(AV8="";" ";AV8)
AV20 = =si(AV8="";" ";AV8)


Merci encore de ton aide



Re...
Aucune erreur mais rien ce passer


Regarde ici:
http://cjoint.com/?ecwDH00tcV

--
Salutations
JJ



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

Re...
Aucune erreur mais rien ce passer


Re....
Alt+f11 et coller ceci dans la fenêtre de droite
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("av14,av17,av20")) Is Nothing Then
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 If
End Sub
'----------------


--
Salutations
JJ



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

Re....
La macro doit toujours etre actif donc aussitot que
AV14 est vide masquer ligne 13-14-15
AV17 est vide masquer ligne 16-17-18
Av20 est vide masquer ligne 19-20-21


Merci encore de ton aide et ta patience


Re...
Alors je repose la question de Papou.
A quel moment la macro doit elle se lancer ??

--
Salutations
JJ



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

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