Je souhaite faire un correcteur de français

Bonjour

Je souhaite faire un correcteur de français

j'ai trouvai cette macro qui corrige l’orthographe je voudrai qu'elle check aussi la grammaire et

la conjugaison

Merci d'avance

Sub SpellCheckUpdate()

Dim cel As Range, CellLen As Long, CurChr As Long, TheString As String

For Each cel In Selection

For CurChr = 1 To Len(cel.Value)

If Asc(Mid(cel.Value, CurChr, 1)) = 32 Then

If InStr(CurChr + 1, cel.Value, " ") = 0 Then

TheString = Mid(cel.Value, CurChr + 1, Len(cel.Value) - CurChr)

Else

TheString = Mid(cel.Value, CurChr + 1, InStr(CurChr + 1, cel.Value, " ") - CurChr)

End If

If Not Application.CheckSpelling(Word:=TheString) Then

cel.Characters(CurChr + 1, Len(TheString)).Font.Color = RGB(255, 0, 0)

Else

cel.Characters(CurChr + 1, Len(TheString)).Font.Color = RGB(0, 0, 0)

End If

TheString = ""

End If

Next CurChr

Next cel

End Sub

Bonjour,

Il faut éviter de ré-inventer le fil à couper le beurre ...

Inclus dans Office ... et donc dans Excel ... tu as le correcteur ... il faut smplement adapter ses options ...

Application.SpellingOptions.DictLang = 1036

En espèrant que cela t'aide ...