bonsoir James007,
Je me permets de revenir vers toi. Tout fonctionne (ou presque !) mis à part que je n'arrive plus à rentrer ou midifier les donnes.
Je pense que ça vient de ma "ligne" écrite comme suit : Ligne = Me.ListBox1.List(Me.ListBox1.ListIndex, 12
peux-tu me dire ce que signifie le 12 à la fin ? ou peux-tu m'aider à résoudre mon problème car tout fonctionnait bien avant
merci
Marc
[code][/Private Sub Label_16_Click() ' VALIDER LA SORTIE
Dim ProduitType As String
Dim Ligne As Long
If MsgBox("Confirmez-vous la sortie de " & Me.TB_10.Value & " " & Me.CB_1.Value & vbCr & vbCr & _
" en date du : " & " " & Me.TB_7.Value & " ?", vbQuestion + vbDefaultButton1 + vbYesNo, "SORTIE ") <> vbYes Then Exit Sub
'End If
Ligne = Me.ListBox1.List(Me.ListBox1.ListIndex, 12)
' Copie des informations '
Sheets("BD").Range("A" & Ligne) = Me.CB_1.Value 'Me.CB_produit.Value
Sheets("BD").Range("B" & Ligne) = Me.CB_2.Value ' Me.CB_type.Value
Sheets("BD").Range("C" & Ligne) = Me.CB_3.Value ' emplacement
Sheets("BD").Range("D" & Ligne) = Me.TB_4.Value ' conditionnement
Sheets("BD").Range("E" & Ligne) = Me.TB_5.Value ' divers
'sheets("BD").Range("F" & Ligne) = Me.TB_8.Value
Sheets("BD").Range("G" & Ligne) = Format(Me.TB_7.Value, "dd/mm/yy")
If Val(Me.TB_10) <> 0 Then Sheets("BD").Range("I" & Ligne) = Val(Me.TB_10.Value)
Sheets("BD").Range("J" & Ligne) = Format(Me.TB_15.Value, "dd/mm/yy")
Sheets("BD").Range("J" & Ligne) = Me.Label_transaction.Caption
Sheets("BD").Range("K" & Ligne) = " sorti " & Me.TB_10.Value & " " & Me.CB_1.Value & " le " & Me.TB_15.Value
'Sheets("BD").Range("L" & Ligne) = Me.TB_5.Value
'-*-*-*-*-*-*
'Sheets("BD").Rows(Me.ListBox1.List(Me.ListBox1.ListIndex, 10)).SpecialCells(xlCellTypeConstants, 23).ClearContents
' Effectue un tri avec deux clés sur les Noms et les prénoms
Sheets("BD").Range("A2:M" & Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row).Sort _
Key1:=Sheets("BD").Range("A2"), Order1:=xlAscending, dataoption1:=xlSortNormal, _
Key2:=Sheets("BD").Range("B2"), order2:=xlAscending, dataoption2:=xlSortNormal, _
Key3:=Sheets("BD").Range("C2"), order3:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
'End If
'--------------------
MsgBox "il restera : " & Me.TB_8.Value & " " & Me.CB_1.Value, vbInformation, "PRODUITS RESTANTS"
'--------------------
Unload Me
End Subcode]