Bonsoir le forum,
J'essaie d'établir une relation entre une listbox contenant une série d'objets et une textbox dans laquelle je souhaite saisir la quantité de l'ojet qui sera choisi dans la listbox.
J'ai écris un code pour reporter ces indication dans un tableur mais ça ne fonctionne pas:
Private Sub CommandButton1_Click()
Dim ShtC As Worksheet
Set ShtC = Sheets("Casse")
With ShtG
'Transfert nom du bénéficiaire Col.B prochaine ligne vide
ShtC.Range("B65536").End(xlUp)(2).Value = TextBox1.Value
'Transfert Type
If ListBox1.Value = "Verres à pied" Then ShtC.Range("B65536").End(xlUp).Offset(0.1) = TextBox2.Value
Unloadme
End With
End sub
La ligne en rouge ne donne pas de résultat.
Suis-je clair dans ma demande?
Merci de votre aide
J'essaie d'établir une relation entre une listbox contenant une série d'objets et une textbox dans laquelle je souhaite saisir la quantité de l'ojet qui sera choisi dans la listbox.
J'ai écris un code pour reporter ces indication dans un tableur mais ça ne fonctionne pas:
Private Sub CommandButton1_Click()
Dim ShtC As Worksheet
Set ShtC = Sheets("Casse")
With ShtG
'Transfert nom du bénéficiaire Col.B prochaine ligne vide
ShtC.Range("B65536").End(xlUp)(2).Value = TextBox1.Value
'Transfert Type
If ListBox1.Value = "Verres à pied" Then ShtC.Range("B65536").End(xlUp).Offset(0.1) = TextBox2.Value
Unloadme
End With
End sub
La ligne en rouge ne donne pas de résultat.
Suis-je clair dans ma demande?
Merci de votre aide