chaelie2015
XLDnaute Accro
Bonsoir Forum
ci dessous un code, je souhaite le simplifier
si la cellule V107 contient Non Installée alors afficher Msgbox
IDEM pour V109
les deux cellules sont indépendantes
SALUTATIONS
ci dessous un code, je souhaite le simplifier
Code:
If Range("V107").Value = "Non Installée" Then
If MsgBox(Prompt:="Attention, vous avez sélectionné (Non Installée), c'est une réserve." & vbCrLf & "Etes-vous sûr ?", Title:="Attention !", Buttons:=vbYesNo) = vbYes Then
Exit Sub
Else
Range("V107").Select
End If
End If
If Range("V109").Value = "Non Installée" Then
If MsgBox(Prompt:="Attention, vous avez sélectionné (Non Installée), c'est une réserve." & vbCrLf & "Etes-vous sûr ?", Title:="Attention !", Buttons:=vbYesNo) = vbYes Then
Exit Sub
Else
Range("V109").Select
End If
End If
IDEM pour V109
les deux cellules sont indépendantes
SALUTATIONS
Dernière édition: