Bonjour,
je voudrais ajouter un vbinformation mais quand je l'ajoute, Excel me parle d'un =
c'est la première fois que j'utiliser un msgbox.

Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim DIV As Variant
DIV = Mid(Me.Range("B4").Value, 3, 2) 'extract DO/OA
 
With Me.Range("B4").Value
        If DIV = "51" Or DIV = "56" Then
        MsgBox ("Attention DO => 51 ou 56" & vbCrLf & "Let op OA => 51 of 56")
        Else
        End If
End With
 
End Sub