Discussion :

[flost]

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 :


Si certains savent comment faire merci de m'expliquer un peu 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 !!!

[Hao76]

Bonjour,

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

Utilité ? Objectif ? Que doivent faire tes textbox ?

Cordialement

[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

[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 =)

[Invité]

Bonjour,
test ça

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

[flost]

Super ! merci beaucoup, ne me reste plus qu'a l'adapter à mon véritable tableau !!!