Discussion :

[patrick60]

Un grand bonjour à tout le forum

A partir d'un USF récupéré sur le forum, j'aimerais l'utiliser dans un fichier à moi .

Le problème est que sur l'exemple l'USF est sur la feuille activée. Pour ma part, je souhaiterais qu'il soit activé à partir d'une autre feuille.
je ne trouve pas le code

Merci

[mercatog]

Bonjour
Mieux, mets le code au lieu du fichier
et précise quoi cloche chez toi dans ledit code

[patrick60]

bonjour
Voilà ce qui cloche lorsque je lance l'USF à partir d'une autre feuille

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
Private Const T As String = "Thierry's Démo, July 2004"

Private WS As Worksheet
Private Col As Byte, Lig As Integer
Private SearchType As String

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Set WS = ThisWorkbook.Worksheets("Interface")
Me.Caption = T
End Sub

Private Sub OptionButton1_Click()
SearchType = "Par Prénom "
ListBox_Criteria 1
End Sub
Private Sub OptionButton2_Click()
SearchType = "Par Age "
ListBox_Criteria 2
End Sub
Private Sub OptionButton3_Click()
SearchType = "Par Sexe "
ListBox_Criteria 3
End Sub

Private Sub ListBox_Criteria(C As Byte)
Dim ColFilter As Collection
Dim Plage As Range, Cell As Range
Dim Item As Variant
Dim L As Integer

Me.LblSearchType = SearchType & " pas de Critéria défini, clickez sur la ListBox!"
With WS
If .FilterMode = True Then .ShowAllData
End With

Set ColFilter = New Collection
    L = WS.Range("A65536").End(xlUp).Row
    Col = C
    Lig = L
    Set Plage = WS.Range(Cells(2, C), Cells(L, C))

Me.ListBox1.Clear

    For Each Cell In Plage
        On Error Resume Next
        ColFilter.Add Cell.Text, Cell.Text
    Next
    
        With Me.ListBox1
            For Each Item In ColFilter
            .AddItem Item
            Next
        End With
End Sub

J'ai une erreur avec la ligne en rouge

Merci

[mercatog]

Tu as bien ceci?

Code :

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

Set WS = ThisWorkbook.Worksheets("Interface")

[patrick60]

Oui j'ai bien la feuille "interface" mais pour mon fichier , je souhaiterais lancer l'USF dans la feuille "feuil1".

Merci

[Krovax]

Bonjour

Code :

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

1
2
 
 WS.Range(Cells(2, C), Cells(L, C))

Voila ce que tu lui dis

Code :

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

1
2
 
 WS.Range(activesheet.Cells(2, C), activesheet.Cells(L, C))

tes cells et ton range ne sont pas sur la même feuille

Code :

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

1
2
 
 WS.Range(ws.Cells(2, C),ws. Cells(L, C))

[mercatog]

je retire ma Select

Bien vu Krovax

[patrick60]

Un grand merci à vous
ça fonctionne