VBA 2 valeurs dans 2 textbox selon

Version imprimable

23/10/2014, 10h54
flost

1 pièce(s) jointe(s)

VBA 2 valeurs dans 2 textbox selon

Bonjour à tous,

Voila je coince un peu pour effectuer l'inscription de 2 valeurs dans 2 textbox selon 2 critères !

Voici un petit récapitulatif pour vous expliquer :
http://img15.hostingpics.net/pics/996469HELP.jpg

Si certains savent comment faire merci de m'expliquer un peu :roll: avec une valeur et une textbox tout est ok, mais avec 2 critères...je sèche !

Je laisse également un fichier pour vous en dire plus :)

Merci !!!
23/10/2014, 11h01
Hao76

Bonjour,

Peux-tu nous en dire plus sur ton problème ?

Utilité ? Objectif ? Que doivent faire tes textbox ?

Cordialement
23/10/2014, 11h16
flost

Le bute : afficher dans 2 Textbox les deux diamètres correspondant à la machine et la longueur.

Finalité créer une feuille de chiffrage pour le raccordement de machine.

Tout le reste est fait il ne me reste plus qu'a trouver cette solution :(
23/10/2014, 11h56
Hao76

Hum.. je peux vous faire quelque chose, mais je ne connais pas de solution sans passer par une "usine à gaz"... Je vais voir ce que je peux faire dès que possible =)

Bonjour,
test ça

Code:

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
Dim LineMachine As New Collection
Dim ColDiametre As New Collection
 
Private Sub ComboBox1_Change()
If Me.ComboBox2.ListIndex = -1 Then Exit Sub
TextBox1 = Sheets("Feuil1").Cells(LineMachine("L_" & Me.ComboBox1.Text), ColDiametre("C_" & Me.ComboBox2.Text))
TextBox2 = Sheets("Feuil1").Cells(LineMachine("L_" & Me.ComboBox1.Text), ColDiametre("C_" & Me.ComboBox2.Text) + 1)
End Sub
 
Private Sub ComboBox2_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
TextBox1 = Sheets("Feuil1").Cells(LineMachine("L_" & Me.ComboBox1.Text), ColDiametre("C_" & Me.ComboBox2.Text))
TextBox2 = Sheets("Feuil1").Cells(LineMachine("L_" & Me.ComboBox1.Text), ColDiametre("C_" & Me.ComboBox2.Text) + 1)
End Sub
 
Private Sub Label4_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim R As Range
Dim I As Long
Set R = Sheets("Feuil1").Range("a2").CurrentRegion
For I = 2 To R.Rows.Count
If Trim("" & R(I, 1)) <> "" Then LineMachine.Add I + 1, "L_" & R(I, 1).Value
Next
For I = 2 To R.Columns.Count
If Trim("" & R(1, I)) <> "" Then ColDiametre.Add I, "C_" & R(1, I).Value
Next
 
ComboBox1.RowSource = "a4:a14"
ComboBox2.RowSource = "o3:o5"
 
End Sub

23/10/2014, 12h38
flost

Super ! :mouarf: merci beaucoup, ne me reste plus qu'a l'adapter à mon véritable tableau !!!
23/10/2014, 13h38
Hao76

Utilisation de collection... ahh je suis nul j'ai pas pensé à ca ! Bien trouvé en tout cas !