Private Sub LigneTransfert()
'remplir une ligne sur le tableau de la feuille "Transfert",
'mais s'il n'y a plus de ligne libre, on ne fait rien !
Dim lig&: Worksheets("Transfert").Select
lig = Cells(Rows.Count, 1).End(3).Row + 1
If lig = 24 Then '24 = n° de la ligne en bleu clair (en bas)
MsgBox "Le tableau en feuille Transfert est plein !", 48
Exit Sub 'on fait rien du tout, et on sort de la sub !
End If
With Cells(lig, 1)
.Value = CB_Pièce 'Code article
.Offset(, 1) = catetr 'Catégorie
.Offset(, 2) = Desitr 'Désignation
.Offset(, 3) = reftr 'Référence
.Offset(, 4) = stocktr 'Stock actuel
.Offset(, 5) = unitr 'Unité
.Offset(, 6) = Date 'Date
.Offset(, 7) = ComboBox1 'Provenance
.Offset(, 8) = ComboBox2 'Destination
.Offset(, 9) = Quantitetr 'Quantité transférée
.Offset(, 10) = stocktr 'STOCK PR
.Offset(, 11) = "?" 'STOCK DES
End With
End Sub