Correcteur orthographe textbox

Bonjour,

J'essaie de faire un correcteur d'orthographe à partir d'une textbox.

j'ai réussi mais seulement en passant par Range. CheckSpelling donc passer provisoirement par une cellule feuil3 A1

et récupérer le texte corrigé de cette cellule.

Y a t il un moyen de passer par une fonction ou de placer le texte corriger dans une variable.

Je ne vois pas trop.

j'ai mis le fichier :

Jean

Bonsoir,

un essai :

'bouton orthographe textbox
Private Sub CB_cor_faute_Click()
If T4 <> "" Then T4 = ortho(T4)
If T5 <> "" Then T5 = ortho(T5)
End Sub

'sub orthographe textbox
Function ortho(temp_text As String)
    Dim Texte_à_corriger As Range
    Set Texte_à_corriger = Feuil1.Range("A1")
    If temp_text <> "" Then
        With Texte_à_corriger
            .Value = temp_text
            .CheckSpelling CustomDictionary:="PERSO.DIC", SpellLang:=1036
            ortho = .Value
        End With
    End If
End Function

J'ai supprimé la variable globale temp_text

J'ai modifié le code d'appel en "simplifiant"

Puis la sub je l'ai transformée en Function

Après le principe : je dimension une variable "objet" de type Range.

Je donne une consistance à cette variable avec le SET en lui donnant les caractéristiques d'une cellule quelconque.

Je modifie sa valeur "Value" avec la donnée reçu en paramètre lors de l'appel de la fonction.

Du coup on peut effectuer la correction si c'est utile.

On retourne grâce au nom de la fonction la valeur corrigée.

Je n'ai pas réussi à utiliser la variable objet sans avoir à la rendre en une copie exacte d'une cellule...(bisard cette phrase...)

@ bientôt

LouReeD

Merci beaucoup, ca fonctionne bien

Jean

Bonsoir,

merci de vos remerciements !

Pour l'heure, je n'ai toujours pas réussi à créer un objet "entièrement" en variable VBA...

Si quelqu'un sait comment faire pour se passer de l'étape "copie de cellule" ?

Et n'oubliez pas :

@ bientôt

LouReeD