XL 2016 VBA : Listview et combobox désespérantes sur Userform2

[bugg]

Bonjour,
sur mon userform2 (en multipage), page1, je n'arrive pas à alimenter quoi que ce soit ....
pouvez-vous m'aider et surtout m'expliquer...
merci d'avance !

 

[ChTi160]

Bonsoir
Bonsoir le fil,le Forum

peux tu m'expliquer ce que tu veux obtenir avec ce que tu as dans le Ficher Joint
tu as mis

ThisWorkbook.Sheets("WsBD")

tu aurais donc une feuille nommée "WsBD" qui n'existe pas dans ton Fichier?
ou alors "WsBD" est une variable , mais a quelle feuille fait elle référence ?
j'ai du changer la Procédure

Private Sub UserForm_Initialize()
Call CmbFil
Call ListviewFil
End Sub

j'ai effacé celle présente dans le Fichier et ensuite refait Userform dans liste VBE(Gauche) puis Intialize dans la Liste de Droite sinon Bug Lol
dans l'attente
jean marie

 

[bugg]

Bonsoir
dans mon vrai fichier, j'ai la feuille WsBD(BASE DE DONNEES°

 

[bugg]

merci d'avance pour votre aide !

 

[ChTi160]

que veut dire ThisWorkbook.Sheets("WsBD")
ca ne veut rien dire WsBD(BASE DE DONNEES°
mais si tu as

Dim WsBD as Worksheet
Set WsBD =Worksheets("BASE DE DONNEES")

ca pourrait dire quelque chose !
n'oublie pas de répondre a mes questions !
jean marie

 

[bugg]

je joins une copie ecran de mes feuilles
et pour la procédure, j'ai essayé de refaire ce que j'ai vu dans une vidéo,
je suis ignare dans ce domaine, donc va falloir être patient, et c'est pour celà que je demandais qu'on m'explique en même temps si possible
merci d'avance pour votre patience

 

[bugg]

nb là j'essaie d'adapter le modèle qui est surhttps://www.excel-downloads.com/threads/filtre-listview-par-nom-et-date.20048132/
mais mes combo et listview sont toujours vides...

 

[ChTi160]

je vois que je suis présent sur le fil que tu cite , donc on devrait pouvoir avancer Lol
sache que les Images ne Nous aident pas !
bien que j'ai cru comprendre
que tu as pour une même feuille :
le "CodeName" soit "WsBD"
et le Nom de la feuille --> "BASE DE DONNEES"
un fichier avec des explications c'est beaucoup mieux
dans l'attente
jean marie

 

[ChTi160]

Re
une autre question tu as besoin de Visualiser 28 colonnes dans ta ListView ?
jean marie

 

[bugg]

non, non bien sûr,
le N° de dossier
la date
le nom de l'agent
civilité nom et prénom du contact
son adresse
ses téléphones (fixe et portable) et mail
motif 'appel (liste)
ou motif d'appel (hors-liste)

 

[bugg]

le N° de dossier=Colonne A
Date=B
agent = C
E, F, G, H = civilité, Nom et prénom; société
i=Adresse
tel fixe = j
portable =k
mail = L
O= motif(liste
P= Motif hors liste

 

[bugg]

en essayant d'adapter le modèle
j'ai toujours mes listes vides, je ne comprends pas...
je mets le code :

Option Explicit
Dim Tableau As Variant
Dim LstVqItem As MSComctlLib.ListItem


Sub reliste()
    Dim I&, colonne&, critere As Boolean, D As Date, critere2 As Boolean
    With ListView1
        .ListItems.Clear
              For I = 2 To UBound(Tableau)
            Select Case True
             Select Case True
            Case ComboBox2 <> "" And ComboBox3 = "": critere = Left(Tableau(I, 3), Len(ComboBox2)) = ComboBox2
            Case ComboBox2 = "" And ComboBox3 <> "" And Len(ComboBox3) = 10 And IsDate(ComboBox3): critere = CDate(Tableau(I, 9)) = CDate(ComboBox3)
            Case ComboBox2 <> "" And ComboBox3 <> "" And Len(ComboBox3) = 10 And IsDate(ComboBox3): critere = Left(Tableau(I, 3), Len(ComboBox2)) = ComboBox2: critere2 = CDate(Tableau(I, 9)) = CDate(ComboBox3): critere = critere And critere2
            Case ComboBox2 = "" And ComboBox3 = "": critere = True
            End Select
            If critere Then
                Set LstVqItem = .ListItems.Add(Text:=Tableau(I, 1))
                For colonne = 2 To UBound(Tableau, 2)
                    With LstVqItem
                        .ListSubItems.Add , , Tableau(I, colonne)
                    End With
                Next
            End If
        Next
    End With

End Sub

Private Sub Frame7_Click()

End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger): KeyAscii = Asc(UCase(Chr(KeyAscii))): End Sub
Private Sub ComboBox2_Change(): reliste: End Sub
Private Sub ComboBox3_Change(): reliste: End Sub




Private Sub UserForm2_Initialize()
   Dim I&, colonne&
    With UserForm2.ListView1
        .ListItems.Clear
        With .ColumnHeaders
            .Clear
            .Add Text:="Dossier°", Width:=40, Alignment:=lvwColumnLeft
            .Add Text:="Date", Width:=40, Alignment:=fmAlignmentLeft
            .Add Text:="Agent", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Civilité", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Nom", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Prénom", Width:=80, Alignment:=fmAlignmentLeft
            .Add Text:="Société", Width:=80, Alignment:=fmAlignmentLeft
            .Add Text:="Adresse", Width:=60, Alignment:=lvwColumnLeft
            .Add Text:="Téléphone Fixe", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Portable", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Mail", Width:=80, Alignment:=lvwColumnLeft
            .Add Text:="Raison de l'appel(Liste)", Width:=80, Alignment:=fmAlignmentLeft
            .Add Text:="Autre raison d'appel(hors-liste)", Width:=80, Alignment:=fmAlignmentLeft
            
        End With
        .Gridlines = True: .BorderStyle = ccFixedSingle: .FullRowSelect = True: .View = lvwReport
        Tableau = Sheets("BASE DE DONNEES").Range("A1", Cells(Rows.Count, "P").End(xlUp)).Value

        For I = 2 To UBound(Tableau)
            Set LstVqItem = .ListItems.Add(Text:=Tableau(I, 1))
            With LstVqItem
                For colonne = 2 To UBound(Tableau, 2)
                    .ListSubItems.Add , , Tableau(I, colonne)
                Next
            End With
        Next
    End With
End Sub

Private Sub MultiPage1_Change()

End Sub