Discussion :

[syllage]

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.

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

[laetitia]

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 :

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

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

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

[laetitia]

rebonjour tu peus déja simplifier cela

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

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

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 :

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

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