Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub Sag_01() Dim a As String Dim b As String Dim c As String Dim d As Double a = Userform1.TextBox1.Text 'Emplacement b = Userform1.TextBox2.Text 'Code c = Userform1.TextBox3.Text 'Quantité With ThisWorkbook.ActiveSheet.Range("E1:E50000") d = CDbl(b) Set m = .Find(d) If Not m Is Nothing Then ActiveCell = m.Address ActiveCell.Offset(0, 3) = a ActiveCell.Offset(0, 1) = b ActiveCell.Offset(0, 1) = c Else MsgBox ("Allo SAG") End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.