XL 2010 renvoyer la valeur d'une textbox dans une autre textbox en fonction de la valeur d'une combobox

ccia · 24 Avril 2022

Bonjour à tous,

étant un novice en vba, je cherche à améliorer un code qui me semble très lourd.

Je cherche à renvoyer la valeur numerique d'une textbox dans une autre textbox en fonction de la valeur texte d'une combobox

voici le code dans la userform :
Private Sub calcul()
If ComboBox2.Value = "Alimentation stock boisson" Then
TextBox11 = TextBox6
ElseIf ComboBox2.Value = "60281 stock" Then
TextBox12 = TextBox6
ElseIf ComboBox2.Value = "plaques stock" Then
TextBox13 = TextBox6
End If
End Sub

Private Sub TextBox6_Change()
calcul
End Sub

Private Sub TextBox11_Change()
calcul
End Sub

Private Sub TextBox12_Change()
calcul
End Sub

Private Sub TextBox13_Change()
calcul
End Sub

Merci d'avance . Antoine

Eric C · 24 Avril 2022

Bonsoir le forum
Bonsoir ccia
Oupssss - Bonsoir Philippe

Pour éviter la personne qui va te venir en aide, bien vouloir joindre un fichier anonymisé avec le cbo, les TextBoxs, le CommandButton. Merci
Bonne soirée à toutes & à tous
@+ Eric c

Phil69970 · 24 Avril 2022

Bonjour @ccia

Edit : Bonjour Eric

Un essai à l'aveugle :

VB:

Sub calcul()

Select Case ComboBox2.Value
Case Is = "Alimentation stock boisson"
    TextBox11.Value = TextBox6.Value
Case Is = "60281 stock"
    TextBox12.Value = TextBox6.Value
Case Is = "plaques stock"
    TextBox13.Value = TextBox6.Value
End Select

End Sub

Sans fichier et sans voir le reste du code c'est un peu au pif...

@Phil69970

ccia · 24 Avril 2022

Re bonjour,
oui avec un fichier cela c'est mieux, surtout que j'aurais certainement d'autres questions

mille excuses

XL 2010 renvoyer la valeur d'une textbox dans une autre textbox en fonction de la valeur d'une combobox

ccia

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

ccia

XLDnaute Nouveau

Pièces jointes

Discussions similaires