Supression de ligne sur Excel

SFK -  
Bonjour à tous,

Je suis en train de faire une feuille de calcul sur Excel contenant une liste qui est la suivantes:
Habitation
Bureau
Restaurant
L'utilisateur doit choisir un ouvrage de la liste ci-dessus et j'aimerais supprimer certaines cellules en fonction du choix d'ouvrage réalisé. Comment faire? (Par exemple si choix =bureau alors supprimer C23:C50)
Merci d'avance!
SFK
Configuration: Windows XP
Internet Explorer 6.0

7 réponses

  2.  Raymond PENTIER Contributeur
    Comment s'opère le choix : On tape l'intitulé dans une cellule particulière ? On utilise une liste déroulante ? On saisit une croix à côté de l'ouvrage choisi ?
    Qu'entends-tu par "supprimer C23:C50" : Effacer le contenu de ces cellules ? Supprimer les cellules (ce qui entraîne le déplacement des autres cellules placées à droite ou en dessous) ?
    Et ça nous aiderait si tu nous envoyais ton fichier ...
    1. SFK Auteur
      Salut,

      En fait on choisit l'option dans un menu déroulant au début de la page et en fonction de ce choix j'aimerais qu'uniquement la partie qui concerne ce choix apparaissent.
      1. Raymond PENTIER Contributeur
        Ah ! Ce n'est plus tout-à-fait la même chose ...
        Il te reste à mettre à notre disposition (http://www.cijoint.fr/ ou https://www.cjoint.com/ ton fichier, ou au moins un extrait. On pourra essayer de te trouver une méthode de travail.
    4. SFK Auteur
      Salut,

      J'ai donc mis le fichier"Bilan energétique d'un bâtiment12" sur le lien suivant:

      http://www.cijoint.fr/cjlink.php?file=cj200808/cijYqeB1Pu.xls

      Le choix de la cathégorie d'ouvrage se fait sur la première ligne du fichier et en fonction de ce choix j'aimerais supprimer dans la partie ventillation (En jaune) les lignes qui concerne les cathégories d'ouvrages autres que celle choisie au début.
      Merci à tous:-)
      1. pijaku Modérateur
        En macro, à affecter à un bouton de commande par exemple (mais c'est comme on veux) :

        Private Sub CommandButton1_Click()
        If ActiveSheet.Range("B1") = "Habitation" Then
        ActiveSheet.Rows("35:53").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("31:34").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        Else:
        If ActiveSheet.Range("B1") = "Bureau" Then
        ActiveSheet.Range("31:34,39:53").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("35:38").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        Else:
        If ActiveSheet.Range("B1") = "Restaurant" Then
        ActiveSheet.Range("31:38,42:53").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("39:41").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        Else:
        If ActiveSheet.Range("B1") = "Salle de spectacle" Then
        ActiveSheet.Range("31:41,45:53").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("42:44").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        Else:
        If ActiveSheet.Range("B1") = "Hôtel" Then
        ActiveSheet.Range("31:44,48:53").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("45:47").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        Else:
        If ActiveSheet.Range("B1") = "Piscine" Then
        ActiveSheet.Range("31:47").Select
        Selection.EntireRow.Hidden = True
        ActiveSheet.Range("48:53").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("B2").Select
        End If
        End If
        End If
        End If
        End If
        End If
        End Sub

        Voilà et pour réinitialiser (tout faire ré-apparaître) :

        Private Sub CommandButton2_Click()
        ActiveSheet.Rows("27:54").Select
        Selection.EntireRow.Hidden = False
        ActiveSheet.Range("A1").Select
        End Sub

        C'est tout simple mais efficace.
      2. SFK Auteur
        @pijakuMerci beaucoup pour ton aide c'est super simpa je vais tester ça! Bonne journée!
        SFK
    6. wilfried_42 Contributeur
      Bonjour

      Si tu pouvais poster un petit fichier exemple, c'est un peu vague, et te donner des lignes de code, c'est faisable mais elles ne correspondront pas à ta realité

      Ce que tu as, et le resulta que tu cherches

      @ te lire

      Discussions similaires

      Excel : afficher toutes les lignes et colonnes masquées
      livlarsen

      27 réponses
      remettre toutes les colonnes et les lignes masquées
      mousaillon

      4 réponses