Discussion :

[benoit13]

Bonjour à tous,

Voila mon problème:

Sur un même fichier excel j'ai plusieurs feuilles et l'une d'entre elles (machines disponibles) me sert de base de données.

Sur un formulaire, un combobox me permet de choisir le nom d'une machine.
Ce nom de machine vient alors incrémenter la premiere colonne de la feuille répertoriant les machines necessaires sur le chantier.
J'aimerais alors que les autres colonnes de cette meme feuille s'actualisent (avec les colonnes de ma bdd correspondant à la machine sélectionnée).

Quelqu'un a-t-il une idée?
J'ai essayé un filtre mais je ne sais pas comment faire pour que mon critère soit la valeur de ma combobox... J'imagine que VBA résoud assez facilement ce type de pbm...

Merci d'avance!!

[casefayere]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
With sheets("feuille a actualiser")
Set PLAGE = .Range("b2", Range("b" & Rows.Count).End(xlUp))' changer pour les bonnes cellules
Set c = PLAGE.Find(nom du combobox)
If Not c Is Nothing Then
c = c.row
       'actualiser les colonnes voulues avec c en numéro de ligne
end if
End With

c'est vraiment du vite fait, à revoir

[jolzeviking]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const LigneDepart = 7
Const Colrechercher = "F", Nbrdeligne= "100"
 
Sub Filtre_Maison()
 
Dim b As String
Dim vari As String
    données = Combobox1.value
       Worksheets("Listing").Select
    Rows("1:2000").Hidden = False
    For i = LigneDepart To Nbrdeligne
            If données = Range(Colrechercher & i).Value Then
                b = i
                Rows(b).Hidden = False
 
            Else
            b = i
                Rows(b).Hidden = True
            End If
    Next i
End sub

Voila un code bidouille qui vient de ce forum et réarangé suivant besoin.
Les filtres bug un peu de temps en temps alors que la je masque les colonnes inutiles.