Bonsoir
Je souhaite savoir si il est possible avec une saisie dans un textbox de
lancer via un bouton le correcteur d'orthographe afin de vérifier
l'orthographe contenu dans un textbox ?
Merci beaucoup
Flo riant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Gaboly
Bonsoir,
Tu peux utiliser Application.CheckSpelling qui renvoie True si l'orthographe du mot est correcte, False sinon.
Avec un TextBox nommé "TInfo", cela donne :
Private Sub TInfo_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not (Application.CheckSpelling(TInfo)) Then MsgBox "Corrigez l'orthographe !" Cancel = True End If End Sub
Pour aller + loin, il est aisé de reporter dans une cellule quelconque, d'une feuille masquée par exemple le contenu du TextBox et lancer le correcteur en testant cette cellule.
Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonsoir,
Tu peux utiliser Application.CheckSpelling qui renvoie True si
l'orthographe du mot est correcte, False sinon.
Avec un TextBox nommé "TInfo", cela donne :
Private Sub TInfo_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not (Application.CheckSpelling(TInfo)) Then
MsgBox "Corrigez l'orthographe !"
Cancel = True
End If
End Sub
Pour aller + loin, il est aisé de reporter dans une cellule quelconque,
d'une feuille masquée par exemple le contenu du TextBox et lancer le
correcteur en testant cette cellule.
Bonsoir
Je souhaite savoir si il est possible avec une saisie dans un textbox de
lancer via un bouton le correcteur d'orthographe afin de vérifier
l'orthographe contenu dans un textbox ?
Merci beaucoup
Flo riant
Tu peux utiliser Application.CheckSpelling qui renvoie True si l'orthographe du mot est correcte, False sinon.
Avec un TextBox nommé "TInfo", cela donne :
Private Sub TInfo_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not (Application.CheckSpelling(TInfo)) Then MsgBox "Corrigez l'orthographe !" Cancel = True End If End Sub
Pour aller + loin, il est aisé de reporter dans une cellule quelconque, d'une feuille masquée par exemple le contenu du TextBox et lancer le correcteur en testant cette cellule.
Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
-- Cordialement,
Michel Gaboly www.gaboly.com
michdenis
Bonjour Florian,
Tu envoies le contenu du textbox dans une cellule et tu fais la correction orthographique à partir de cette cellule. Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils "contrôle" était dans la feuil1
'---------------------------------- Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1") With .Range("A1") .Value = Feuil1.TextBox1.Text .CheckSpelling Application.EnableEvents = False Feuil1.TextBox1.Text = .Value Application.EnableEvents = True .Clear End With End With
End Sub '----------------------------------
Salutations!
"Florian" a écrit dans le message de news: Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
Bonjour Florian,
Tu envoies le contenu du textbox dans une cellule et tu fais la correction orthographique à partir de cette cellule.
Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils "contrôle" était dans la feuil1
'----------------------------------
Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1")
With .Range("A1")
.Value = Feuil1.TextBox1.Text
.CheckSpelling
Application.EnableEvents = False
Feuil1.TextBox1.Text = .Value
Application.EnableEvents = True
.Clear
End With
End With
End Sub
'----------------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news: ugxgJpltFHA.3188@TK2MSFTNGP14.phx.gbl...
Bonsoir
Je souhaite savoir si il est possible avec une saisie dans un textbox de
lancer via un bouton le correcteur d'orthographe afin de vérifier
l'orthographe contenu dans un textbox ?
Merci beaucoup
Flo riant
Tu envoies le contenu du textbox dans une cellule et tu fais la correction orthographique à partir de cette cellule. Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils "contrôle" était dans la feuil1
'---------------------------------- Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1") With .Range("A1") .Value = Feuil1.TextBox1.Text .CheckSpelling Application.EnableEvents = False Feuil1.TextBox1.Text = .Value Application.EnableEvents = True .Clear End With End With
End Sub '----------------------------------
Salutations!
"Florian" a écrit dans le message de news: Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
Florian
Un grand merci à tous les 2 Flo riant
"michdenis" a écrit dans le message de news: %23a$
Bonjour Florian,
Tu envoies le contenu du textbox dans une cellule et tu fais la correction orthographique à partir de cette cellule. Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils "contrôle" était dans la feuil1
'---------------------------------- Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1") With .Range("A1") .Value = Feuil1.TextBox1.Text .CheckSpelling Application.EnableEvents = False Feuil1.TextBox1.Text = .Value Application.EnableEvents = True .Clear End With End With
End Sub '----------------------------------
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
Un grand merci à tous les 2
Flo riant
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23a$HIMmtFHA.3528@TK2MSFTNGP15.phx.gbl...
Bonjour Florian,
Tu envoies le contenu du textbox dans une cellule et tu fais la correction
orthographique à partir de cette cellule.
Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils
"contrôle" était dans la feuil1
'----------------------------------
Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1")
With .Range("A1")
.Value = Feuil1.TextBox1.Text
.CheckSpelling
Application.EnableEvents = False
Feuil1.TextBox1.Text = .Value
Application.EnableEvents = True
.Clear
End With
End With
End Sub
'----------------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
ugxgJpltFHA.3188@TK2MSFTNGP14.phx.gbl...
Bonsoir
Je souhaite savoir si il est possible avec une saisie dans un textbox de
lancer via un bouton le correcteur d'orthographe afin de vérifier
l'orthographe contenu dans un textbox ?
Merci beaucoup
Flo riant
"michdenis" a écrit dans le message de news: %23a$
Bonjour Florian,
Tu envoies le contenu du textbox dans une cellule et tu fais la correction orthographique à partir de cette cellule. Dans l'exemple, j'ai supposé que le textbox issu de la boîte d'outils "contrôle" était dans la feuil1
'---------------------------------- Sub Exemple()
Application.ScreenUpdating = False
With Worksheets("Feuil1") With .Range("A1") .Value = Feuil1.TextBox1.Text .CheckSpelling Application.EnableEvents = False Feuil1.TextBox1.Text = .Value Application.EnableEvents = True .Clear End With End With
End Sub '----------------------------------
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir Je souhaite savoir si il est possible avec une saisie dans un textbox de lancer via un bouton le correcteur d'orthographe afin de vérifier l'orthographe contenu dans un textbox ? Merci beaucoup Flo riant
