Discussion :

[Stephdu57]

Bonjour à tous,
Nouveau sur ce forum et débutant en VB pour Excel, je pose ma première question, et j'espère la poser au bon endroit.
Voici le sujet qui me pose soucis.

Dans un fichier Excel, j'ai des colonnes avec différentes données. Je souhaite réaliser une zone de liste déroulante via l'outil développeur.
L'objectif est que quand l'utilisateur fera un choix dans ma liste déroulante, les lignes ne correspondant pas à la valeur choisie se cachent....

Merci par avance pour votre aide

[RastaBomboclat]

Bonjour Stephdu57

Une question bien expliquée et détaillé, donne lieu a plusieurs réponses.

Quand tu dis: "les lignes ne correspondant pas à la valeur choisie se cachent...."
de quelles lignes parles-tu, quelles sont leur references (par exemple A1 à C3).

Pourrais-tu nous montrer un exemple de ce que tu veux en Excel. Avec un petit fichier (sans données confidentielles), les membres de la communauté pourront mieux comprendre ce que tu veux et t'aideront.

[Stephdu57]

Effectivement, les choses seraient plus claires avec un exemple.
Comme je n'arrive pas à uploader un fichier, je vous mets une capture

L'idée est la suivante:
- L'utilisateur fait son choix dans la liste "choix du bâtiment".
- Dans la colonne C, il y a la liste des bâtiments.
- Lorsque le choix est fait, si le nom choisi dans la box n'est pas dans une des case de la colonne C, alors la ligne complète est cachée
- Au final, l'utilisateur n'aura que les lignes dans lesquelles le bâtiment V9 apparait dans une des cases de la colonne C

Merci pour votre réponse

[cerede2000]

Donc il te suffit d'utiliser Autofilter : http://excel.developpez.com/faq/?pag...iltreAutoMacro
Tu filtre ta colonne C en fonction de la valeur de ton combobox

[Stephdu57]

Donc il te suffit d'utiliser Autofilter

Je découvre cette fonction. Je vais donc essayer, et je reviendrais vers vous...
Merci

[casefayere]

Bonjour,
sinon, sans utiliser le filtre, dans l'éditeur Vba, tu cliques 2 fois sur la feuille où insérer le code ci-dessous
Admettons que ton combobox soit un controle ActiveX et qu'il se nomme Combobox1 sinon tu changes pour le nom de ton combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim x As Long, DerCel As Range, Tb
  Cells.Rows.Hidden = False
  Set DerCel = Range("C" & Rows.Count).End(xlUp)
  Tb = Range("C4", DerCel)
For x = UBound(Tb, 1) To 1 Step -1
  If Tb(x, 1) <> ComboBox1 Then
    Rows(x + 3).EntireRow.Hidden = True'si tu commences à la ligne 4
  End If
Next
End Sub

autre possibilité sans tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
Dim x As Long, DerCel As Long
Cells.Rows.Hidden = False
DerCel = Range("C" & Rows.Count).End(xlUp).Row
For x = DerCel To 4 Step -1
  If Range("C" & x) <> ComboBox1 Then
    Rows(x).EntireRow.Hidden = True
  End If
Next
End Sub

[RastaBomboclat]

Stephdu57,

Je te joints ici un petit fichier pour débutant en VB pour Excel, qui je pense, répondra à ta question et te permettra de faire plus connaissance avec le vba.


Merci de mettre un si la réponse a servi et de mettre un si le sujet est résolu.