Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
6CADA30C-CE44-473A-B0F5-C86BCDBB4D16@microsoft.com...
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
6CADA30C-CE44-473A-B0F5-C86BCDBB4D16@microsoft.com...
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Tu peux toujours faire ceci : (c'est disponible sous excel 2002)
Tu modifies ton séparateur décimale dans Excel avant d'appeler le formulaire(grille)
barre des menus / outils / options / Onglet international /
Tu détermines ton séparateur décimale et tu décoches
Utiliser les séparateurs systèmes.
Et après utilisation de ta grille, tu replaces le tout.
Si tu utilises l'enregistreur macro, tu devrais obtenir le code pour cela et tu pourrais l'intégrer au code que je t'ai déjà fourni.
Tout ceci reste à tester !
Salutations!
"Cervolent" a écrit dans le message de news:
Mitch je suis sous Excel XP ou 2002 j'utilise la commande Données /
formulaire ... et je rempli mon tableau, simplement, avec ce formulaire sans
appel à partir d'une macro. Le séparateur dans cette boite est toujours un
point pas une virgule ...j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Tu peux toujours faire ceci : (c'est disponible sous excel 2002)
Tu modifies ton séparateur décimale dans Excel avant d'appeler le formulaire(grille)
barre des menus / outils / options / Onglet international /
Tu détermines ton séparateur décimale et tu décoches
Utiliser les séparateurs systèmes.
Et après utilisation de ta grille, tu replaces le tout.
Si tu utilises l'enregistreur macro, tu devrais obtenir le code pour cela et tu pourrais l'intégrer au code que je t'ai déjà fourni.
Tout ceci reste à tester !
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
F1A0863B-F7E6-4CCF-91E7-1ED4A1153D68@microsoft.com...
Mitch je suis sous Excel XP ou 2002 j'utilise la commande Données /
formulaire ... et je rempli mon tableau, simplement, avec ce formulaire sans
appel à partir d'une macro. Le séparateur dans cette boite est toujours un
point pas une virgule ...
j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
6CADA30C-CE44-473A-B0F5-C86BCDBB4D16@microsoft.com...
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?
Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de news:
33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour Cervolent,
Tu peux toujours faire ceci : (c'est disponible sous excel 2002)
Tu modifies ton séparateur décimale dans Excel avant d'appeler le formulaire(grille)
barre des menus / outils / options / Onglet international /
Tu détermines ton séparateur décimale et tu décoches
Utiliser les séparateurs systèmes.
Et après utilisation de ta grille, tu replaces le tout.
Si tu utilises l'enregistreur macro, tu devrais obtenir le code pour cela et tu pourrais l'intégrer au code que je t'ai déjà fourni.
Tout ceci reste à tester !
Salutations!
"Cervolent" a écrit dans le message de news:
Mitch je suis sous Excel XP ou 2002 j'utilise la commande Données /
formulaire ... et je rempli mon tableau, simplement, avec ce formulaire sans
appel à partir d'une macro. Le séparateur dans cette boite est toujours un
point pas une virgule ...j'ai testé sous excel 2003, je n'éprouve pas cette difficulté.
Attention, tu dois appeler ton formulaire à partir de la commande Outils / formulaire.
Si tu le fais à partir de VBA, tu peux utiliser ceci :
Sub ShowForm()
'Proposed By John Green and Stephen Bullen
'pour les versions excel 97 et 2000
ActiveSheet.Range("A1").Select
RunMenu 860 ' 860 is the CommandBarControl ID of the Data, Form menu item.
End Sub
Sub RunMenu(iMenuID As Long)
'Proposed By John Green and Stephen Bullen
'Book : Excel 2003 VBA Programmer's Reference
' *****************************************************
' * Function Name: RunMenu
' *
' * Input/Output: iMenuID - The control ID of the menu item to be run.
' *
' * Purpose: Runs a specified menu item, simulating clicking on it.
' *
' *****************************************************
Dim oCtrl As CommandBarButton
'Ignore any errors (such as the menu ID not valid).
On Error Resume Next
'Create our own temporary commandbar to hold the control.
With Application.CommandBars.Add
' Add the control and execute it.
.Controls.Add(ID:=iMenuID).Execute
' Then delete our temporary menu bar.
.Delete
End With
End Sub
Salutations!
"Cervolent" a écrit dans le message de news:
Merci mich,
mais il s'agit du formulaire Excel - du menu Données - je n'ai pas recréé de
Boite de saisie ...
peut-on agir dessus par VBA ?Bonjour Cervolent,
Ajoute cette procédure à ton formulaire en adaptant le nom du textbox utilisé pour ta saisie de données numériques.
'-------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'-------------------
Salutations!
"Cervolent" a écrit dans le message de news:
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
bonjours,
pourquoi ne selectionnes tu pas le "." dans "parametre regional" ?
"Cervolent" a écrit dans le message de
news:Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
bonjours,
pourquoi ne selectionnes tu pas le "." dans "parametre regional" ?
"Cervolent" <Cervolent@discussions.microsoft.com> a écrit dans le message de
news: 33D805E1-9E80-4034-BAD6-FDB085967503@microsoft.com...
Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
bonjours,
pourquoi ne selectionnes tu pas le "." dans "parametre regional" ?
"Cervolent" a écrit dans le message de
news:Bonjour à tous,
J'ai un souci de saisie dans une Base de données sur Excel 2002.
Mon tableau comporte des formules de recherchev etc ... et des saisies de
valeur avec Décimales.
Dans les Options Régionales (Win XP), c'est la virgule qui est paramétrée.
Lorsque que je saisi directement dans une cellule c'est bien la virgule
qui
apparait avec le "." du pavé numérique.
Lorsque j'utilise le formulaire du menu données c'est un "." qui apparait
et
me provoque des saisies texte (#valeur! dans mes résultats)
Seulement je veux la "," à partir du clavier Numérique dans le formulaire
et
lui ne me donne qu'un point. Je ne veux pas perdre de temps de saisie en
cherchant la virgule sur le pavé alpha ...
Comment puis-je faire SVP ????
