Re : VB Critical et Userform
Bonjour,
Pour le premier point, un truc comme cela (à affiner dans la présentation)
Private Sub Workbook_Open()
Dim alertstock As Range
For Each alertstock In ActiveSheet.Range("alertstock")
valeur = Cells(alertstock.Row, 1)
stockmin = Cells(alertstock.Row, 3)
If alertstock < stockmin Then
s = s & vbCr & valeur 'Cel.Offset(0, -1)
Else
End If
Next
MsgBox s '"Le stock de " & Valeur & " est insuffisant!!", vbCritical
End Sub
a+