Afficher une ligne selon condition

Résolu/Fermé
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - Modifié le 26 mai 2020 à 14:56
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - 26 mai 2020 à 18:26
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

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 734
26 mai 2020 à 14:59
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
1
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 1
26 mai 2020 à 15:14
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
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 734
26 mai 2020 à 15:25
Avant le End If rajouter
IF Range("C4")="electrique" then range("C5")=range("C9")

puis autres lignes pour nuit et matin

1
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 1
26 mai 2020 à 18:26
Merci.
0
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
26 mai 2020 à 15:15
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