Bonjour,
Je viens vers vous suite à un problème que je n'arrive pas à résoudre,
J'utilise ce que pour vérifier l'orthographe et la grammaire
Sur ce code j'ai intégré ceci :
Mon but est d'afficher un message box si les cellules sont vides.
J'ai défini la plage concerné grâce au gestionnaire de nom "VérificationOrthographe"
Et au moment de l'exécution j'ai un message d'erreur incompatibilité de type (erreur 13)
Vous avez une idée?
Je viens vers vous suite à un problème que je n'arrive pas à résoudre,
J'utilise ce que pour vérifier l'orthographe et la grammaire
Code:
'Vérifier l'orthographe
Function MessageCelluleVideVérificationOrthographe(LeMessage As String, TitreMessage As String)
MsgBox LeMessage, vbInformation, TitreMessage
End Function
Sub BoutonVérificationOrthographe()
ActiveSheet.Unprotect
If [VérificationOrthographe] = 0 Then Call MessageCelluleVideVérificationOrthographe("Cellule vide", "Cellule incomplète"): Exit Sub
ActiveWindow.SmallScroll Down:=12
Range("VérificationOrthographe").Select
ActiveWindow.SmallScroll Down:=-33
Selection.CheckSpelling SpellLang:=1036
Range("F1:G1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Sur ce code j'ai intégré ceci :
Code:
Function MessageCelluleVideVérificationOrthographe(LeMessage As String, TitreMessage As String)
MsgBox LeMessage, vbInformation, TitreMessage
End Function
Mon but est d'afficher un message box si les cellules sont vides.
J'ai défini la plage concerné grâce au gestionnaire de nom "VérificationOrthographe"
Et au moment de l'exécution j'ai un message d'erreur incompatibilité de type (erreur 13)
Vous avez une idée?