correction instantané du français dans texbox

[chich]

Bonjour a tous
je faire une texbox qui corrige les fautes de français automatiquement pour un utilisateur qui ne maîtrise pas
les règles d’orthographe,de grammaire,et de conjugaison .
j'ai trouvé ces deux code mais ils sont pas suffisamment poussé
Merci d'avance

Private Sub CommandButton5_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox6
If T <> "" Then
With Worksheets(1)
Application.EnableEvents = False
With .Range("F18")
.Value = Me.TextBox6.Text
.CheckSpelling SpellLang:=1036
Me.TextBox6 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End Sub


Private Sub CommandButton5_Click()
With Range("F18")
.Value = Me.TextBox6
.CheckSpelling CustomDictionary:="PERSO.DIC", IgnoreUppercase:=False, _
AlwaysSuggest:=True, SpellLang:=1036
Me.TextBox6 = .Value
.ClearContents
End With
End Sub

 

[chich]

Bonsoir
je relance quelqu'un aurait il une solution
MERCI

 

[chich]

Bonjour a tous
je faire une texbox qui corrige les fautes de français automatiquement pour un utilisateur qui ne maîtrise pas
les règles d’orthographe,de grammaire,et de conjugaison .
j'ai trouvé ces deux code mais ils sont pas suffisamment poussé
Merci d'avance

Private Sub CommandButton5_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox6
If T <> "" Then
With Worksheets(1)
Application.EnableEvents = False
With .Range("F18")
.Value = Me.TextBox6.Text
.CheckSpelling SpellLang:=1036
Me.TextBox6 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End Sub


Private Sub CommandButton5_Click()
With Range("F18")
.Value = Me.TextBox6
.CheckSpelling CustomDictionary:="PERSO.DIC", IgnoreUppercase:=False, _
AlwaysSuggest:=True, SpellLang:=1036
Me.TextBox6 = .Value
.ClearContents
End With
End Sub

Bonjour a tous je relance
Il y a vraiment personne ici qui aurai un solution pour mon projet merci