Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Afficher et masquer les lignes par des If imbriquer

  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Ilino

XLDnaute Barbatruc
Bonjour Forum
Je souhaiterai un petit ménage du mon code
Mon souci est le suivant :
Dans C38 = Non ou Pas de Jonction toutes les lignes de 40 au 65 doivent être masqué automatiquement ( cela est fait regarder mon code) qlq soit la valeur de la cellule C56
2 eme phase
afficher les lignes de 58 au 67 selon les conditions suivantes
si C56 = OUI et E56 différent de 0
Alors afficher le nombre de ligne saisie dans la E56 (j’ai rajouté 1pour chaque valeur)
Grazie
 

Pièces jointes

  • Canevas EtudesForum 2013 09 27.xlsm
    22.1 KB · Affichages: 45
Dernière édition:
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Re : Afficher et masquer les lignes par des If imbriquer

Bonjour Ilino,

Place cette macro dans le code de Feuil3 :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C38,C56,E56]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows("39:66").Hidden = [C38] <> "Oui"
If [C56] <> "Oui" Then Rows("57:66").Hidden = True
If [E56] < 5 Then _
  Rows(67).Offset(2 * [E56] - 10).Resize(10 - 2 * [E56]).Hidden = True
Target.Select 'facultatif
End Sub
A+
 
Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc
Re : Afficher et masquer les lignes par des If imbriquer

Bonsoir JOB
j'ai rajouté ces deux lignes dans ton code

Rows("92:95").Hidden = [C90] <> "Oui"
Rows("92:95").Hidden = [C90] <> "En Cours"

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C38,C56,E56,C90]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows("39:66").Hidden = [C38] <> "Oui"
If [C56] <> "Oui" Then Rows("57:66").Hidden = True
If [E56] < 5 Then _
  Rows(67).Offset(2 * [E56] - 10).Resize(10 - 2 * [E56]).Hidden = True

Rows("92:95").Hidden = [C90] <> "Oui"
Rows("92:95").Hidden = [C90] <> "En Cours"

Target.Select 'facultatif
End Sub
qui veut dire que si C90 = "oui" ou "En cours" afficher les lignes 92 a 95
mais ça n’as pas marché bien ???
 
Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc
Re : Afficher et masquer les lignes par des If imbriquer

Bonsoir Forum
Je reviens a vous pour m’expliquer pourquoi ce code ( de notre MAITRE JOB) dans mn cas n’as pas fonctionné
Mon souci est :
Si je sélectionne OUI dans la cellule F170 et je saisie dans la cellule H170 un nombre (entre 1et 5) je dois avoir affiché les lignes (selon le chiffre) de 172 au 181 mais malheureusement ca n’as pas marché ?????
GRAZIE

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F170,H170]) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
If [F170] <> "Oui" Then Rows("172:181").Hidden = True
If [H170] < 5 Then _
  Rows(182).Offset(2 * [H170] - 10).Resize(10 - 2 * [H170]).Hidden = True
End Sub
 

Pièces jointes

  • ILINO LIGNES JOB.xlsm
    14.9 KB · Affichages: 66
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Afficher et masquer les lignes par des If imbriquer

Bonsoir Ilino

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F170,H170]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows("172:181").Hidden = [F170] <> "Oui"
If [H170] < 5 Then _
  Rows(182).Offset(2 * [H170] - 10).Resize(10 - 2 * [H170]).Hidden = True
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Question Question
Microsoft 365 Macro pour rendre visible les lignes de couleur masquées par des filtres
Réponses
3
Affichages
281
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
462
Nel'
N
  • Résolu(e)
XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules
Réponses
2
Affichages
532
chaelie2015
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
430
Romain77144
R
Y
  • Résolu(e)
XL 2016 Afficher et masquer les lignes en fonction des critères
Réponses
14
Affichages
612
YANNISE
Y
  • Question Question
XL 2016 Afficher les lignes du mois courant sauf avec critères "En cours" macro VBA excel
Réponses
3
Affichages
683
Wayki
T
  • Question Question
Microsoft 365 Comment afficher/masquer les lignes en fonction des utilisateurs
Réponses
11
Affichages
3 K
tahr76
T
B
  • Résolu(e)
Microsoft 365 VBA - Masquer/Afficher des lignes selon liste déroulante
Réponses
2
Affichages
4 K
babooche
B
F
  • Résolu(e)
Microsoft 365 Macro pour copier des lignes et les coller à l'emplacement de la cellule sélectionnée
Réponses
2
Affichages
1 K
Fanou44
F
  • Question Question
Autres (RESOLU)Afficher et masquer par USF
Réponses
6
Affichages
666
chaelie2015
  • Question Question
Autres (RESOLU)Afficher et masquer lignes par Boite de dialogue
Réponses
4
Affichages
872
chaelie2015
  • Résolu(e)
Autres Afficher et masquer des tableaux et des sous tableaux
2
Réponses
20
Affichages
2 K
chaelie2015
J
  • Question Question
XL 2016 Liste déroulante à deux choix permettant d'afficher ou masquer des lignes
Réponses
5
Affichages
922
jannine NOLAM
J
  • Résolu(e)
XL 2019 Afficher ou masquer dynamiquement des lignes, selon la valeur d'une cellule.
Réponses
14
Affichages
5 K
JohDan
A
  • Question Question
XL 2016 Macro impression
Réponses
4
Affichages
908
ALPIJO
A
  • Résolu(e)
Autres Masquer les lignes sous condion des cellules
Réponses
13
Affichages
1 K
manuZ51
M
  • Résolu(e)
Autres Afficher et masquer des lignes sous condition cellule non vide
Réponses
3
Affichages
3 K
chaelie2015
R
  • Question Question
Microsoft 365 Problème code VBA masquer ligne fonction onglet déroulant + TcD
Réponses
8
Affichages
1 K
reyjak
R
W
  • Question Question
XL 2010 recherche d'une valeur en fonction de colonnes dont les intitulés sont des plages de valeurs
Réponses
4
Affichages
2 K
WalloWG
W
M
  • Question Question
XL 2019 MASQUER AFFICHER DES LIGNES
Réponses
7
Affichages
952
MICHEL 03800
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…