Masquer une ligne sous condition Résolu

Question

Bonjour,

Je travaille sur un tableau Excel qui contient une liste de données.
Je voudrai pouvoir masquer des lignes en fonction de la valeur inscrite dans les lignes de la colonne A.

En fait j'ai une liste déroulant et j'aimerai qu'on fonction du choix spécifié dans la cellule de la liste déroulante, seules s'affichent les lignes en rapport.

Par exple si je sélectionne dans la liste déroulant le service 10
Dans la colonne service en dessous je ne voudrai masquer les lignes des autres services (11 ; ...)

J'ai utiliser la macro ci-dessous que j'ai copier d'une autre discussion mais je ne comprends pas pourquoi elle ne marche pas

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim plage As Range, c As Range
    Set plage = [A7:A100]
    For Each c In plage
        If c.Value = "C4" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = False
        End If
    Next c
    plage = Nothing
End Sub

Pourriez-vous m'aider, s'il vous plaît.

Merci d'avance

Laure


Configuration: Windows XP / Internet Explorer 6.0

Mike-31 · Answer

Salut,

Essaye plutôt comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
  Set MyPlage = Range("A7:A100")
    For Each cell In MyPlage
     If cell.Value = [C4] Then
      cell.EntireRow.Hidden = True
    ElseIf cell.Value <> [C4] Then
      cell.EntireRow.Hidden = False
    End If
  Next
End Sub

eriiic · Answer

Bonsoir, 

Et un simple filtre automatique sur la colonne ayant le n° du service ne suffit pas ???? 
C'est exactement le fonctionnement que tu décris : une liste déroulante où l'on choisi ce qui doit être affiché.... 

eric

Mike-31 · Answer

Re,

Tu colles ce code dans un module et tu crées un bouton sur la feuille du tableau synthétique en supposant que le deuxième tableau se trouve sur la feuille3 (à modifier)
pour afficher toutes le valeurs effacer le contenu en C4 et activer le code ou on sépare le code avec une partie dans la Worksheet pour un retour automatique pour un affichage total lorsque C4 est vide

Sub Affiche_Détail()
Sheets("Feuil3").Activate
Set MyPlage = Range("A7:A100")
If [C4] = "" Then
MyPlage.EntireRow.Hidden = False
Exit Sub
End If
For Each cell In MyPlage
If cell.Value = [C4] Then
cell.EntireRow.Hidden = True
ElseIf cell.Value <> [C4] Then
cell.EntireRow.Hidden = False
End If
Next
End Sub

Mike-31 · Answer

Re,

Pour exécuter une macro automatiquement, plusieurs possibilités, mais la pls simple est de mettre le code dans les propriétés de la feuille concernée (clic droit sur l'onglet de feuille/Visualiser le code)
et mettre le code à exécuter dans
 
Private Sub Worksheet_Change(ByVal Target As Range)
mettre le code à exécuter ici, dès qu'une valeur change, le code s'exécute
End sub
ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ici le code s'exécutera chaque fois que la cellule active changera
End sub 

Un déclenchement par bouton ne se fera que sur ordre et pour créer un bouton deux possibilités avec la barre d'outils formulaire dans ce cas associer la macro au bouton (clic droit sur le bouton/Affecter une macro)
ou avec la barre d'outils contrôle ce qui génére ce début de code

 Private Sub CommandButton1_Click()
et ici on place soit le code à exécuter
soit le nom de la mocro à exécuter
End Sub

Pour le code ci dessous, que veux tu exactement faire, masquer les lignes mais sur quel critère

Sub Masquer_les_lignes_inutiles()
Range("g2:g50").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Mike-31 · Answer

Re, 

une macro pour masquer les lignes vides par rapport aux cellule vide plage G2 à G50 
et une pour afficher les lignes masquées 

Sub Masquer_Lignes_Vides() 
Application.ScreenUpdating = False 
Range("G2:G50").Select 
For Each Cell In Selection 
Cpt = 0 
For i = 0 To 7 
If Cell.Offset(0, i) <> "" Then 
Cpt = Cpt + 1 
End If 
Next 
If Cpt = 0 Then 
Cell.EntireRow.Hidden = True 
Else 
Cell.EntireRow.Hidden = False 
End If 
Next 
Application.ScreenUpdating = True 
End Sub

 
Sub Afficher_Lignes_Vides() 
Application.ScreenUpdating = False 
Range("G2:G50").Select 
For Each Cell In Selection 
Cpt = 0 
For i = 0 To 7 
If Cell.Offset(0, i) = "" Then 
Cpt = Cpt + 1 
End If 
Next 
If Cpt = 0 Then 
Cell.EntireRow.Hidden = True 
Else 
Cell.EntireRow.Hidden = False 
End If 
Next 
Application.ScreenUpdating = True 
End Sub 

Pour d'exécuter le code en mode arrêt » ou Erreur d'exécution "9"; L'indice n'appartient pas à la sélection »???  
Le code s'applique à la feuille4 dans ton classeur existe t elle ! 

Ensuite l'erreur à bloqué le visual pour le réinitialiser 
Clic sur Alt et touche F11 ou clic droit sur l'onglet de feuille/visualiser le code 
 Execution/Réinitialiser 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

les cellules fusionnées font mauvais ménage avec les formules ou code, faut voir.
Ensuite il est possible d'exécuter le code avec en A cellule non vide et en G cellule vide

si ton fichier ne contient pas de données confidentielles peux tu le mettre sur le forum que l'on voit ce qui cloche, soit sur un post soit en message privé en cliquant sur mon pseudo et coller le lien généré avec ce lien (clic/parcourir/créer le lien/autoriser l'accés)

https://www.cjoint.com/

Mike-31 · Answer

Re, 

Supprime l'ancien code dans le modue et 
Colle ces deux codes à la place. 

Afficher_Détail pour masquer les cellules vides correspondantes au numéro de service sélectionné sur la feuille Récapitulatif 

Affiche_Ligne_Vide affiche les lignes masquées correspondantes au numéro de service sélectionné sur la feuille Récapitulatif 

Il est possible d'inclure dans le code le retour à la feuille Récapitulatif si tu le souhaites

Sub Afficher_Détail() 
Dim x 
Application.ScreenUpdating = False 
Sheets("Récapitulatif").Range("C4").Select 
x = ActiveCell.Value 
Sheets("C").Select 
With Worksheets("C").Range("A:A") 
Set c = .Find(x, LookIn:=xlValues) 
If Not c Is Nothing Then 
firstAddress = c.Address 
End If 
End With 
Range(firstAddress).Offset(0, 7).Select 
Range(ActiveCell.Offset(9, 0), ActiveCell).Select 
Set MyPlage = Selection 
For Each cell In MyPlage 
If cell.Value = "" Then 
cell.EntireRow.Hidden = True 
End If 
Next 
Application.ScreenUpdating = True 
End Sub 



Sub Affiche_Ligne_Vide() 
Dim x 
Application.ScreenUpdating = False 
Sheets("Récapitulatif").Range("C4").Select 
x = ActiveCell.Value 
Sheets("C").Select 
With Worksheets("C").Range("A:A") 
Set c = .Find(x, LookIn:=xlValues) 
If Not c Is Nothing Then 
firstAddress = c.Address 
End If 
End With 
Range(firstAddress).Offset(0, 7).Select 
Range(ActiveCell.Offset(9, 0), ActiveCell).Select 
Set MyPlage = Selection 
For Each cell In MyPlage 
If cell.Value = "" Then 
cell.EntireRow.Hidden = False 
End If 
Next 
Application.ScreenUpdating = True 
End Sub 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Je peux écrire un code qui s'appliquerait à l'ensemble des numéros de service ce qui multiplierait la longueur du code par huit
Ou plus simple on masque systématiquement toutes les lignes vides colonne H

Que veux tu dire par 
Masquer aussi si la valeur de la cellule de la colonne A différent du service sélectionné sur le récapitulatif 


Souhaites-tu masquer toutes les lignes sauf celle correspondantes au numéro du service sélectionné en C4

https://www.cjoint.com/?eCrgZosAUI

Mike-31 · Answer

Re,

On est loin des explications de départ, j'essaye de regarder dans la soirée,

Mike-31 · Answer

Re,

Essayons d'être clair, dans tes explications

A2 = C4 et G2 <> "vide" Afficher ligne 2  que veux tu dire afficher 2 ligne en H et masquer les autres ou afficher la deuxième ligne ou encore afficher les lignes non vide + 2

A2 = C4 et G2 = "vide" Afficher ligne 2

prends le fichier que je t'ai retourné exemple feuille récapitulatif C4 = 13

 Feuille C en A2 il y a 13 en G2 15/04/10 quelle ligne  dois je masquer en H

idem pour A12 Récapitulatif = 11 A12=11 G12=15/04/10 que doit il y avoir en H

en A62 rien en G62 rien que doit il y avoir en H

Mike-31 · Answer

Re,

Je commence à comprendre, si page Récapitulatif en C4 tu sélectionnes 13 par exemple tu veux que les cellules en A qui contiennent 13 s'affichent en ne conservant que les lignes non vie en H visible et on masque le reste du tableau

Utilisateur anonyme · Answer

Bonjour,

Pourriez-vous m'aider s'il vous plaît.

Je voudrai à l'aide d'une macro masquer sous deux conditions les lignes d'un tableau sous Excel.
Sur le tableau de la feuille 1 si :
- A2 = C4 et H2 <> "vide" Afficher ligne 2
- A2 = C4 et H2 = "vide" Afficher ligne 2
- A2 <> C4 et H2 <> "vide" Masquer la ligne 2
- A2 <> C4 et H2 = "vide" Masquer la ligne 2
- A2 = "vide" et H2 <> "vide" Afficher ligne 2
- A2 = "vide" et H2 = "vide" Masquer ligne 2

En sachant que C4 est une valeur qui s'affichera sur une feuille Excel 2.

Merci d'avance.

Laure

Mike-31 · Answer

Re, 

Je ne t'oublie pas, mais je donne des cours d'informatique qui me prend pas mal de temps. 
regarde ce fichier qui répond a ton dernier post d'hier soir 

https://www.cjoint.com/?eDw4kgBlwe

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

concrètement, cette macro devrait masquer toutes les lignes excepté les lignes non vide et la première ligne vide de chaque bloc exemple pour le service 13 reste affiché les cellules H2 à H6 non vide plus une ligne vide H7 et masquer de H8 à H11 et la même chose pour les autres blocs

bloc 11 reste affiché H12 non vide et H13 vide et masquer de H14 à H21 etc ...

Mike-31 · Answer

Re,

Oui j'ai bien compris, la macro de ton avant dernier post, elle doit masquer uniquement les lignes vides d'un service exemple le 13 et laisser le reste du tableau visible (ligne vide et non vide)

c'est cela

Mike-31 · Answer

Re,


Comme cela

Sub Masquer () 
Application.ScreenUpdating = False
    For i = 300 To 2 Step -1
    If Range("H" & i) = "" Then
    Range("H" & i).EntireRow.Hidden = True
    End If
    Next
    Application.ScreenUpdating = True
End Sub

Mike-31 · Answer

Re,

Alors comme cela

Sub Masquer () 
   Dim i As Integer
    Application.ScreenUpdating = False
    [A300].End(xlUp).Offset(0, 7).Select
    Range(ActiveCell.Offset(9, 0), [H2]).Select
    Set MyPlage = Selection
    For Each cell In MyPlage
    If cell.Value = "" Then
    cell.EntireRow.Hidden = True
    End If
    Next
    [H2].Select
    Application.ScreenUpdating = True
End Sub

Mike-31 · Answer

RE,

Hier soir je t'ai posté ce code qui apparemment n'a pas été pris en compte 

Sub Masquer () 
    Dim i As Integer
    Application.ScreenUpdating = False
    [A300].End(xlUp).Offset(0, 7).Select
    Range(ActiveCell.Offset(9, 0), [H2]).Select
    Set MyPlage = Selection
    For Each cell In MyPlage
    If cell.Value = "" Then
    cell.EntireRow.Hidden = True
    End If
    Next
    [H2].Select
    Application.ScreenUpdating = True
End Sub

Mike-31 · Answer

Re, 

C'est le genre de macro pas très souvent utilisée, je vais me replonger sur le problème après le week-end. 

Pour revenir à ton problème, j'ai vu que tu avais plusieurs feuille A, B et C 
si tu dois les piloter depuis la feuille "Récapitulatif" il te suffit d'ajouter une ligne comme pour les services si tu veux je t'envoie un fichier, également même pour la liste déroulante en C4 comme elle est assez courte, tu peux effacer les données L3 à L10 et saisir directement les valeur dans source (Données/Validation/etc...) 
à la place de 
=$L$3:$L$10 
tu saisis 
11;13;15;17;19;21;23;25 

Pour terminer, mets le statut de cette discussion en résolu, et ouvre une discussion pour l'envoi de mail automatique à partir d'Excel via Outlook je la suivrais 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Masquer une ligne sous condition

19 réponses

Discussions similaires

Newsletters