Combobox dans userform

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

 

[syllage]

Re : Combobox dans userform

re,
il y as un petit soucis avec mon liens vers le fichier donc en voici un nouveau :
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[soenda]

Re : Combobox dans userform

Bonjour le fil, Syllage

Je n'ai pas regardé tout le code.

Cependant j'attire ton attention sur l'usage du Select Case,
la règle est : 1 "Select" et Plusieurs "Case" (1 sélection de plusieurs cas)

Exemple d'écriture pour la Sub combobox4_change()

Private Sub combobox4_change()
 
    ComboBox6.Visible = False 'Cacher
    ComboBox7.Visible = False 'Cacher
    ComboBox8.Visible = False 'Cacher
    ComboBox9.Visible = False 'Cacher

    Select Case ComboBox4
    
        Case "Fournitures": ComboBox6.Visible = True 'afficher
  
        Case "Autres": ComboBox7.Visible = True 'Afficher
  
        Case "Matèriels": ComboBox8.Visible = True 'Afficher
  
        Case "Distributeurs": ComboBox9.Visible = True 'Afficher
        
    End Select
  
End Sub

Exemple d'écriture pour la Sub combobox5_change() (sans Select)

Private Sub ComboBox5_Change()

    TextBox1.Visible = (ComboBox5 = "Entrées") [COLOR="SeaGreen"]' ComboBox5 = "Entrées" renvoie Vraie ou Faux[/COLOR]
    TextBox2.Visible = (ComboBox5 = "Sorties")
 
End Sub

A propos du With :
il permet notamment d'éviter d'écrire plusieurs fois le même terme dans un bloc (dans l'exemple, TextBox1).

Exemple d'écriture pour la Sub TextBox1_Exit

Private Sub TextBox1_Exit(ByVal cancel As MSForms.ReturnBoolean)

With Me.TextBox1
    If IsNumeric([COLOR="#0000ff"].Text[/COLOR]) Then [COLOR="#0000ff"].Text[/COLOR] = Format([COLOR="Blue"].Text[/COLOR], "# ###")
End With

End Sub

Bonne continuation

 

[syllage]

Re : Combobox dans userform

Soenda,

Merci de ton attention je vais regarder tout ça.

 

[syllage]

Re : Combobox dans userform

Re le fil,

Pour le personnes que sa interesserais voici un fichier qui fonctionne sans les modification donné par Soenda (merci quand même à toi)

Cijoint.fr - Service gratuit de dépôt de fichiers

cdt

 

[syllage]

Re : Combobox dans userform

Soenda,

en testant ton code je l'ai mieux compris, disons que mon code fonctionne mais es long à écrire alors que le tiens es plus rapide.

dans tout les cas je mes ton code en application et te remercie encore une fois pour ton attention.

cdt