Combo box qui ne prend pas d'entier dans la boucle for each

bonjour a tous le suis entièrement novice en vba et je recherche de l'aide concernant se sujet.

ma combox me retourne les valeurs dans les textbox uniquement losque je sélectionne des chaines de caractère mais pas lorsque qu'il s'agi des entiers.

Salut

essayer de nous envoyer un exemple dans un petit fichier

voici le fichier merci

il y a plusieurs façons essaye avec cette manière :

Private Sub CmbListeTypes_Change()
Dim stgR As String
drlgn = Cells(Rows.Count, 4).End(xlUp).Row
For i = 6 To drlgn 'commence a la 6 lignes
stgR = Cells(i, 4)
If stgR = CmbListeTypes Then 'va chercher la 4 cellule de la ligne 6
Cells(i, 1).Select
Tbcategorie = Range("A" & ActiveCell.Row).Value
Tbmarque = Range("B" & ActiveCell.Row).Value
Cbmodele = Range("c" & ActiveCell.Row).Value
Tbserie = Range("D" & ActiveCell.Row).Value
Tbnom.Value = Range("E" & ActiveCell.Row).Value
Tbprenom.Value = Range("F" & ActiveCell.Row).Value
Tbdateachat.Value = Range("G" & ActiveCell.Row).Value
Tbprixachat.Value = Range("H" & ActiveCell.Row).Value
Tbnomposte.Value = Range("I" & ActiveCell.Row).Value
End If
Next i

Respect 😀

Merci Amir pour ta réactivité et tes compétence.

Un grand merci