Bonjour,
je dispose d'un tableau de saisie de données comprenant plusieurs lignes et
colonnes. Je dois, au cours de vérification (inventaire) saisir des numéros
dans une colonne. Je désire, qu'après que ce numéro soit saisi, que la ligne
correspondante soit masquée (histoire de voir où j'en suis), et, qu'à la fin
de la saisie de tous ces numéros (colonne complète ou non) , je puisse
ré-afficher tout le tableau (par action sur un bouton par exemple)
En vous remerciant pour votre aide.
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
Joel
Bonjour Zebulon,
Dans le module privé de la feuille (en supposant que la cellule où les numéros à saisir soien en colonne A)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Target.EntireRow.Hidden = True End If End Sub
pour afficher tout :
Sub AfficherTout() Cells.EntireRow.Hidden = False End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "zebulon" a écrit dans le message de news: 415e9305$0$3611$
Bonjour, je dispose d'un tableau de saisie de données comprenant plusieurs lignes et colonnes. Je dois, au cours de vérification (inventaire) saisir des numéros dans une colonne. Je désire, qu'après que ce numéro soit saisi, que la ligne correspondante soit masquée (histoire de voir où j'en suis), et, qu'à la fin de la saisie de tous ces numéros (colonne complète ou non) , je puisse ré-afficher tout le tableau (par action sur un bouton par exemple) En vous remerciant pour votre aide.
Bonjour Zebulon,
Dans le module privé de la feuille
(en supposant que la cellule où les numéros à saisir soien en colonne A)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Target.EntireRow.Hidden = True
End If
End Sub
pour afficher tout :
Sub AfficherTout()
Cells.EntireRow.Hidden = False
End Sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"zebulon" <zebulon@zebule.fr> a écrit dans le message de news:
415e9305$0$3611$626a14ce@news.free.fr...
Bonjour,
je dispose d'un tableau de saisie de données comprenant plusieurs lignes
et
colonnes. Je dois, au cours de vérification (inventaire) saisir des
numéros
dans une colonne. Je désire, qu'après que ce numéro soit saisi, que la
ligne
correspondante soit masquée (histoire de voir où j'en suis), et, qu'à la
fin
de la saisie de tous ces numéros (colonne complète ou non) , je puisse
ré-afficher tout le tableau (par action sur un bouton par exemple)
En vous remerciant pour votre aide.
Dans le module privé de la feuille (en supposant que la cellule où les numéros à saisir soien en colonne A)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Target.EntireRow.Hidden = True End If End Sub
pour afficher tout :
Sub AfficherTout() Cells.EntireRow.Hidden = False End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "zebulon" a écrit dans le message de news: 415e9305$0$3611$
Bonjour, je dispose d'un tableau de saisie de données comprenant plusieurs lignes et colonnes. Je dois, au cours de vérification (inventaire) saisir des numéros dans une colonne. Je désire, qu'après que ce numéro soit saisi, que la ligne correspondante soit masquée (histoire de voir où j'en suis), et, qu'à la fin de la saisie de tous ces numéros (colonne complète ou non) , je puisse ré-afficher tout le tableau (par action sur un bouton par exemple) En vous remerciant pour votre aide.
