Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lSteph
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était pour
combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était pour
combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL0Vnn%23bHHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lSteph
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était pour
combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lSteph
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL0Vnn%23bHHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lSteph
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lSteph
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL0Vnn%23bHHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lSteph
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
En haut du module de Code de ton
UF
Bonjour,
Je profite de ces instants pour vous communiquer ce que j'ai déduit des
différentes réponses :
- Création d'un moule de classe classe1
- renommer ce module avec la propriété renommer : TxtBoxKeyPress
- mettre le code suivant dans ce module :
Public WithEvents TxtBox As MSForms.TextBox
Private Sub TextBox_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
- ajouter le code suivant dans le module du formulaire :
Private Sub UserForm_Initialize()
Dim TxtBoxKeyPres(1 To 18) As TxtBoxKeyPress
Dim I As Integer
For I = 1 To 18
Set TxtBoxKeyPres(I) = New TxtBoxKeyPress
Set TxtBoxKeyPres(I).TxtBox = UserForm2.Controls("TextBox" & I)
Next I
Avant de faire des essais, ai-je bien compris ?
Merci.
Amicalement.
Greffier.
"LSteph" a écrit dans le message de news:Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
En haut du module de Code de ton
UF
Bonjour,
Je profite de ces instants pour vous communiquer ce que j'ai déduit des
différentes réponses :
- Création d'un moule de classe classe1
- renommer ce module avec la propriété renommer : TxtBoxKeyPress
- mettre le code suivant dans ce module :
Public WithEvents TxtBox As MSForms.TextBox
Private Sub TextBox_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
- ajouter le code suivant dans le module du formulaire :
Private Sub UserForm_Initialize()
Dim TxtBoxKeyPres(1 To 18) As TxtBoxKeyPress
Dim I As Integer
For I = 1 To 18
Set TxtBoxKeyPres(I) = New TxtBoxKeyPress
Set TxtBoxKeyPres(I).TxtBox = UserForm2.Controls("TextBox" & I)
Next I
Avant de faire des essais, ai-je bien compris ?
Merci.
Amicalement.
Greffier.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
O0emJKEcHHA.3960@TK2MSFTNGP04.phx.gbl...
Bonjour,
"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lSteph
Bonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL0Vnn%23bHHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lSteph
Bonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23G4J9D8bHHA.984@TK2MSFTNGP04.phx.gbl...
Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" <spam@spam.fr> a écrit dans le message de news:
Od4pd%237bHHA.4720@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.
En haut du module de Code de ton
UF
Bonjour,
Je profite de ces instants pour vous communiquer ce que j'ai déduit des
différentes réponses :
- Création d'un moule de classe classe1
- renommer ce module avec la propriété renommer : TxtBoxKeyPress
- mettre le code suivant dans ce module :
Public WithEvents TxtBox As MSForms.TextBox
Private Sub TextBox_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
- ajouter le code suivant dans le module du formulaire :
Private Sub UserForm_Initialize()
Dim TxtBoxKeyPres(1 To 18) As TxtBoxKeyPress
Dim I As Integer
For I = 1 To 18
Set TxtBoxKeyPres(I) = New TxtBoxKeyPress
Set TxtBoxKeyPres(I).TxtBox = UserForm2.Controls("TextBox" & I)
Next I
Avant de faire des essais, ai-je bien compris ?
Merci.
Amicalement.
Greffier.
"LSteph" a écrit dans le message de news:Bonjour,"Le problème ...c'est que cela ne marche pas.
Il serait plus avisé de dire ...c'est que je n'y arrive pas!
Ce que je t'indiquais est valable pour l'utilisation d'un module de classe
tel que code fourni sur Excelabo ou par MichDenis ou je peux même t'en
fournir un autre ce sera pareil!
Le module doit être nommé et la variable dans le private module s'y
rattacher.
En revanche si un code ne fonctionnait pas sur excelabo indique
précisément lequel cela permettra de tester et le cas échéant qu'il soit
corrigé.
Cordialement.
lStephBonjour,
et mille excuses car je me suis trompé de objet tout à l'heure, c'était
pour combobox et additem :
"Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples
que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche."
Je vais essayer ce matin le module de classe indiqué par michdenis, avec
excellabo.
Ah, les yeux c'est tout.
Amicalement,
Greffier.
.
"LSteph" a écrit dans le message de news:
OL0Vnn%Bonjour,
Il faut nommer ton module de classe,
pour ce faire
dans l'explorateur de projet sur ta gauche
sélectionner l'icône du module de classe
Menu affichage
afficher la fenêtre des propriétés , puis nommer
MyTBoxClass par exemple
En haut du module de Code de ton
UF tu reprends cette définition
Dim TBox as new MyTBoxClass
Cordialement.
lStephBonjour,
Le problème c'est que cela ne marche pas. Alors que sur tous les
exemples que je vois dans les moteurs de recherche, eux marchent.
Y a-t-il quelque chose qui empêche.
Greffier.
"MichDenis" a écrit dans le message de news:
%Tu as un exemple sur exelabo http://www.excelabo.net/
dans le fichier "dm-moduleclasse.xls" suivant que tu peux
télécharger... avec des boutons de commande...
le principe est le même avec des textbox ...
"Greffier" a écrit dans le message de news:
Od4pd%
Bonjour,
Comment fabriquer un module de classe pour une vingtaine de texbox qui
auraient toutes cette cette structure :
Private Sub TextBox10_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Merci, pour tout renseignement,
Greffier.