Bonjour,
Je dois faire un logiciel sous excel en utilisant un VB.
Voilà mon VB:
Private Sub Workbook_Open()
If D4 = 1 Then
' Instruction si la condition est vraie msg ="45 dB (A)"
MsgBox msg
ElseIf D4 = 2 Then
' Instruction si la condition est vraie msg ="42 dB (A)"
MsgBox msg
ElseIf D4 = 3 Then
' Instruction si la condition est vraie msg ="38 dB (A)"
MsgBox msg
ElseIf D4 = 4 Then
' Instruction si la condition est vraie msg ="35 dB (A)"
MsgBox msg
ElseIf D4 = 5 Then
' Instruction si la condition est vraie msg ="30 dB (A)"
MsgBox msg
End If
End Sub
où D4 est la case D4 de mon classeur excel.
comment faire pour insérer ce VB dans la case E4 afin qu'il s'effectu ???
Merci
