Supression de ligne sur Excel

Fermé
SFK Messages postés 4 Date d'inscription lundi 18 août 2008 Statut Membre Dernière intervention 21 août 2008 - 18 août 2008 à 16:52
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 21 août 2008 à 10:17
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

7 réponses

tenace Messages postés 828 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 25 juillet 2015 224
18 août 2008 à 16:56
Bonjour
As-tu essayé les filtres automatiques ?
Kev
0
Raymond PENTIER Messages postés 58801 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
18 août 2008 à 17:04
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 ...
0
SFK Messages postés 4 Date d'inscription lundi 18 août 2008 Statut Membre Dernière intervention 21 août 2008
20 août 2008 à 13:37
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.
0
Raymond PENTIER Messages postés 58801 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
20 août 2008 à 14:11
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.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
20 août 2008 à 13:52
salut,
Filtres automatiques
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
SFK Messages postés 4 Date d'inscription lundi 18 août 2008 Statut Membre Dernière intervention 21 août 2008
20 août 2008 à 15:09
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:-)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
20 août 2008 à 15:43
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.
0
SFK Messages postés 4 Date d'inscription lundi 18 août 2008 Statut Membre Dernière intervention 21 août 2008 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
21 août 2008 à 10:01
Merci beaucoup pour ton aide c'est super simpa je vais tester ça! Bonne journée!
SFK
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
20 août 2008 à 15:25
Par une macro ça vous dérangerait?
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
21 août 2008 à 10:17
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
0