Discussion :

[Pierre1991]

Bonjour à tous,

Je fais un mini formulaire, voici ma base de donnée :

Type véhicule	Option Clim	Pseudo
Fiat Ducato 2,3L E5+E5b	sans clim	a200
Iveco Daily 2,3L E5+E5OBD	sans clim	a201
Iveco Daily GMK 2,3L E5B	sans clim	a202
Iveco Daily GMK 2,3L E5B	avec clim	a203
Iveco Daily GMK 3L E5+E6	sans clim	a204
Iveco Daily GMK 3L E5+E6	avec clim	a205

Dans mon formulaire il y a : combobox1 -> colonne " Type Véhicule "
combobox2 -> colonne "option clim"
textbox1 -> la case corespondate aux choix de la combobox

Par exemple si je prend : combobox1= Iveco Daily GMK 2,3L E5B
combobox2 = sans clim
alors textbox1 = a202

Voici ce que j'ai pour l'instant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub lancement_pseudo()
Dim i As Integer
Dim Cell As Range
 
With Sheets("base").Range("B3") 'Inserer colonne A dans combobox1
UserForm1.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
 
 
For i = 1 To Sheets("base").Range("C65536").End(xlUp).Row
  ComboBox2 = Sheets("base").Range("C" & i)
  If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("base").Range("C" & i)
Next i
 
    For Each Cell In Worksheets("base").Range("c3:c24")
           UserForm1.ComboBox2 = Cell
        If UserForm1.ComboBox2.ListIndex = -1 Then _
           UserForm1.ComboBox2.AddItem Cell
    Next Cell
 
 
UserForm1.Show
End Sub

Maintenant il n'y a plus qu'à coder la textbox mais je sèhe.

[Philippe Tulliez]

Bonjour,

Maintenant il n'y a plus qu'à coder la textbox mais je sèhe.

Si tu utilises un formulaire, tu peux t'inspirer de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

[Pierre1991]

J'ai eu un peu d'aide et cela fonctionne niquel :

Code de l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Option Explicit 'rend obligatoire la déclaration des variable (dim,public,private)
 
 
Private Sub ComboBox1_Click()
    Dim Plage(), i%
    'chargement de la combobox
    Me.ComboBox2.Clear
    Me.TextBox1 = ""
    Plage = Range("Base[[Type véhicule]:[Option Clim]]") ' tableau a(n,1) pour rapidité
    For i = LBound(Plage) To UBound(Plage)
        If Plage(i, 1) = Me.ComboBox1.Text Then
            Me.ComboBox2.AddItem (Plage(i, 2))
            Me.ComboBox2.List(Me.ComboBox2.ListCount - 1, 1) = i
        End If
    Next i
End Sub
 
 
Private Sub ComboBox2_Click()
    Me.TextBox1 = Range("Base[Pseudo]").Cells(Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1))
 
End Sub
 
Private Sub UserForm_Initialize() ' quand tu ouvre un usf c'est la 1ere macro qui est appelé
    Dim MonDico As Object, Plage(), i%
    'chargement de la combobox
    Set MonDico = CreateObject("Scripting.Dictionary")
    Plage = Range("Base[Type véhicule]") ' tableau a(n,1) pour rapidité
    For i = LBound(Plage) To UBound(Plage)
        If Plage(i, 1) <> "" Then MonDico(Plage(i, 1)) = ""
    Next i
    Me.ComboBox1.List = MonDico.keys
 
  End Sub

Code dans module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub lancement_pseudo()
Dim i As Integer
 
With Sheets("Feuil1").Range("B3") 'Inserer colonne A dans combobox1
UserForm1.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
 
 
For i = 1 To Sheets("feuil1").Range("C65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("C" & i)
  If ComboBox2 = -1 Then ComboBox2.AddItem Sheets("feuil1").Range("C" & i)
Next i
 
UserForm1.Show
 
End Sub