Re : problème VBA
AAAARRRRG.....
Me voilà re-coincé plus loin sur un bouton destiné à retirer des données avec:
Private Sub CommandButton5_Click()
' Retrait du stock
If MsgBox("Sortir le FA du Stock ?", _
vbYesNo + vbQuestion, "Confirmation") = vbYes Then
End If
Application.ScreenUpdating = False
With Sheets("base")
Dim config As Integer
Dim réponse As Integer
Dim L, i As Integer
L = Sheets("base").Range("A32767").End(xlUp).Row
For i = 2 To L
If Sheets("base").Range("B" & i) = UserForm1.ComboBox1.Value Then
Sheets("base").Range("A" & i).Select
ActiveCell.ClearContents
ActiveCell.Offset(0, 3).ClearContents
'date
ActiveCell.Offset(0, 7).ClearContents
'vide
ActiveCell.Offset(0, 8).ClearContents
'vide
ActiveCell.Offset(0, 9).ClearContents
ActiveCell.Offset(0, 10).ClearContents
'cases à cocher
ActiveCell.Offset(0, 4).Value = False
ActiveCell.Offset(0, 5).Value = False
ActiveCell.Offset(0, 6).Value = False
End If
Next
Sheets("base").Select
Range("A2:M101").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B14").Select
Unload UserForm1
Load UserForm1
UserForm1.Show
Application.ScreenUpdating = True
End Sub
____________________
ca n'en finira donc jamais....