Erreur 13 incompatibilité de type

[RONIBO]

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

'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 :

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?

 

[kjin]

Re : Erreur 13 incompatibilité de type

Bonjour,
[VérificationOrthographe] est un objet Range

If Application.CountA([VérificationOrthographe]) = 0 Then '....

Par exemple
A+
kjin

 

[RONIBO]

Re : Erreur 13 incompatibilité de type

Bonjour,

Merci pour le code, il fonctionne parfaitement, par contre des que le msbgox affiche la feuille est déverrouillée, tu as une idée?

A+

 

[kjin]

Re : Erreur 13 incompatibilité de type

Bonjour,

Sub BoutonVérificationOrthographe()
If Application.CountA([VérificationOrthographe]) = 0 Then Call MessageCelluleVideVérificationOrthographe("Cellules vide", "Cellule incomplète"): Exit Sub
ActiveSheet.Unprotect
[VérificationOrthographe].CheckSpelling SpellLang:=1036
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
End Sub

A+
kjin