Excel VBA：消息框上的标题

我的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) = vbDate Then
    Call CLICK_INFOS
End If
If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) <> vbDate Then
   MsgBox ("Entrez la date en format jj/mm/aaaa")
End If
End Sub

Private子工作表\u更改（ByVal目标作为范围）
如果不相交（Target，Range（“Ma_date”））为Nothing且VarType（Target.Value）=vbDate，则
呼叫点击信息
如果结束
如果不相交（Target，Range（“Ma_date”））为Nothing且VarType（Target.Value）为vbDate，则
MsgBox（“Entrez la date en格式jj/mm/aaaa”）
如果结束
端接头

我想将“Microsoft Excel”一词替换为“Contrôle”：

谢谢你的帮助

---

MsgBox（“Entrez la date en format jj/mm/aaaa”，vbOK，“Controle”）

这段代码对我来说很好：

是否有其他代码未显示

请注意，我更改了您的子调用，因为我没有该宏。我还删除了

MsgBox

参数周围的括号

Private子工作表\u更改（ByVal目标作为范围）
如果不相交（Target，Range（“Ma_date”））为Nothing且VarType（Target.Value）=vbDate，则
MsgBox“单击信息”
如果结束
如果不相交（Target，Range（“Ma_date”））为Nothing且VarType（Target.Value）为vbDate，则
MsgBox“日期格式jj/mm/aaaa”，标题：=“控制”
如果结束
端接头

---

只需使用

Title

参数即可。当你尝试那样做时，发生了什么？@RonRosenfeld谢谢你，但它不起作用谢谢，你，但它不起作用，我有错误（我补充到我的主要信息中）。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) = vbDate Then
    MsgBox "CLICK_INFOS"
End If
If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) <> vbDate Then
   MsgBox "Entrez la date en format jj/mm/aaaa", Title:="Controle"
End If
End Sub