Saisie colonne ligne

bonjour

dans le fichier joint je cherche a inscrire dans la cellule en fonction du choix dans l'userform (fournisseur et produit)

exemple: si je sélectionne le produit 5 le chiffre inscris en T2 dans l'userform devrais se mettre en C6

espérant avoir été suffisamment clair

amicalement

Bonjour Teddy, bonjour le forum,

Essaie comme ça. Remplace ton code par celui-ci :

Private Sub UserForm_Initialize()
Dim aa

C1.ColumnCount = 2
C1.ColumnWidths = ";0"
With Feuil2
    aa = .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
C1.List = aa
End Sub

Private Sub C1_Change()
Dim i&
For i = 1 To 1
    Controls("T" & i) = C1.List(C1.ListIndex, i)
Next i
End Sub

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Byte
Select Case T1.Value
    Case "machin"
        COL = 2
    Case "truc"
        COL = 3
    Case "bidule"
        COL = 4
End Select
LI = CInt(C1.ListIndex + 2)
Feuil1.Cells(LI, COL).Value = Me.TextBox2.Value
End Sub

re

merci thau theme

mais cela n'affiche pas dans la cellule le nombre ecris dans l'userform en T2

amicalement

Re,

Dans ton exemple fournis il n'y as pas de T2 mais une TextBox2. Remplace, dans la procédure Click du CommandButton1 de ton fichier original, Textbox2 par T2 et ça devrait le faire...

Le code avec le fichier fourni marche impeccable !...

milles excuses

j'avais mal copier le code

encore toutes mes excuses et milles merci

bonne fin d'après midi

amicalement