Private Sub CommandButton1_Click() vlist1 = Me.ListBox1.Value vlist2 = Me.ListBox2.Value lign = Columns("J:J").Find(vlist1).Row colon = Rows(1).Find(vlist2).Column Cells(lign, colon) = Me.TextBox1 End Sub
En faite le problème c'est que les valeur ne rentre pas dans le tableau elles vont toutes a droites, je ne sait pas trop ce qu'il faut changer dans le code pour remédier à cela.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEn ce moment même j'ai un autre problème mais il faut que je réfléchisse