Récupérer données dans cellules

[RONIBO]

Bonjour,

J'aimerais récupérer des données situant dans une colonne et les mettre dans un combobox.

Dans mon fichier j'ai une feuille nommée "Répertoire", il y a une colonne nommée "Nom de la Société"

J'aimerais prendre cette colonne et transférer le contenu dans un combobox de mon usf (Mail)

J'aurais plusieurs conditions :

- Ne pas lister les doublons
- Dans le combobox mettre seulement les nom de société
- Trie de A à Z


Je vous joint un fichier exemple.

Merci d'avance.

A+

 

[Theze]

Re : Récupérer données dans cellules

Bonsoir,

A mettre dans le module de ta Form :

Private Sub UserForm_Initialize()

    ChargerCombo
    
End Sub

Sub ChargerCombo()

    Dim Plage As Range
    Dim Cel As Range
    Dim Dico As Object
    Dim ListeCle As Variant
    Dim I As Integer
    Dim J As Integer
    Dim Tempo As String
       
    Set Dico = CreateObject("Scripting.Dictionary")
    
    With Worksheets("Répertoire")
     
        Set Plage = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp))
    
    End With

    For Each Cel In Plage
        
        If Dico.exists(Cel.Value) = False Then
        
            Dico.Add Cel.Value, Cel.Value
            
        End If
        
    Next Cel
    
    ListeCle = Dico.Keys
    
    'tri moulinette
    For I = 0 To Dico.Count - 2
    
        For J = I + 1 To Dico.Count - 1
        
            If ListeCle(I) > ListeCle(J) Then
            
                Tempo = ListeCle(J)
                
                ListeCle(J) = ListeCle(I)
                
                ListeCle(I) = Tempo
                
            End If
            
        Next J
        
    Next I
    
    For I = 0 To Dico.Count - 1
    
        ComboBoxListeClient.AddItem ListeCle(I)
        
    Next I

End Sub

Hervé.

 

[RONIBO]

Re : Récupérer données dans cellules

Bonsoir,

Merci pour le code que tu m'as proposé 🙂

Je bloque sur un code d'erreur "Objet requis"
Et la ligne Mail.Show passe en jaune,

Voici ce que j'ai fait :

J'ai mis ça dans l'usf

Private Sub UserForm_Initialize()

ChargerCombo

End Sub

Et le reste dans un module. Je me trompe?

 

[Theze]

Re : Récupérer données dans cellules

Re,

Il te faut mettre aussi la proc dans le module de la Form car sinon, il ne trouve pas l'objet Combo ou alors, il te faut la passer en argument.

Hervé.

 

[RONIBO]

Re : Récupérer données dans cellules

Re,

J'ai pas trop compris,

J'ai mis le tout dans un module laissé vide l'usf, il s'ouvre mais rien dans le combobox

 

[Theze]

Re : Récupérer données dans cellules

ou encore le préfixer du nom de la Form dans la sub "ChargerCombo" :

For I = 0 To Dico.Count - 1

    Mail.ComboBoxListeClient.AddItem ListeCle(I)
    
Next I

Hervé.

 

[Theze]

Re : Récupérer données dans cellules

La procédure évènementielle "UserForm_Initialize()" se déclenche au lancement de la Form, dans cette proc, la ligne "ChargerCombo" appelle cette procédure qui ensuite fait ce que tu demande.

 

[RONIBO]

Re : Récupérer données dans cellules

Re,

J'ai fait se que tu m'as dit, ça ne marche pas...

 

[RONIBO]

Re : Récupérer données dans cellules

Re,

J'ai pu le faire fonctionner, par contre si les cellules à partir de A4 sont vides, il me met le titre de la colonne dans le combobox.

Tu as une idée à ca?

a+

 

[grisan29]

Re : Récupérer données dans cellules

bonsoir Ronibo,Theze

je te retourne ton fichier avec la combobox qui se rempli a l'initialisation de l'usf et si "A4" est vide la combobox n'affiche que les lignes suivantes en laissant un vide a la place de "A4"

Pascal

 

[RONIBO]

Re : Récupérer données dans cellules

Merci Grisan29,

J'ai également réussi à le faire fonctionner, par contre si la feuille "Répertoire" vide j'ai le titre qui se met dans le combobox.

Tu as le même probleme?

 

[grisan29]

Re : Récupérer données dans cellules

bonsoir Ronibo
tu n'avais pas dit dans #9 que c'était la feuille "répertoire"dont il s'agissait oui j'ai le même souci
mais aura tu souvent ta feuille vide?

Pascal

 

[RONIBO]

Re : Récupérer données dans cellules

Re,

Oui Pascal, j'aurais souvent la feuille libre 🙂

 

[grisan29]

Re : Récupérer données dans cellules

bonjour a tous
comme je ne peux pas plus je passe la main a Theze où un autre

Pascal

 

[RONIBO]

Re : Récupérer données dans cellules

Bonsoir,

Je vais attendre sagement pour trouver une solution à mon problème.

Je le reprécise au cas ou,

J'aimerais mettre le combobox "ComboBoxListeClient" vide si aucune données dans la feuille "Répertoire" (à partir de la cellule A4)

Actuellement j'ai une ligne vide et le titre du tableaux dans le combobox.

Voici le code que j'utilise :

Sub ComboBoxClient()
Dim Plage As Range
Dim Cel As Range
Dim Dico As Object
Dim ListeCle As Variant
Dim I As Integer
Dim J As Integer
Dim Tempo As String
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Répertoire")
Set Plage = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
If Dico.exists(Cel.Value) = False Then
Dico.Add Cel.Value, Cel.Value
End If
Next Cel
ListeCle = Dico.Keys
For I = 0 To Dico.Count - 2
For J = I + 1 To Dico.Count - 1
If ListeCle(I) > ListeCle(J) Then
Tempo = ListeCle(J)
ListeCle(J) = ListeCle(I)
ListeCle(I) = Tempo
End If
Next J
Next I
For I = 0 To Dico.Count - 1
Mail.ComboBoxListeClient.AddItem ListeCle(I)
Next I
End Sub

Merci Theze pour le code 🙂

Merci d'avance à vous 🙂

a+