Re : Commande de fournitures
Bonjour titilex,
Essaies de modifier ton code comme suit :
Private Sub CB_P_01_Click()
Dim Valeur As String, Celldest As Range, Ligne As String
USF06_PIL.Hide
Ligne = Range("A65536").End(xlUp).Row + 1
If TB_P_01.Value > 0 Then
With Sheets("PANIER")
.Cells(Ligne, 1).Value = "Piles LR03 (x4)"
.Cells(Ligne, 2).Value = "801256"
.Cells(Ligne, 3).Value = TB_P_01.Value
End With
Ligne = Ligne + 1
End If
If TB_P_02.Value > 0 Then
With Sheets("PANIER")
.Cells(Ligne, 1).Value = "Piles LR6 (x4)"
.Cells(Ligne, 2).Value = "??????"
.Cells(Ligne, 3).Value = TB_P_02.Value
End With
Ligne = Ligne + 1
End If
If TB_P_03.Value > 0 Then
With Sheets("PANIER")
.Cells(Ligne, 1).Value = "Piles LR14 (x4)"
.Cells(Ligne, 2).Value = "??????"
.Cells(Ligne, 3).Value = TB_P_03.Value
End With
End If
End Sub
On peut aussi, si le nombre d'articles est important, créer une boucle d'appel à un module de validation, afin de simplifier le code.
Espérant avoir répondu.
Cordialement.