Userform VBA

Résolu

2000Kennedy Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 16 sept. 2010 à 17:10

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 :)

A voir également:

Userform VBA
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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)

Réponse 2 / 6

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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)

Réponse 3 / 6