User form combobox et textbox

Bonjour,

Voici un fichier test qui n'est pas de moi, je voudrais si possible pourvoir alimenté les combobox et les textbox et que l'on puisse m'expliquer comment faire. Mon fichier réel représente environ 160 noms sur 2 budgets (combobox 1)pour l'instant, comme vous pouvez le constater certains sites on juste budget, type(combobox 2), lieux(combobox 3), adresse (combobox 4)numéro 14 chiffres et en suite 2 ou 3 chiffres.

Merci de votre possible aide

Cordialement

Bonjour Sweetee1

Pour commencer, merci de compléter votre profil en indiquant la version d'Excel utilisée
https://www.excel-pratique.com/fr/compte/forum-profil

Ensuite, en faisant des recherches vous avez tout ce qu'il faut sur ce forum pour vous aider

A+

Bonsoir ,

Je pense avoir cherché sur l ensemble du forum, mais si vous avez des pistes je suis preneur.

Merci

Cordialement

Bonjour sweetee1

Avec les bons critères pour notre ami (ou pas) Google
https://www.google.com/search?q=vba+alimenter+des+combobox

Voici une possibilité
https://forum.excel-pratique.com/excel/alimenter-combobox-85279

A+

Bonjour,

Merci pour ses informations, je vais essayer.

CDT

Bonjour,

Je suis à la page 14 recherche combobox sur 412 , je pense que je vais arrêter le jeux de piste .Je ne comprends plus rien ou pas grand chose.

Merci

CDT

Re,

Hein

Il fallait regarder le 2ème lien donné ou je n'ai rien compris à la demande

Private Sub UserForm_Initialize()
    Dim n%, i%
    With Worksheets("para")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            ComboBox1.AddItem .Cells(i, 1)
        Next i
    End With
End Sub

A+

Bonsoir,

Déjà merci de me répondre , cela alimente bien les combobox mais je me retrouve avec 10 fois budget , 10 fois balo etc .Ma demande était de pouvoir continuer à alimenter les 2 textbox (F et G) suivantes (et comprendre le fonctionnement) .

Merci

CDT

Bonjour , juste un petit up pour faire remonter le sujet .

CDT

Bonjour à tous,

Un essai pour alimenter la ComboBox1 sans doublons....

Private Sub UserForm_Initialize()
 Dim ws As Worksheet, Mondico As Object, tb As Variant, i%
  Set ws = Sheets("TEST")
  Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).ListColumns(1).DataBodyRange
   'tb = ws.ListObjects("Tableau1").ListColumns("A").DataBodyRange
    For i = LBound(tb) To UBound(tb)
     If tb(i, 1) <> "" Then Mondico(tb(i, 1)) = ""
    Next i
   Me.ComboBox1.List = Mondico.keys
End Sub

Cordialement,

Bonjour,

Merci de prendre le temps de me répondre pour la 1 combobox nickel mais pour la suite de l userform ,je peut faire comment.Merci

CDT

Re,

A tester...pour les ComboBox....en cascade...

Option Explicit
 Dim ws As Worksheet
 Dim NbLignes As Integer, Mondico As Object, tb As Variant, i%

Private Sub UserForm_Initialize()
  Set ws = Sheets("TEST"): Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).ListColumns(1).DataBodyRange
    For i = LBound(tb) To UBound(tb)
     If tb(i, 1) <> "" Then Mondico(tb(i, 1)) = ""
    Next i
   Me.ComboBox1.List = Mondico.keys
End Sub

Private Sub ComboBox1_Change()
  Set ws = Sheets("TEST"): Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).DataBodyRange
   ComboBox2.Clear
    For i = LBound(tb, 1) To UBound(tb, 1)
     If tb(i, 1) = ComboBox1 Then Mondico(tb(i, 2)) = ""
    Next i
   Me.ComboBox2.List = Mondico.keys
End Sub

Private Sub ComboBox2_Change()
  Set ws = Sheets("TEST"): Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).DataBodyRange
   ComboBox3.Clear
    For i = LBound(tb, 1) To UBound(tb, 1)
     If tb(i, 2) = ComboBox2 Then Mondico(tb(i, 3)) = ""
    Next i
   Me.ComboBox3.List = Mondico.keys
End Sub

Private Sub ComboBox3_Change()
  Set ws = Sheets("TEST"): Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).DataBodyRange
   ComboBox4.Clear
    For i = LBound(tb, 1) To UBound(tb, 1)
     If tb(i, 3) = ComboBox3 Then Mondico(tb(i, 4)) = ""
    Next i
   Me.ComboBox4.List = Mondico.keys
End Sub

Private Sub ComboBox4_Change()
  Set ws = Sheets("TEST"): Set Mondico = CreateObject("Scripting.Dictionary")
   tb = ws.ListObjects(1).DataBodyRange
   ComboBox5.Clear
    For i = LBound(tb, 1) To UBound(tb, 1)
     If tb(i, 4) = ComboBox4 Then Mondico(tb(i, 5)) = ""
    Next i
   Me.ComboBox5.List = Mondico.keys
End Sub

Cordialement,

Re bonjour,

Que du bonheur , une dernière juste pouvoir mettre les texboxs à la suite et me mettre des explications dans le code ,que je puisse comprendre.

Merci

CDT

Re,

A tester...

Cordialement,

Re ,

Merci que dire bravo !!!, merci pour les explications maintenant il les comprendre. Et intégrer l'ensemble des codes dans l userform original.Et encore Merci

CDT