Combobox dans userform

Version imprimable

19/09/2009, 13h36
syllage

1 pièce(s) jointe(s)

Combobox dans userform

Bonjour à toutes et à tous,

J'ai un petit soucis dans mon projet que je n'arrive pas à réalisé c'est donc pour cela que je me rapproche de vous pour, peut-être, trouver une solution.

Voici l'explication de mon projet :

Avec un commandbutton j'appel un userform avec plusieurs combobox (qui fonctionnent correctement), ces combobox me remplissent différentes parties de ma feuilles excel selon la combobox que je selectionne.

Mon problème :

Dans 4 des mes combobox (appelé : fournitures, autres, matèriels et distributeurs) j'ai besoin quand je selectionne l'une des lignes que cela me remplisse en même temps les cellules désignation et prix correspondants.
Pour la désignation : aucun problème cela fonctionne correctement,
Pour le prix : après 1 semaine d'essaie différents cela ne fonctionne pas

Donc je viens vers vous pour essayer de m'aider à trouver une selection à mon problème.

Je vous joint un fichier reprenant les grandes lignes de mon projet pour avoir une meilleur vision de mon soucis.

Par avance merci pour tout l'aide que vous pourrez m'apporter.
19/09/2009, 15h01
Antoniom

Hello,

Pas évident à comprendre tes codes du bouton "Enregistrer".

Si j'ai bien compris...

Les codes que j'ai rajoutés sont entourés d'étoiles.

Bonne continuation.

Anto.

bonjour syllage Antoniom le forum
une autre methode en utilisant ComboBox.List(ComboBox.ListIndex, 1) sans trop toucher a son code qui demande a être simplifier entre autre!!

debut du code....
Code:

1 2 3 4 5 6 7 8 9 10 11 With Sheets(Nom) .Cells(DerLig, 1) = ComboBox1 .Cells(DerLig, 3) = ComboBox3 If ComboBox6.Visible = True Then .Cells(DerLig, 4) = ComboBox6 .Cells(DerLig, 8) = ComboBox6.List(ComboBox6.ListIndex, 1) End If If ComboBox7.Visible = True Then .Cells(DerLig, 5) = ComboBox7 .Cells(DerLig, 9) = ComboBox7.List(ComboBox7.ListIndex, 1) End If
ect....
meme principe pour les autres combos...

19/09/2009, 15h55
syllage

Laeticia, Antoniom,

Merci à vous 2 vos codes aussi bien l'un que l'autre.

Concernant mon code pour le bouton enregistrer sont des morceaux que j'ai récupéré à droite et à gauche et adapter à mon projet.

Encore merci.

rebonjour tu peus déja simplifier cela

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
35
36
37
38
39
40
41
42
Private Sub ComboBox5_Change()
Select Case ComboBox5
  Case "Entrées"
  TextBox1.Visible = True 'afficher
  TextBox2.Visible = False 'Cacher
  End Select
  Select Case ComboBox5
  Case "Sorties"
 TextBox1.Visible = False 'Cacher
 TextBox2.Visible = True 'Afficher
 End Select
  End Sub
 Private Sub combobox4_change()
  Select Case ComboBox4
  Case "Fournitures"
  ComboBox6.Visible = True 'afficher
  ComboBox7.Visible = False 'Cacher
  ComboBox8.Visible = False 'Cacher
  ComboBox9.Visible = False 'Cacher
  End Select
    Select Case ComboBox4
  Case "Autres"
  ComboBox6.Visible = False 'Cacher
  ComboBox7.Visible = True 'Afficher
  ComboBox8.Visible = False 'Cacher
  ComboBox9.Visible = False 'Cacher
  End Select
    Select Case ComboBox4
  Case "Matèriels"
  ComboBox6.Visible = False 'Cacher
  ComboBox7.Visible = False 'Cacher
  ComboBox8.Visible = True 'Afficher
  ComboBox9.Visible = False 'Cacher
  End Select
    Select Case ComboBox4
  Case "Distributeurs"
  ComboBox6.Visible = False 'Cacher
  ComboBox7.Visible = False 'Cacher
  ComboBox8.Visible = False 'Cacher
  ComboBox9.Visible = True 'Afficher
  End Select
End Sub

par

Code:

1
2
3
4
5
6
7
8
Private Sub ComboBox5_Change()
TextBox1.Visible = False: TextBox2.Visible = False
Controls("textbox" & (ComboBox5.ListIndex + 1)).Visible = True
 End Sub
Private Sub combobox4_change()
For i = 6 To 9: Controls("ComboBox" & (i)).Visible = False: Next i
Controls("ComboBox" & (ComboBox4.ListIndex + 6)).Visible = True
End Sub

oubli de mettre .value a tes textbox a la fin autrement sur les cellules petit triangle indiquant une erreur idem combobox

Code:

1
2
.Cells(DerLig, 13) = TextBox1.Value
        .Cells(DerLig, 14) = TextBox2.Value