Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres dans
une cellule, ce qui a des effets désagréables.
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Stan" <Stan@discussions.microsoft.com> a écrit dans le message de
news:AF63FCF8-7A09-466E-A41E-622A13FCD7AC@microsoft.com...
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je
suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres
dans
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Stan" a écrit dans le message de news:
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres dans
une cellule, ce qui a des effets désagréables.
Quelqu'un aurait-il la solution.
Merci par avance. -- Stan
Daniel
Bonsoir. Histoire de réinventer la roue, j'avais écrit la petite procédure suivante : Private Sub Worksheet_Change(ByVal Target As Range) Dim Var, Car As String, i As Integer Var = Target.Value If IsNumeric(Var) Then Exit Sub Application.EnableEvents = False For i = 1 To Len(Target.Value) Car = Mid(Var, i, 1) Select Case Car Case "&" Car = 1 Case "é" Car = 2 Case """" Car = 3 'Case "'" 'car = 4 Case "(" Car = 5 Case "-" Car = 6 Case "è" Car = 7 Case "_" Car = 8 Case "ç" Car = 9 Case "à" Car = 0 Case 0 To 9 Car = Car Case "a" To "z" Car = UCase(Car) Case "A" To "Z" Car = Car Case Else Car = 4 End Select Mid(Var, i, 1) = Car Next i Target.Value = Var Application.EnableEvents = True End Sub qui apparemment fonctionne sauf "case "'". Comment faire pour faire Case "simple quote" ? Merci d'avance Daniel "Starwing" a écrit dans le message de news:
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Stan" a écrit dans le message de news:
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres dans
une cellule, ce qui a des effets désagréables.
Quelqu'un aurait-il la solution.
Merci par avance. -- Stan
Bonsoir.
Histoire de réinventer la roue, j'avais écrit la petite procédure suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Var, Car As String, i As Integer
Var = Target.Value
If IsNumeric(Var) Then Exit Sub
Application.EnableEvents = False
For i = 1 To Len(Target.Value)
Car = Mid(Var, i, 1)
Select Case Car
Case "&"
Car = 1
Case "é"
Car = 2
Case """"
Car = 3
'Case "'"
'car = 4
Case "("
Car = 5
Case "-"
Car = 6
Case "è"
Car = 7
Case "_"
Car = 8
Case "ç"
Car = 9
Case "à"
Car = 0
Case 0 To 9
Car = Car
Case "a" To "z"
Car = UCase(Car)
Case "A" To "Z"
Car = Car
Case Else
Car = 4
End Select
Mid(Var, i, 1) = Car
Next i
Target.Value = Var
Application.EnableEvents = True
End Sub
qui apparemment fonctionne sauf "case "'".
Comment faire pour faire Case "simple quote" ?
Merci d'avance
Daniel
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
uEoLEMHEFHA.2608@TK2MSFTNGP10.phx.gbl...
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Stan" <Stan@discussions.microsoft.com> a écrit dans le message de
news:AF63FCF8-7A09-466E-A41E-622A13FCD7AC@microsoft.com...
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je
suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres
dans
Bonsoir. Histoire de réinventer la roue, j'avais écrit la petite procédure suivante : Private Sub Worksheet_Change(ByVal Target As Range) Dim Var, Car As String, i As Integer Var = Target.Value If IsNumeric(Var) Then Exit Sub Application.EnableEvents = False For i = 1 To Len(Target.Value) Car = Mid(Var, i, 1) Select Case Car Case "&" Car = 1 Case "é" Car = 2 Case """" Car = 3 'Case "'" 'car = 4 Case "(" Car = 5 Case "-" Car = 6 Case "è" Car = 7 Case "_" Car = 8 Case "ç" Car = 9 Case "à" Car = 0 Case 0 To 9 Car = Car Case "a" To "z" Car = UCase(Car) Case "A" To "Z" Car = Car Case Else Car = 4 End Select Mid(Var, i, 1) = Car Next i Target.Value = Var Application.EnableEvents = True End Sub qui apparemment fonctionne sauf "case "'". Comment faire pour faire Case "simple quote" ? Merci d'avance Daniel "Starwing" a écrit dans le message de news:
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Stan" a écrit dans le message de news:
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres dans
une cellule, ce qui a des effets désagréables.
Quelqu'un aurait-il la solution.
Merci par avance. -- Stan
Daniel
ATTENTION La macro n'est pas opérationnelle. Il manque des touches (eg. °, ), +, = etc.) qui seront traduites par "4". Cordialement. Daniel "Daniel" a écrit dans le message de news:
Bonsoir. Histoire de réinventer la roue, j'avais écrit la petite procédure suivante : Private Sub Worksheet_Change(ByVal Target As Range) Dim Var, Car As String, i As Integer Var = Target.Value If IsNumeric(Var) Then Exit Sub Application.EnableEvents = False For i = 1 To Len(Target.Value) Car = Mid(Var, i, 1) Select Case Car Case "&" Car = 1 Case "é" Car = 2 Case """" Car = 3 'Case "'" 'car = 4 Case "(" Car = 5 Case "-" Car = 6 Case "è" Car = 7 Case "_" Car = 8 Case "ç" Car = 9 Case "à" Car = 0 Case 0 To 9 Car = Car Case "a" To "z" Car = UCase(Car) Case "A" To "Z" Car = Car Case Else Car = 4 End Select Mid(Var, i, 1) = Car Next i Target.Value = Var Application.EnableEvents = True End Sub qui apparemment fonctionne sauf "case "'". Comment faire pour faire Case "simple quote" ? Merci d'avance Daniel "Starwing" a écrit dans le message de news:
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "Stan" a écrit dans le message de news:
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres dans
une cellule, ce qui a des effets désagréables.
Quelqu'un aurait-il la solution.
Merci par avance. -- Stan
ATTENTION
La macro n'est pas opérationnelle. Il manque des touches (eg. °, ), +, =
etc.) qui seront traduites par "4".
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ePxAbXHEFHA.3416@TK2MSFTNGP09.phx.gbl...
Bonsoir.
Histoire de réinventer la roue, j'avais écrit la petite procédure suivante
:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Var, Car As String, i As Integer
Var = Target.Value
If IsNumeric(Var) Then Exit Sub
Application.EnableEvents = False
For i = 1 To Len(Target.Value)
Car = Mid(Var, i, 1)
Select Case Car
Case "&"
Car = 1
Case "é"
Car = 2
Case """"
Car = 3
'Case "'"
'car = 4
Case "("
Car = 5
Case "-"
Car = 6
Case "è"
Car = 7
Case "_"
Car = 8
Case "ç"
Car = 9
Case "à"
Car = 0
Case 0 To 9
Car = Car
Case "a" To "z"
Car = UCase(Car)
Case "A" To "Z"
Car = Car
Case Else
Car = 4
End Select
Mid(Var, i, 1) = Car
Next i
Target.Value = Var
Application.EnableEvents = True
End Sub
qui apparemment fonctionne sauf "case "'".
Comment faire pour faire Case "simple quote" ?
Merci d'avance
Daniel
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
uEoLEMHEFHA.2608@TK2MSFTNGP10.phx.gbl...
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"Stan" <Stan@discussions.microsoft.com> a écrit dans le message de
news:AF63FCF8-7A09-466E-A41E-622A13FCD7AC@microsoft.com...
Bonjour à Tous,
Je sais très bien vérifier l'état de la touche NumLock par VBA ,mais je
suis
incapable d'en empêcher le déverouillage lors d'une saisie de chiffres
dans
ATTENTION La macro n'est pas opérationnelle. Il manque des touches (eg. °, ), +, = etc.) qui seront traduites par "4". Cordialement. Daniel "Daniel" a écrit dans le message de news:
Bonsoir. Histoire de réinventer la roue, j'avais écrit la petite procédure suivante : Private Sub Worksheet_Change(ByVal Target As Range) Dim Var, Car As String, i As Integer Var = Target.Value If IsNumeric(Var) Then Exit Sub Application.EnableEvents = False For i = 1 To Len(Target.Value) Car = Mid(Var, i, 1) Select Case Car Case "&" Car = 1 Case "é" Car = 2 Case """" Car = 3 'Case "'" 'car = 4 Case "(" Car = 5 Case "-" Car = 6 Case "è" Car = 7 Case "_" Car = 8 Case "ç" Car = 9 Case "à" Car = 0 Case 0 To 9 Car = Car Case "a" To "z" Car = UCase(Car) Case "A" To "Z" Car = Car Case Else Car = 4 End Select Mid(Var, i, 1) = Car Next i Target.Value = Var Application.EnableEvents = True End Sub qui apparemment fonctionne sauf "case "'". Comment faire pour faire Case "simple quote" ? Merci d'avance Daniel "Starwing" a écrit dans le message de news:
