Mettons que les lignes 22 à 33 sont masquées.
Si l'utilisateur remplis la cellule B21, la ligne 22 étant masquer devient
affiché
Même chose pour la cellule B22, si elle est autre que vide, fais afficher la
ligne suivante (23).
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
molecule
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
Érico
Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
Érico
Ça ne fonctionne pas!!!!
"Érico" a écrit dans le message de news:%23%
Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
Ça ne fonctionne pas!!!!
"Érico" <hahaha@videotron.ca> a écrit dans le message de
news:%23%23KLaTFFFHA.228@TK2MSFTNGP15.phx.gbl...
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
molecule
Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
Erico,
disons que,
"Si l'utilisateur remplit la cellule B21, la ligne 22
étant masquée devient affichée
Même chose pour la cellule B22, si elle est autre que
vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message-----
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans
le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
Érico
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
est-ce que je dois modifier ta macro?
Elle ne fonctionne pas.
"molecule" <molecule@molecule.com> a écrit dans le message de
news:230a01c51457$73e5afb0$a501280a@phx.gbl...
Erico,
disons que,
"Si l'utilisateur remplit la cellule B21, la ligne 22
étant masquée devient affichée
Même chose pour la cellule B22, si elle est autre que
vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message-----
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans
le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
Philippe.R
Bonsoir, Est ce qu'ainsi :
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Target.Column = 2 And Target.Value <> "" Then If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End If End Sub
cela convient mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Érico" a écrit dans le message de news:
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
Bonsoir,
Est ce qu'ainsi :
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Target.Column = 2 And Target.Value <> "" Then
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End If
End Sub
cela convient mieux ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Érico" <hahaha@videotron.ca> a écrit dans le message de news: O2bS0oFFFHA.2572@tk2msftngp13.phx.gbl...
est-ce que je dois modifier ta macro?
Elle ne fonctionne pas.
"molecule" <molecule@molecule.com> a écrit dans le message de
news:230a01c51457$73e5afb0$a501280a@phx.gbl...
Erico,
disons que,
"Si l'utilisateur remplit la cellule B21, la ligne 22
étant masquée devient affichée
Même chose pour la cellule B22, si elle est autre que
vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message-----
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans
le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Target.Column = 2 And Target.Value <> "" Then If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End If End Sub
cela convient mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Érico" a écrit dans le message de news:
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
Érico
ça fonctionne oui.
Sauf que, quand j'ai plusieurs lignes à copier et les coller là, il y a un bogue
la ligne suivante est jaune.... If Target.Column = 2 And Target.Value <> "" Then
Merci
"Philippe.R" a écrit dans le message de news:%
Bonsoir, Est ce qu'ainsi :
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Target.Column = 2 And Target.Value <> "" Then If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End If End Sub
cela convient mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Érico" a écrit dans le message de news:
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
amicalement
.
ça fonctionne oui.
Sauf que, quand j'ai plusieurs lignes à copier et les coller là, il y a un
bogue
la ligne suivante est jaune....
If Target.Column = 2 And Target.Value <> "" Then
Merci
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%232a03vGFFHA.3648@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Est ce qu'ainsi :
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Target.Column = 2 And Target.Value <> "" Then
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End If
End Sub
cela convient mieux ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O2bS0oFFFHA.2572@tk2msftngp13.phx.gbl...
est-ce que je dois modifier ta macro?
Elle ne fonctionne pas.
"molecule" <molecule@molecule.com> a écrit dans le message de
news:230a01c51457$73e5afb0$a501280a@phx.gbl...
Erico,
disons que,
"Si l'utilisateur remplit la cellule B21, la ligne 22
étant masquée devient affichée
Même chose pour la cellule B22, si elle est autre que
vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message-----
Merci.
J'indique aucunement le numéro de cellule?
S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" <anonymousmolecule@molecule.com> a écrit dans
le message de
news:10c201c5144c$8a361f80$a601280a@phx.gbl...
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range)
Rw = Target.Row
If Cells(Rw + 1, 1).EntireRow.Hidden = True Then
Cells(Rw + 1, 1).EntireRow.Hidden = False
End If
End Sub
Sauf que, quand j'ai plusieurs lignes à copier et les coller là, il y a un bogue
la ligne suivante est jaune.... If Target.Column = 2 And Target.Value <> "" Then
Merci
"Philippe.R" a écrit dans le message de news:%
Bonsoir, Est ce qu'ainsi :
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Target.Column = 2 And Target.Value <> "" Then If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End If End Sub
cela convient mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Érico" a écrit dans le message de news:
est-ce que je dois modifier ta macro? Elle ne fonctionne pas.
"molecule" a écrit dans le message de news:230a01c51457$73e5afb0$ Erico,
disons que, "Si l'utilisateur remplit la cellule B21, la ligne 22 étant masquée devient affichée Même chose pour la cellule B22, si elle est autre que vide, fait afficher la ligne suivante (23)."
amicalement
-----Original Message----- Merci.
J'indique aucunement le numéro de cellule? S'il y a une protection, ça ne fonctionneras pas?
Merci
Érico
"molecule" a écrit dans le message de
news:10c201c5144c$8a361f80$
bonjour Erico,
Private Sub Worksheet_Change(ByVal Target As Range) Rw = Target.Row If Cells(Rw + 1, 1).EntireRow.Hidden = True Then Cells(Rw + 1, 1).EntireRow.Hidden = False End If End Sub
