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
MichDenis
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox1
If T <> "" Then
'Détermine si le textbox contient une faute
Valeur = Application.CheckSpelling(T, , True)
MsgBox Faute
'Si le textbox contient une faute, copier le contenu du textbox
'vers une cellule libre -> à toi le choix ce la feuille et de la cellue...
If Faute = False Then
With Worksheets(1)
Application.EnableEvents = False
With .Range("IV1")
.Value = Me.TextBox1.Text
.CheckSpelling SpellLang:36
Me.TextBox1 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End If
End Sub
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de news:
uMJvGP7CHHA.4224@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un
textbox
dans lequel je saisi du texte.
Je vous remercie
Didier
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
Didier NOVARIN
Bonjour Denis Merci mais la procédure plante renvoie une erreur 1004, la méthode CheckSpelling à échoué
Valeur = Application.CheckSpelling(T, , True)
Merci Didier
"MichDenis" a écrit dans le message de news: e%
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
Bonjour Denis
Merci mais la procédure plante renvoie une erreur 1004, la méthode
CheckSpelling à échoué
Valeur = Application.CheckSpelling(T, , True)
Merci
Didier
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
e%239h377CHHA.4992@TK2MSFTNGP03.phx.gbl...
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox1
If T <> "" Then
'Détermine si le textbox contient une faute
Valeur = Application.CheckSpelling(T, , True)
MsgBox Faute
'Si le textbox contient une faute, copier le contenu du textbox
'vers une cellule libre -> à toi le choix ce la feuille et de la
cellue...
If Faute = False Then
With Worksheets(1)
Application.EnableEvents = False
With .Range("IV1")
.Value = Me.TextBox1.Text
.CheckSpelling SpellLang:36
Me.TextBox1 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End If
End Sub
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:
uMJvGP7CHHA.4224@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un
textbox
dans lequel je saisi du texte.
Je vous remercie
Didier
Bonjour Denis Merci mais la procédure plante renvoie une erreur 1004, la méthode CheckSpelling à échoué
Valeur = Application.CheckSpelling(T, , True)
Merci Didier
"MichDenis" a écrit dans le message de news: e%
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
MichDenis
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
Didier NOVARIN
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000
Je te remercie beaucoup, je vais utiliser avec
On error resume next
Cela fonctionne
Encore merci
Dider
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23bJQvs8CHHA.4992@TK2MSFTNGP03.phx.gbl...
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
MichDenis
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End Sub
"Didier NOVARIN" a écrit dans le message de news:
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox1
If T <> "" Then
'Si le textbox contient une faute, copier le contenu du textbox
'vers une cellule libre -> à toi le choix ce la feuille et de la cellue...
With Worksheets(1)
Application.EnableEvents = False
With .Range("IV1")
.Value = Me.TextBox1.Text
.CheckSpelling SpellLang:36
Me.TextBox1 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End Sub
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de news:
ORHoNz8CHHA.3604@TK2MSFTNGP03.phx.gbl...
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000
Je te remercie beaucoup, je vais utiliser avec
On error resume next
Cela fonctionne
Encore merci
Dider
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23bJQvs8CHHA.4992@TK2MSFTNGP03.phx.gbl...
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End Sub
"Didier NOVARIN" a écrit dans le message de news:
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
Didier NOVARIN
Un très grand merci, cela fonctionne parfaitement Didier
"MichDenis" a écrit dans le message de news:
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End Sub
"Didier NOVARIN" a écrit dans le message de news:
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
Un très grand merci, cela fonctionne parfaitement
Didier
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eARBM58CHHA.4680@TK2MSFTNGP04.phx.gbl...
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox1
If T <> "" Then
'Si le textbox contient une faute, copier le contenu du textbox
'vers une cellule libre -> à toi le choix ce la feuille et de la
cellue...
With Worksheets(1)
Application.EnableEvents = False
With .Range("IV1")
.Value = Me.TextBox1.Text
.CheckSpelling SpellLang:36
Me.TextBox1 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End Sub
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news:
ORHoNz8CHHA.3604@TK2MSFTNGP03.phx.gbl...
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000
Je te remercie beaucoup, je vais utiliser avec
On error resume next
Cela fonctionne
Encore merci
Dider
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23bJQvs8CHHA.4992@TK2MSFTNGP03.phx.gbl...
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Un très grand merci, cela fonctionne parfaitement Didier
"MichDenis" a écrit dans le message de news:
Cette procédure devrait fonctionner sans "On error resume next"
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End Sub
"Didier NOVARIN" a écrit dans le message de news:
Cela ne fonctionne pas chez moi, car, j'ai Xl 2000 Je te remercie beaucoup, je vais utiliser avec On error resume next Cela fonctionne Encore merci Dider
"MichDenis" a écrit dans le message de news: %
fichier exemple là : http://cjoint.com/?ltmiG8HbyF
Créer avec Excel 2003.
taly91
MichDenis a écrit le 19/11/2006 à 10h42 :
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
Bonjour Didier,
votre réponse m'a beaucoup aidé! mais maintenant j'aimerais savoir comment fait-on lorsque l'on a plusieurs textbox?? Merci pour votre aide
MichDenis a écrit le 19/11/2006 à 10h42 :
Tu peux utiliser ceci :
Private Sub CommandButton1_Click()
Dim Faute As Boolean
Dim T As String
T = Me.TextBox1
If T <> "" Then
'Détermine si le textbox contient une faute
Valeur = Application.CheckSpelling(T, , True)
MsgBox Faute
'Si le textbox contient une faute, copier le contenu du textbox
'vers une cellule libre -> à toi le choix ce la feuille et de la
cellue...
If Faute = False Then
With Worksheets(1)
Application.EnableEvents = False
With .Range("IV1")
.Value = Me.TextBox1.Text
.CheckSpelling SpellLang:36
Me.TextBox1 = .Text
.Value = ""
End With
Application.EnableEvents = True
End With
End If
End If
End Sub
"Didier Novarin" a écrit
dans le message de news:
Bonsoir
Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un
textbox
dans lequel je saisi du texte.
Je vous remercie
Didier
Bonjour Didier,
votre réponse m'a beaucoup aidé!
mais maintenant j'aimerais savoir comment fait-on lorsque l'on a plusieurs textbox??
Merci pour votre aide
Dim Faute As Boolean Dim T As String T = Me.TextBox1 If T <> "" Then 'Détermine si le textbox contient une faute Valeur = Application.CheckSpelling(T, , True) MsgBox Faute 'Si le textbox contient une faute, copier le contenu du textbox 'vers une cellule libre -> à toi le choix ce la feuille et de la cellue... If Faute = False Then With Worksheets(1) Application.EnableEvents = False With .Range("IV1") .Value = Me.TextBox1.Text .CheckSpelling SpellLang:36 Me.TextBox1 = .Text .Value = "" End With Application.EnableEvents = True End With End If End If End Sub
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite lancer le correcteur d'orthographe, mais uniquement dans un textbox dans lequel je saisi du texte. Je vous remercie Didier
Bonjour Didier,
votre réponse m'a beaucoup aidé! mais maintenant j'aimerais savoir comment fait-on lorsque l'on a plusieurs textbox?? Merci pour votre aide
