COdification

Bonjour

j'ai un fichier avec un stock

je souhaiterai que, lorsque je choisi un type de pièce dans la combobox 1 se situant dans l'userform1 ,

cela m'incrémente la codification d'une unité (codification déjà faite à coté du tableau ) dans la textebox4 en fonction du type de pièce choisi.

Private Sub ComboBox1_Change()

Select Case Code

Case Is = diver

TextBox4.Value = Sheets("Stock modifié").Range("T4").Value + 1

Case Is = éclairage

TextBox4.Value = Sheets("Stock modifié").Range("T5").Value + 1

Case Is = electrique

TextBox4.Value = Sheets("Stock modifié").Range("T6").Value + 1

Case Is = Gaz

TextBox4.Value = Sheets("Stock modifié").Range("T7").Value + 1

Case Is = Gaz / Eau

TextBox4.Value = Sheets("Stock modifié").Range("T8").Value + 1

Case Is = mécanique

TextBox4.Value = Sheets("Stock modifié").Range("T9").Value + 1

Case Is = pièce_Machine

TextBox4.Value = Sheets("Stock modifié").Range("T10").Value + 1

Case Is = sécurité

TextBox4.Value = Sheets("Stock modifié").Range("T11").Value + 1

Case Is = Soudure

TextBox4.Value = Sheets("Stock modifié").Range("T12").Value + 1

Case Is = Hydraulique

TextBox4.Value = Sheets("Stock modifié").Range("T13").Value + 1

End Select

help me please

Fais attention à que l'écriture soit la même (Majuscules, accents compris)

Private Sub ComboBox1_Change()

Select Case ComboBox1.Value
Case "diver"
TextBox4.Value = Sheets("Stock modifié").Range("T4").Value + 1

Case "éclairage"
TextBox4.Value = Sheets("Stock modifié").Range("T5").Value + 1

Case "electrique"
TextBox4.Value = Sheets("Stock modifié").Range("T6").Value + 1

Case "Gaz"
TextBox4.Value = Sheets("Stock modifié").Range("T7").Value + 1

Case "Gaz / Eau"
TextBox4.Value = Sheets("Stock modifié").Range("T8").Value + 1

Case "mécanique"
TextBox4.Value = Sheets("Stock modifié").Range("T9").Value + 1

Case "pièce_Machine"
TextBox4.Value = Sheets("Stock modifié").Range("T10").Value + 1

Case "sécurité"
TextBox4.Value = Sheets("Stock modifié").Range("T11").Value + 1

Case "Soudure"
TextBox4.Value = Sheets("Stock modifié").Range("T12").Value + 1

Case "Hydraulique"
TextBox4.Value = Sheets("Stock modifié").Range("T13").Value + 1

End Select

End Sub

merci cela marche nickel

j'aurait une dernière demande dans entrée (userform USF_C) j'ai rajouter une textbox pour le code article je voudrai que lorsque j 'écris le code cela affiche le type , l’appellation et lorsque je sélectionne une pièce cela affiche le code si il est présent, le reste fonctionne correctement mais je n'arive pas a rajouter cette textbox.

help please