Discussion :

[laurasoe]

Bonjour

Je sollicite votre aide car je suis bloquée... (J'ai cherché sur le forum et d'autres site mais je ne comprend toujours pas...)


je voudrai qu'à partir de mon userform qui apparaît au début je puisse filtrer ma feuille de commande en fonction de la référence choisie, tout cela en appuyant sur le bouton valider.

Voici le code jusqu'à présent :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
Private myTab()
Private ind As Long
 
 
 
'Private Sub Workbook_Open()
'UserForm1.Show
'End Sub
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
    initCombo
End Sub
 
Private Sub initCombo()
Dim ws As Worksheet
Dim derlig As Long
Dim lig As Long
Dim i As Long
 
    Set ws = ThisWorkbook.Worksheets("CRNET-CDE")
    derlig = ws.Range("A" & Rows.Count).End(xlUp).Row
    ReDim Preserve myTab(ind)
    For lig = 2 To derlig
        If ModTools.DoesExistRef(ws.Range("A" & lig).Value, myTab()) = False And ws.Range("F" & lig).Value <> "" Then
            ReDim Preserve myTab(ind)
            myTab(ind) = ws.Range("A" & lig).Value
            ind = ind + 1
        End If
    Next lig
 
    For i = LBound(myTab()) To UBound(myTab())
        Me.ComboBox1.AddItem myTab(i)
    Next i
End Sub

Je ne sais pas si j'ai été très claire;

Je vous remercie d'avance de l'aide que vous pourrez apporter,
Bonne journée.

Laura

[Gado2600]

Bonjour,

Pourquoi n'utiliserais-tu pas directement un filtre sur ta feuille qui contient ta liste des commandes ?
Dans l'onglet "Données", tu as le bouton "Filtrer".
Tu peux également utiliser l'enregistreur de macros pour connaitre rapidement le code qui peut reproduire ce que tu fais manuellement et t'en inspirer.

Cordialement,

[laurasoe]

Oui j'ai déjà pensé à cette solution, mais c'était pour voir si c'était possible, car en fait on a de gros carnet de commande avec beaucoup de références, et le but et ne de pas perdre de temps d'en sélectionner qu'une.

Voilà pourquoi

J'ai trouvé cette formule pour filtrer un champ

Code :

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

ActiveSheet.Range("A:AO").Autofilter Field:=1,_ Criteria1:="La référence"

Ce qui manque c'est, comment faire pour que la référence choisie de la liste déroulante de ma box soit la référence filtrée et que cela s'execute quand j'appuie sur mon bouton "validez".

(Désolé j'ai commencé à apprendre comment utiliser VBA lundi dernier ... et mes connaissances sont super limitées en code tout court )

[Gado2600]

Il n'y a pas de soucis

Si on reprend la formule que tu as trouvé, on a :

Code :

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

ActiveSheet.Range("A:AO").Autofilter Field:=1,_ Criteria1:="La référence"

Ce que tu cherches, c'est remplacer la listbox qui contient tes références comme critère de filtre. Donc, à avoir ceci :

Code :

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

ActiveSheet.Range("A:AO").Autofilter Field:=1,_ Criteria1:=me.cbo_ref ' le contrôle qui contient tes références dans ton UserForm

Le champ "Field" correspond au numéro de colonne de ta zone de sélection (ici, c'est "A:AO") donc, le 1 correspond à A

Code :

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

Feuil1.Range("A:AO").Autofilter Field:=1,_ Criteria1:=me.cbo_ref

Je te conseille de remplacer ActiveSheet par le "Codename" de ton onglet.
Comment obtenir le CodeName ?
Dans l'éditeur de VBA, tu peux visualiser les modules, les feuilles et tes UserForms dans une petite fenêtre. Le codename de tes feuilles Excel correspond au nom indiqué.
A noter que tu as deux noms pour chaque feuille, sous la forme : codename (nom afficher).
Tu peux éditer le codename de ta feuille dans les propriétés (touche F4).

Enfin, tu peux choisir plusieurs valeurs dans tes filtres, comme ceci (* code obtenu avec l'enregistreur de macro) :

Code :

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

ActiveSheet.Range("$A$1:$B$4").AutoFilter Field:=1, Criteria1:="=1", Operator:=xlOr, Criteria2:="=3"

Bon courage

[laurasoe]

Je ne comprend pas ce que c'est le CodeName Est-ce que c'est le nom qu'on donne à chaque feuille ?


Après,
Du coup j’insère comme ça ?

Code :

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

1
2
3
4
5
Private Sub UserForm_Click()
ActiveSheet.Range("A:AO").AutoFilter Field:=1, Criteria1:=Me.cbo_ref
UserForm1.Hide
 
End Sub

C'est pas possible à la place de

Code :

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

Sheets("CRNET-CDE")

à la place de

Code :

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

ActiveSheet

?

Désolé j'apprend en même temps

Merci encore

[Gado2600]

Si tu regardes sur le fichier en pièce jointe, tu trouveras un exemple d'application de CodeName sur une feuille.

A gauche, la fenêtre de propriétés de l'onglet et à droite la liste des feuilles.

F_Accueil correspond au CodeName de la feuille. Il n'est modifiable que par le développeur ou par le code.
La feuille est nommée Cover. C'est le nom que tu verras dans l'interface Excel. Il peut être modifié par les utilisateurs.

L'avantage du code est d'utiliser simplement son nom.
A l'inverse, le nom de l'onglet signifie que tu passes par

Code :

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

ThisWorkbook.Sheets("Cover")

par exemple.

Mais pour débuter, le nom de l'onglet est suffisant et te permettra de t'exercer à manipuler les onglets.