Afficher ou masquer lignes d'une feuille en fonction du contenu cellule autre feuille

T

temprano

XLDnaute Nouveau
Bonjour,

je suis nouveau sur ce forum et débute à peine le VBA.

Je cherche à créer un fichier de saisie en conditionnant un certain nombre de cellules pour facilliter le remplissage et limiter les erreurs.

J'aimerai pour cela que certaines lignes s'affichent ou non en fonction de la valeur d'une cellule d'une autre feuille.

J'ai trouvé des bouts de codes mais ne maitrisant pas du tout VBA je n'ai pas encore le résultat que je souhaite :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Rows.Hidden = False
Select Case Range("B2").Value
Case "M0": Rows("7:32").Hidden = True
Case "S1": Rows("8:32").Hidden = True
Case "M1": Rows("9:32").Hidden = True
Case "M2": Rows("10:32").Hidden = True
Case "M3": Rows("11:32").Hidden = True
Case "M4": Rows("12:32").Hidden = True
Case "M5": Rows("13:32").Hidden = True
Case "M6": Rows("14:32").Hidden = True
Case "M7": Rows("15:32").Hidden = True
Case "M8": Rows("16:32").Hidden = True
Case "M9": Rows("17:32").Hidden = True
Case "M10": Rows("18:32").Hidden = True
Case "M11": Rows("19:32").Hidden = True
Case "M12": Rows("20:32").Hidden = True
Case "M13": Rows("21:32").Hidden = True
Case "M14": Rows("22:32").Hidden = True
Case "M15": Rows("23:32").Hidden = True
Case "M16": Rows("24:32").Hidden = True
Case "M17": Rows("25:32").Hidden = True
Case "M18": Rows("26:32").Hidden = True
Case "M19": Rows("27:32").Hidden = True
Case "M20": Rows("28:32").Hidden = True
Case "M21": Rows("29:32").Hidden = True
Case "M22": Rows("30:32").Hidden = True
Case "M23": Rows("31:32").Hidden = True
Case "M24": Rows("32").Hidden = True
End Select
End If
End Sub

Je voudrais par exemple que les lignes 7 à 32 de ma feuille CRF soient automatiquement masquées quand la cellule F15 de ma feuille ID affiche la valeur M0 (menu déroulant).

Je sais que le nom de la cellule B2 dans mon code n'est pas bon mais je ne parviens pas à faire référence à la cellule F15 de la feuille ID.
Le code fonctionne quand j'entre directement la valeur M0 dans la cellule B2 de la feuille CRF

Si qqun peut m'aider ?
D'avance merci,

Amicalement,
 

Pièces jointes

  • Fiche monitorage CRF_V0.7.xls
    146 KB · Affichages: 217
Trier par date Trier par votes
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Afficher ou masquer lignes d'une feuille en fonction du contenu cellule autre fe

Bonjour Temprano, et bienvenue sur le forum

avec ceci:
Select Case Sheets("ID").Range("F15").Value

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
  Rows.Hidden = False
  Select Case Sheets("ID").Range("F15").Value
   Case "M0":    Rows("7:32").Hidden = True
   Case "S1":    Rows("8:32").Hidden = True
   Case "M1":    Rows("9:32").Hidden = True
............... et le reste
à+
Philippe
 
Vote positif 0 Vote négatif
T

temprano

XLDnaute Nouveau
Re : Afficher ou masquer lignes d'une feuille en fonction du contenu cellule autre fe

Bonjour,

et merci phlaurent55

bon entre-temps je me suis affranchi de ce problème en ne travaillant que sur une feuille mais j'aurai probablement besoin de ta solution plus tard.

Par contre maintenant je cherche à masquer certaines lignes en fonction des valeurs de 2 cellules (O1 et Q1) :
Si ma valeur en O1 est à M0 je soushaite masquer les lignes 11:13
ET (LES DEUX ACTIONS SIMULTANEMENT)
Si ma valeur en Q1 est en M3 je souhaite masquer les lignes 19:40

Pour le moment mon code ci-dessous fait soit l'un soit l'autre

D'avance merci pour votre aide...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Q$1" Then
Rows.Hidden = False
Select Case Range("Q1").Value
Case "M0": Rows("15:40").Hidden = True
Case "S1": Rows("16:40").Hidden = True
Case "M1": Rows("17:40").Hidden = True
Case "M2": Rows("19:40").Hidden = True
Case "M3": Rows("19:40").Hidden = True
Case "M4": Rows("20:40").Hidden = True
Case "M5": Rows("21:40").Hidden = True
Case "M6": Rows("22:40").Hidden = True
Case "M7": Rows("23:40").Hidden = True
Case "M8": Rows("24:40").Hidden = True
Case "M9": Rows("25:40").Hidden = True
Case "M10": Rows("26:40").Hidden = True
Case "M11": Rows("27:40").Hidden = True
Case "M12": Rows("28:40").Hidden = True
Case "M13": Rows("29:40").Hidden = True
Case "M14": Rows("30:40").Hidden = True
Case "M15": Rows("31:40").Hidden = True
Case "M16": Rows("32:40").Hidden = True
Case "M17": Rows("33:40").Hidden = True
Case "M18": Rows("34:40").Hidden = True
Case "M19": Rows("35:40").Hidden = True
Case "M20": Rows("36:40").Hidden = True
Case "M21": Rows("37:40").Hidden = True
Case "M22": Rows("38:40").Hidden = True
Case "M23": Rows("39:40").Hidden = True
Case "M24": Rows("40").Hidden = True
End Select
End If
If Target.Address = "$O$1" Then
Rows.Hidden = False
Select Case Range("O1").Value
Case "M0": Rows("11:13").Hidden = True
End Select
End If
End Sub
 
Vote positif 0 Vote négatif
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Afficher ou masquer lignes d'une feuille en fonction du contenu cellule autre fe

Re,

essaie comme ceci:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Q$1" Or Target.Address = "$O$1" Then
  Rows.Hidden = False
  Select Case Target.Value
   Case "M0":    Rows("15:40").Hidden = True
   Case "S1":    Rows("16:40").Hidden = True
   Case "M1":    Rows("17:40").Hidden = True
   Case "M2":    Rows("19:40").Hidden = True
   Case "M3":    Rows("19:40").Hidden = True
   Case "M4":    Rows("20:40").Hidden = True
   Case "M5":    Rows("21:40").Hidden = True
   Case "M6":    Rows("22:40").Hidden = True
   Case "M7":    Rows("23:40").Hidden = True
   Case "M8":    Rows("24:40").Hidden = True
   Case "M9":    Rows("25:40").Hidden = True
   Case "M10":    Rows("26:40").Hidden = True
   Case "M11":    Rows("27:40").Hidden = True
   Case "M12":    Rows("28:40").Hidden = True
   Case "M13":    Rows("29:40").Hidden = True
   Case "M14":    Rows("30:40").Hidden = True
   Case "M15":    Rows("31:40").Hidden = True
   Case "M16":    Rows("32:40").Hidden = True
   Case "M17":    Rows("33:40").Hidden = True
   Case "M18":    Rows("34:40").Hidden = True
   Case "M19":    Rows("35:40").Hidden = True
   Case "M20":    Rows("36:40").Hidden = True
   Case "M21":    Rows("37:40").Hidden = True
   Case "M22":    Rows("38:40").Hidden = True
   Case "M23":    Rows("39:40").Hidden = True
   Case "M24":    Rows("40").Hidden = True
   End Select
End If
End Sub
je n'ai pas testé

à+
Philippe
 
Vote positif 0 Vote négatif
Tata Yoyo

Tata Yoyo

XLDnaute Nouveau
Re : Afficher ou masquer lignes d'une feuille en fonction du contenu cellule autre fe

temprano à dit:
Bonsoir

je n'ai toujours pas réussi à solutionner mon pb si qqun peut m'aider...
d'avance merci

Jérôme
Cliquez pour agrandir...

Petits bouts de code qui pourrait se révéler utile pour masquer les lignes d'une feuille en fonction de la valeur d'une cellule dans une autre feuille:


Private Sub Worksheet_Activate()
' à placer dans la feuille que l'on veut réduire (Feuil2)
If [D26] < 20000 Then CacheLignesActives Else LignesActives
End Sub

Sub CacheLignesActives()
' à placer dans un module, masque les lignes 30 à 160 de la feuille 2 et place le curseur dans la cellule D8
Rows("30:160").Select
Selection.EntireRow.Hidden = True
Range("D8").Select
End Sub
'****************
Sub LignesActives()
' à placer dans un module, affiche les lignes 30 à 160 de la feuille 2 et place le curseur dans la cellule D8
Rows("30:160").Select
Selection.EntireRow.Hidden = False
Range("D8").Select
End Sub

Private Sub Worksheet_Activate()
' à placer dans la premiere feuille (Feuil1)
Range("E17").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
' à placer dans la premiere feuille (Feuil1)
If Target.Address(ReferenceStyle:=xlA1) <> "$E$17" Then Exit Sub
If [E17] <> "" Then Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=-15
End Sub

Explications :
La cellule E17 de la premiere feuille (Feuil1) est la cellule dans laquelle on saisit la valeur (dans ce cas > ou < à 20000)
La cellule D26 de la seconde feuille (Feuil2) reçoit la valeur de la cellule E17 de la premiere feuille (=SI(Feuil1!E17="";0;Feuil1!E17)
lorsque la feuille 2 est activée alors les lignes 30 à 160 sont masquées ou affichées selon la valeur de la cellule
 

Pièces jointes

  • Classeurv1.xls
    28 KB · Affichages: 70
  • Classeurv1.xls
    28 KB · Affichages: 72
  • Classeurv1.xls
    28 KB · Affichages: 72
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

chaelie2015
  • Résolu(e)
Autres (RESOLU) Protéger la feuille code afficher masquer ne fonctionne pas
Réponses
3
Affichages
368
chaelie2015
chaelie2015
P
  • Question
XL 2016 VBA Masquer/afficher lignes via Liste (validation des données)
Réponses
3
Affichages
341
sylvanu
sylvanu
O
  • Résolu(e)
XL 2016 Macro qui ne fonctionne pas quand la feuille est protégée
Réponses
3
Affichages
774
sylvanu
sylvanu
D
  • Question
XL 2016 Formulaire permettant de masquer et/ou d'afficher une ligne VBA en fonction d'un caractère et/ou d'une couleur
Réponses
9
Affichages
1 K
doby
D
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
273
chaelie2015
chaelie2015
L
  • Résolu(e)
XL 2021 Ouvrir une feuille en fonction d'une cellule
Réponses
5
Affichages
332
Lorenzio
L
C
  • Résolu(e)
Microsoft 365 Macro pour afficher/masquer lignes qui ne s'exécute plus :-/
Réponses
14
Affichages
907
Cinelles
C
B
  • Résolu(e)
Microsoft 365 VBA - Masquer/Afficher des lignes selon liste déroulante
Réponses
2
Affichages
3 K
babooche
B
D
  • Résolu(e)
XL 2016 VAB : Masquer les lignes si la cellule en J contient "clôturée"
Réponses
3
Affichages
271
daviddemetz72
D
Nenesse45
  • Résolu(e)
XL 2019 Afficher ou masquer dynamiquement des lignes, selon la valeur d'une cellule.
Réponses
14
Affichages
4 K
JohDan
JohDan

Membres actuellement en ligne

4 membres et 84 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 086
Messages
2 085 197
Membres
102 814
dernier inscrit
JLGalley