Cacher des lignes dans une feuille

Résolu/Fermé

Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - Modifié par Titi32600 le 27/01/2017 à 16:25
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 27 janv. 2017 à 16:52

Bonjour à tous.

J'ai un petit souci, pour faire fonctionner correctement, une procédure vba.
je souhaiterais que les lignes 30:39, les lignes 59:60 soit cachées, quand ma cellule $G$4 est égale à la valeur C11 (teste alphanumérique) ou à la valeur C12.
Si la valeur de $G$4, est égale à C01 ou à C02, alors toutes les lignes sont affichées.

j'ai essayé de réaliser une procédure, mais les lignes 59:60, ne veulent pas se cacher.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$4" Then
Select Case Target.Value

Case "C11": Rows("30:39").Hidden = True
Case "C11": Rows("59:60").Hidden = True
Case "C01": Rows("30:39").Hidden = False
Case "C01": Rows("59:60").Hidden = False
End Select
End If
End Sub

Merci encore de votre aide

titi32600

A voir également:

Cacher des lignes dans une feuille
Cacher une conversation whatsapp - Guide
Aller à la ligne dans une cellule excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Application pour cacher des applications - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38167 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 7 mai 2024 4 659
27 janv. 2017 à 16:31

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$4" Then
Select Case Target.Value

Case "C11":
    Rows("30:39").Hidden = True
    Rows("59:60").Hidden = True

Case "C01":
 Rows("30:39").Hidden = False
 Rows("59:60").Hidden = False
End Select
End If
End Sub

Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
27 janv. 2017 à 16:40

Salut Jordane45

Merci encore, cela fonctionne très bien

merci

titi32600

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
27 janv. 2017 à 16:52

Bonjour

Option Explicit
'-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$4" Then
    Select Case Target.Value
        Case "C11", "C12"
            Rows("30:39").Hidden = True
            Rows("59:60").Hidden = True
        Case "C01", "C02"
            Rows("30:39").Hidden = False
            Rows("59:60").Hidden = False
    End Select
End If
End Sub

Discussions similaires

Reporter valeur sur autre feuille avec critere

Feuille de score belote

Afficher toutes les lignes masquées excel

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters