Afficher une ligne selon condition

Résolu
nathan027 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
nathan027 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous.

J'aimerai savoir s'il est possible d'afficher ou de masquer une ligne en fonction de la valeur d'une autre ligne ?

Exemple : Si dans la Cellule C4 il est affiché "Mécanique"

https://mon-partage.fr/f/3GfgLGFL/

J'aimerai que la ligne 8 s'affiche dans le cas contraire qu'elle soit masquée

Merci à vous

3 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Possible avec une macro
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
    If Target.Value <> "Mécanique" Then Rows("8:8").EntireRow.Hidden = True Else Rows("8:8").EntireRow.Hidden = False
    End If
    End Sub

    Cdlmnt
    Via
    2
    1. nathan027 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   1
       
      Parfait, j'abuse un peu mais du coup à cette formule puis je ajouter en plus

      Si en C4 = "electrique" alors j'affiche C9
      Si en C4 = "Nuit" alors j'affiche C10
      Si en C4 = "Matin" alors j'affiche C11

      Encore merci :)
      0
  2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Avant le End If rajouter
    IF Range("C4")="electrique" then range("C5")=range("C9")

    puis autres lignes pour nuit et matin

    1
    1. nathan027 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   1
       
      Merci.
      0
  3. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonjour,
    à mettre dans le module de la feuille :

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("C4") = "Mécanique" Then Rows("8:8").EntireRow.Hidden = False _
    Else Rows("8:8").EntireRow.Hidden = True
    End Sub

    0