Liaison combobox et textbox

Bonjour a tous

J'ai plusieurs ComboBox et TextBox dans plusieurs pages de mon Userform

se que je veut c'est :

lorsque je sélectionne un élément dans la list du ComboBox1/page1 de userform

je vais introduire plusieurs valeur corresponds a l’élément a partir des Textbox1,Textbox2, Textbox3, .... de la Page1/Userform

et les valeurs insérant dans les TextBox serons renvoyer vers la feuille de calcul "Feuil1" .

- c'est t a dire chaque valeur insérer dans un TextBox sera renvoyer vers une cellule dans la feuille de calcul.

Voir le fichier si-joint

Quelle est le code utiliser SVP?

et merci pour votre aide ...

Bonjour et bienvenue sur le forum

Un essai avec le bouton "Modifier" que j'ai ajouté.

Cela te convient-il ?

Merçi Mr pour votre aide ...

Mr, comment modifier/insérer les paramètres a partir du TextBox de UserForm non pas de la feuille de calcul puisque a la fin du projet je vais caché la feuille de calcul totalement.

Merçi pour votre collaboration

Tu écris :

comment modifier/insérer les paramètres a partir du TextBox de UserForm non pas de la feuille de calcul

La macro charge l’userform de toutes les données qui sont sur les tableaux de la feuille de calcul. La boite de dialogue peut éventuellement modifier ces données sur la feuille de calcul.

Elle pourrait sûrement en faire autre chose mais à condition de savoir quoi … A toi de le préciser !

A te relire.

Bye !

c bon sa marche merçi

slt a tous,

encore une fois, j'ai un autre soucie...

J'ai deux pages (4 ,5) de la boite de dialogue

1. POUR LA PAGE 4 :

Contient deux comboBox qui sont ds mon exemple ComboBox6 et ComboBox7

* Combobox6: Réserve a une list (RSA,RSB,...,RSD)

* Combobox7: Réservé pour les Mouvement ( 02 choix soit: "LIGNE-RHM" ou "LIGNE-UTBS")

je veut remplir des cellules à l'aide des textboxes qui sont conditionné par les 02 combo boxes (6,7) c'est a dire ;

Lorsque je sélectionne dans le combobox6 un élément soit : RSA et dans le comboBox7 (dans l'exemple "LIGNE-RHM")

j'aurai la main d' insérer des valeurs dans les TextBox38,TextBox39, ... ,TextBox43, ces derniers seront renvoyer vers des cellules spécifiés de la Feuille de calcul.

Si

ComboBox6 = "RSA" et Combobox7 = "LIGNE-RHM"

TextBox38 = "F52"

TextBox39 = "F53"

TextBox40 = "M52"

TextBox41 = "M53"

TextBox42 = "N52"

TextBox43 = "N53"

sinon

Si

ComboBox6 = "RSA" et Combobox7 = "LIGNE-UTBS"

les valeurs des TextBox sera:

TextBox38 = "F55"

TextBox39 = "F56"

TextBox40 = "M55"

TextBox41 = "M56"

TextBox42 = "N55"

TextBox43 = "N56"

2. POUR LA PAGE 5:

Pour introduire les valeurs des TextBox33, 34, et 35 via userform

J'ai essayer le code mais sa marche pas !!!!

Private Sub TextBox33_AfterUpdate()

Range("J99").Value = TextBox33.Value

End Sub

Private Sub TextBox34_AfterUpdate()

Range("G99").Value = TextBox34.Value

End Sub

Private Sub TextBox35_AfterUpdate()

Range("L99").Value = TextBox35.Value

End Sub

En vous remerciant d'avance, je vous adresse mes cordiales salutations.

SMail-CH

j'ai essayé avec le code suivant mais sa n'as pas marché

Private Sub ComboBox6_Change()
    With Me
        Select Case .ComboBox6.Value
        Case "RSA"
            Select Case .ComboBox7.Value
            Case "LINE-RHM"
                .TextBox38.Text = "F52"
                .TextBox39.Text = "F53"
                .TextBox40.Text = "M52"
                .TextBox41.Text = "M53"
                .TextBox42.Text = "N52"
                .TextBox43.Text = "N53"
            Case "LINE-UTBS"
                .TextBox38.Text = "F55"
                .TextBox39.Text = "F56"
                .TextBox40.Text = "M55"
                .TextBox41.Text = "M56"
                .TextBox42.Text = "N55"
                .TextBox43.Text = "N56"
            End Select
        End Select
    End With
End Sub

    With Me
        Select Case .ComboBox6.Value
            Case "RSA"
        Select Case .ComboBox7.Value
            Case "LINE-RHM"
                .TextBox38.Text = "F52"
                .TextBox39.Text = "F53"
                .TextBox40.Text = "M52"
                .TextBox41.Text = "M53"
                .TextBox42.Text = "N52"
                .TextBox43.Text = "N53"
            Case "LINE-UTBS"
                .TextBox38.Text = "F55"
                .TextBox39.Text = "F56"
                .TextBox40.Text = "M55"
                .TextBox41.Text = "M56"
                .TextBox42.Text = "N55"
                .TextBox43.Text = "N56"
            End Select
        End Select
    End With
End Sub

Bonjour

Je veux bien essayer de t'aider mais il faut être précis

adel_ch a écrit :

* Combobox7: Réservé pour les Mouvement ( 02 choix soit: "LIGNE-RHM" ou "LIGNE-UTBS")

alors pourquoi dans le code

'ComboBox7
With ComboBox7
   .AddItem "16 Pouce/HEH"
   .AddItem "20 Pouce/UTBS"
End With

On fait comment ?

On ferme le fichier et on passe à autre chose

Regardes ce que j'ai fait

Merçi Mr Banzai64 pour votre réponse,

Oui j'ai fait une faute de frappe ta raison

normalement c'est :

With ComboBox7
   .AddItem "LIGNE-RHM"
   .AddItem "LIGNE-UTBS"
End With

le code fourni de votre part sa marche, c'est sa ce que je veut

il reste une chose .. comment renvoyer les valeurs saisie des TextBoxes vers les cellules ... ?

Merci encore un fois

Bonjour

A tester

Meriç bp