Userform VBA Résolu/Fermé

Question

Bonjour, 

Je souhaiterais lier des données qui se trouvent dans une colonne d'un fichier source avec une textbox qui se trouve dans un Cadre de mon formulaire. Le but étant de récupérer dans cette textbox les différentes catégories de produits qui se trouvent dans ma colonne du fichier source.

Dans cette colonne de mon tableau du fichier source, il apparait plusieurs fois les mêmes catégories de produits. Je souhaiterais que juste les différents type de catégorie apparaissent 1 unique fois dans ma textbox.

Et je souhaiterais que cela se réalise quand je clique sur le bouton "ouvrir".

Je ne sais pas du tout comment m'y prendre...si quelqu'un pourrait m'éclairée svp?

Voilà ce que j'ai commencer à faire:


Private Sub Ouvrir1_Click()

    Dim Fichier As String
    Fichier = Application.GetOpenFilename
    Workbooks.Open Fichier
    Sheets("GCE_Globale_cible").Activate
    CheminSo.Caption = Fichier
    

End Sub
Merci :)

Configuration: Windows XP / Internet Explorer 6.0

2000Kennedy · Answer

petit up sur ce post :)

Polux31 · Answer

Bonjour,

Voilà un exemple. Sur mon Userform, j'ai une ListBox (Listbox1) et un bouton (OuvrirList). Les données à afficher sont sur la colonne G de la feuille 1 de mon classeur courant. Le code est sur l'éditeur de mon Userform. Quand je clique sur le bouton, la liste s'affiche dans ListBox1.

Tu dois pouvoir l'adapter facilement à ton cas.


Option Explicit

'Variables globales
Private mTab()      'tableau de données à afficher
Private ind As Long 'Indice de tableau


Private Sub OuvrirList_Click()
Dim ws As Worksheet 'Objet feuille
Dim derlig As Long  'Dernière ligne renseignée
Dim i As Long       'Indice de boucle

    ReDim mTab(ind)     'Initialisation du tableau
    '
    Set ws = Worksheets(1)  'Instance de la feuille
    '
    derlig = ws.Range("G65536").End(xlUp).Row   'Recherche de la dernière ligne de la colonne G
    '
    'Boucle pour parcourir la colonne, ici la colonne G
    For i = 2 To derlig
        'On vérifie si la valeur existe déjà dans le tableau
        If doesExist(ws.Range("G" & i).Value) = False Then
            'La valeur n'existe pas, on la met dans le tableau
            ReDim Preserve mTab(ind)
            mTab(ind) = ws.Range("G" & i).Value
            ind = ind + 1
        End If
    Next i
    '
    'Appel de la procédure d'affichage dans une listbox
    AfficheList
    
End Sub
'// Procédure d'affichage du contenu du tableau dans un Listbox
Sub AfficheList()
Dim i As Long

    For i = LBound(mTab()) To UBound(mTab())
        Me.ListBox1.AddItem mTab(i)
    Next i
    
End Sub

'//Fonction qui contrôle si la valeur existe dans le tableau
'//Retour = Booléen
'//Paramètre = str - la valeur à contrôler
'
Private Function doesExist(ByVal str As Variant) As Boolean
Dim i As Long
    
    'On parcours le tableau
    For i = LBound(mTab()) To UBound(mTab())
        'Si la valeur existe dans le tableau on retourne True
        If mTab(i) = str Then
            doesExist = True
            'Et on sort de la fonction
            Exit Function
        End If
    Next i
    'Si la valeur n'est pas trouvée, on retourne False
    doesExist = False
    
End Function

Bon courage

;o)

2000Kennedy · Answer

Merci j'essaye tout de suite. :) :)

2000Kennedy · Answer

Code adapté merci beaucoup :)

Polux31 · Answer

Re,

Dans la userform avec les listboxes :

Private Sub CommandButton1_Click()
Dim Fichier As String
Dim wk As Workbook
Dim ws As Worksheet

Fichier = Application.GetOpenFilename

Set wk = Workbooks.Open(Fichier)
Set ws = wk.Worksheets(1)    'A adapter

Call Module1.OuvrirList("A", ws, 1)    'A adapter
Call Module1.OuvrirList("B", ws, 2)    'A adapter
Call Module1.OuvrirList("C", ws, 3)    'A adapter
Call Module1.OuvrirList("D", ws, 4)    'A adapter

End Sub

Dans un module nommé Module1:

Option Explicit


'Variables globales
Private mTab()      'tableau de données à afficher
Private ind As Long 'Indice de tableau

Public Sub OuvrirList(ByVal col As String, ByRef mSheet As Worksheet, ByVal mList As Integer)
Dim ws As Worksheet 'Objet feuille
Dim derlig As Long  'Dernière ligne renseignée
Dim i As Long       'Indice de boucle

    ind = 0
    ReDim mTab(ind)     'Initialisation du tableau
    '
    derlig = mSheet.Range(col & 65536).End(xlUp).Row   'Recherche de la dernière ligne de la colonne
    '
    'Boucle pour parcourir la colonne
    For i = 2 To derlig
        'On vérifie si la valeur existe déjà dans le tableau
        If doesExist(mSheet.Range(col & i).Value) = False Then
            'La valeur n'existe pas, on la met dans le tableau
            ReDim Preserve mTab(ind)
            mTab(ind) = mSheet.Range(col & i).Value
            ind = ind + 1
        End If
    Next i
    '
    'Appel de la procédure d'affichage dans une listbox
    AfficheList (mList)
    
End Sub
'// Procédure d'affichage du contenu du tableau dans un Listbox
Private Sub AfficheList(ByVal mList As Integer)
Dim i As Long

With UserForm1
    Select Case mList
        Case 1
            For i = LBound(mTab()) To UBound(mTab())
                .ListBox1.AddItem mTab(i)
            Next i
        Case 2
            For i = LBound(mTab()) To UBound(mTab())
                .ListBox2.AddItem mTab(i)
            Next i
        Case 3
            For i = LBound(mTab()) To UBound(mTab())
                .ListBox3.AddItem mTab(i)
            Next i
        Case 4
            For i = LBound(mTab()) To UBound(mTab())
                .ListBox4.AddItem mTab(i)
            Next i
    End Select
End With
    
End Sub

'//Fonction qui contrôle si la valeur existe dans le tableau
'//Retour = Booléen
'//Paramètre = str - la valeur à contrôler
'
Private Function doesExist(ByVal str As Variant) As Boolean
Dim i As Long
    
    'On parcours le tableau
    For i = LBound(mTab()) To UBound(mTab())
        'Si la valeur existe dans le tableau on retourne True
        If mTab(i) = str Then
            doesExist = True
            'Et on sort de la fonction
            Exit Function
        End If
    Next i
    'Si la valeur n'est pas trouvée, on retourne False
    doesExist = False
    
End Function

J'espère que ça ira pour toi.

;o)

2000Kennedy · Answer

Merci Beaucoup :D Cha marche :) Bonne journée! :) C'est la deuxième fois que tu m'aides sur ce fofo ! ;)

Userform VBA

6 réponses

Discussions similaires