Créer un correcteur d'orthographe dans des textboxs

[zephir94]

Bonsoir à tous,

Peut on mettre un correcteur d'orthographe au fur et à mesure de la saisie dans une textbox ?
Un peu comme la fenêtre du forum quand on écrit un message ?

L'enregistreur de macro appelle :

cells.CheckSpelling SpellLang:=1036

Bonne soirée à tous.

 

[job75]

Re : Créer un correcteur d'orthographe dans des textboxs

peut on lancer directement la fenêtre de correction à la place d'utiliser / ?

Non, il faut une touche ou éventuellement utiliser un bouton.

A+

 

[zephir94]

Re : Créer un correcteur d'orthographe dans des textboxs

Je comprends merci pour tout Job75

 

[job75]

Re : Créer un correcteur d'orthographe dans des textboxs

Re,

En fait on peut très bien faire ouvrir le correcteur d'orthographe par la touche <espace> :

Dim t$, espace As Boolean 'variables mémorisées

Private Sub TextBox1_KeyPress(ByVal K As MSForms.ReturnInteger)
t = TextBox1
espace = K = 32
End Sub

Private Sub TextBox1_Change()
Dim d%, p%, L%
If Not espace Then Exit Sub
espace = False
With TextBox1
  For d = 1 To Len(.Text)
    If Mid(.Text, d, 1) <> Mid(t, d, 1) Then Exit For
  Next
  p = InStrRev(RTrim(Left(t, d - 1)), " ")
  L = d - p - 1
  If Application.CheckSpelling(Mid(t, p + 1, L)) Then Exit Sub
  [A1] = Mid(t, p + 1, L)
  [A1].CheckSpelling SpellLang:=1036
  TextBox1 = Left(t, p) & [A1] & Mid(.Text, p + L + 1)
  [A1] = ""
End With
End Sub

Mais je trouve cela moins clair car le mot à corriger ne peut pas être sélectionné.

Fichier (4).

Bonne nuit.

 

[zephir94]

Re : Créer un correcteur d'orthographe dans des textboxs

Merci job75,
Peut on dans ce cas utiliser une autre touche n'utilisant pas Shift plus \ sans perdre la sélection du mot ?
Un grand merci

 

[job75]

Re : Créer un correcteur d'orthographe dans des textboxs

Bonjour zephir94, le forum,

On peut utiliser n'importe quelle touche pour ouvrir le correcteur d'orthographe.

Même une 2ème touche espace comme dans ce fichier (3 ter).

Tout se passe ici :

If K = 32 And L Then 'la 2ème touche espace corrige le mot sélectionné

Bonne journée.

 

[RONIBO]

Re : Créer un correcteur d'orthographe dans des textboxs

Bonjour le forum,

Job75 je viens vers toi sur ce joli travail que tu as fait. Bravo!

j'aimerai intégrer ça dans mon programme, avant de visualiser et imprimer, je souhaite vérifier les textboxs, pj, objet, réf. et message.

tu as une idée?