Je commence à utiliser les userforme pour un fichier banquaire
Je parviens à les créer et même à transférer l'info dans les cellules adéquates
Milliards que je sius bon !!!! :-)))
MAIS
L'info est prit en compte comme du texte et non comme de chiffres ;-((((
Faut croire que je ne suis pas si bon après tout ;-(((((((
Voici ce que j'utilise
Private Sub Amountin_Change() [Bank_In!C4] = Amountin End Sub
Comment faire pour le contenu de la cellule soit considéré comme chiffre?
Je tape dans mon userform 545 Dans ma cellule C4 j'ai bien 545 mais je ne peut pas l'utiliser
D'avance un grand merci
Rex
Philippe.R
Ouf ! -- Philippe.R "rthompson" a écrit dans le message de news:%
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" a écrit dans le message de news:
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate [Bank_Out!A4] = Actiondate End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Bonjour, Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en nombre de type "double". -- Philippe.R "rthompson" a écrit dans le message de news:%
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends Par contre la tienne me pose question Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" a écrit dans le message de news: %
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme chiffre?
Private Sub Amountin_Change() [Bank_In!C4] = CDbl(Amountin) End Sub
--
@+ ;o)))
Ouf !
--
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:%23MCaM3r0HHA.3536@TK2MSFTNGP06.phx.gbl...
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: e56h5gr0HHA.4928@TK2MSFTNGP05.phx.gbl...
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change()
[Bank_In!A4] = Actiondate
End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change()
[Bank_In!A4] = Actiondate
[Bank_Out!A4] = Actiondate
End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
OvkhaSr0HHA.4928@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore
bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en
nombre de type "double".
--
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news:%236C2cMr0HHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus
rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends
Par contre la tienne me pose question
Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23iMyaDr0HHA.5160@TK2MSFTNGP05.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme
chiffre?
Private Sub Amountin_Change()
[Bank_In!C4] = CDbl(Amountin)
End Sub
Ouf ! -- Philippe.R "rthompson" a écrit dans le message de news:%
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" a écrit dans le message de news:
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate [Bank_Out!A4] = Actiondate End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Bonjour, Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en nombre de type "double". -- Philippe.R "rthompson" a écrit dans le message de news:%
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends Par contre la tienne me pose question Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" a écrit dans le message de news: %
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme chiffre?
Private Sub Amountin_Change() [Bank_In!C4] = CDbl(Amountin) End Sub
--
@+ ;o)))
Rex
Merci ;-))))))))
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Ouf ! -- Philippe.R "rthompson" a écrit dans le message de news:%
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" a écrit dans le message de
news:
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate [Bank_Out!A4] = Actiondate End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Bonjour, Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en nombre de type "double". -- Philippe.R "rthompson" a écrit dans le message de news:%
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends Par contre la tienne me pose question Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" a écrit dans le message de news: %
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme chiffre?
Private Sub Amountin_Change() [Bank_In!C4] = CDbl(Amountin) End Sub
--
@+ ;o)))
Merci ;-))))))))
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
uYzdSkt0HHA.1188@TK2MSFTNGP04.phx.gbl...
Ouf !
--
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:%23MCaM3r0HHA.3536@TK2MSFTNGP06.phx.gbl...
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de
news: e56h5gr0HHA.4928@TK2MSFTNGP05.phx.gbl...
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change()
[Bank_In!A4] = Actiondate
End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change()
[Bank_In!A4] = Actiondate
[Bank_Out!A4] = Actiondate
End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de
news:
OvkhaSr0HHA.4928@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore
bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en
nombre de type "double".
--
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news:%236C2cMr0HHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus
rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends
Par contre la tienne me pose question
Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23iMyaDr0HHA.5160@TK2MSFTNGP05.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme
chiffre?
Private Sub Amountin_Change()
[Bank_In!C4] = CDbl(Amountin)
End Sub
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Ouf ! -- Philippe.R "rthompson" a écrit dans le message de news:%
PAS DE PANIQUE
J'avais fais une faute de frappe dans un nom
A bientôt
Rex
"rthompson" a écrit dans le message de
news:
AAAAAAGGGHHHHHH !!!!!!!
Je suis tobé sur un os
Si ceci fonctionne impeccable
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate End Sub
Pourquoi ceci ne fonctionne-t-il pas?
Private Sub Actiondate_Change() [Bank_In!A4] = Actiondate [Bank_Out!A4] = Actiondate End Sub
On ne pourrait pas faire d'une pierre deux coups?
Cela m'étonnerait
A tout de suite
Rex
"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
Bonjour, Pendant que notre ami Modeste fait sa sieste, si mamémoire est encore bonne, CDbl est la fonction VBA qui convertit une chaîne de texte en nombre de type "double". -- Philippe.R "rthompson" a écrit dans le message de news:%
Bonjour Maître Môôôôdeste
Merci pour ta réponse
Pour une fois quelqu'un d'autre (Youky en l'occurence) à été plus rapide que toi
Tu deviens vieux mon cher ;-))))
Les deux solutions proposés donne le même résultats
Et si la sienne je comprends Par contre la tienne me pose question Qu'est-ce donc ce CDbl ???????
A bientôt
Et merci
Rex
"Modeste" a écrit dans le message de news: %
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Comment faire pour le contenu de la cellule soit considéré comme chiffre?
Private Sub Amountin_Change() [Bank_In!C4] = CDbl(Amountin) End Sub
--
@+ ;o)))
Modeste
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Les deux solutions proposés donne le même résultats
Pour le Fun et apporter quelques explications et remarques ;o)))
Comme son nom l'indique un TextBox contient et affiche un TEXTE par ailleurs VBA, comme toute application "Yankee" utilise le "." comme séparateur décimal
la réponse formulée par Youki s'applique donc si tu utilises la virgule pour saisir tes nombres cependant dans le cas ou tu ne saisis que des nombres entiers, cela n'a aucune influence sur la valeur a inscrire dans la cellule
L'icelle réponse par moi émise force la transformation Texte en numérique... (j'aurai pu tout aussi bien utiliser CCur, CDec, CInt, CLng, CSng) pour peu que ce texte ne contienne que des éléments numériques... ce qui ne sera pas le cas si tu utilises la virgule lors de la saisie.
ces deux réponses sont donc parfaitement complémentaires et non exclusives... ;o)))
il apparait donc qu'il faudrait ajouter un controle de numéricité associé à une gestion d'erreur afin que la saisie se fasse en toute sécurité.
If IsNumeric(AmountIn) Then [Bank_In!C4] Íbl(AmountIn) Else If IsNumeric(Replace(Amountin.Value, ",", ".")) Then [Bank_In!C4] Íbl(Replace(AmountIn.Value, ",", ".")) Else msgbox "La valeur saisie " & AmountIn & " n'est pas au format attendu !!!",vbcritical End if End if
le code s'alourdi si l'on veut absolument s'assurer de la pertinence des saisies (Merde In, Merde Out) Cela est une des contraintes des applications déployables. Selon l' implacable loi de Murphy (http://www.courtois.cc/murphy/murphy.html) : si une erreur peut faire planter une application, immanquablement cela ce produira largement avant la probabilité statisque calculée pour cet événement et avec corollaire : cela se produira le jour ou l'impact sera maximum !!! ;o)))
@+ ;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Les deux solutions proposés donne le même résultats
Pour le Fun et apporter quelques explications et remarques ;o)))
Comme son nom l'indique un TextBox contient et affiche un TEXTE
par ailleurs VBA, comme toute application "Yankee" utilise le "." comme
séparateur décimal
la réponse formulée par Youki s'applique donc si tu utilises la virgule pour
saisir tes nombres
cependant dans le cas ou tu ne saisis que des nombres entiers,
cela n'a aucune influence sur la valeur a inscrire dans la cellule
L'icelle réponse par moi émise force la transformation Texte en numérique...
(j'aurai pu tout aussi bien utiliser CCur, CDec, CInt, CLng, CSng)
pour peu que ce texte ne contienne que des éléments numériques...
ce qui ne sera pas le cas si tu utilises la virgule lors de la saisie.
ces deux réponses sont donc parfaitement complémentaires et non exclusives...
;o)))
il apparait donc qu'il faudrait ajouter un controle de numéricité associé à une
gestion d'erreur
afin que la saisie se fasse en toute sécurité.
If IsNumeric(AmountIn) Then
[Bank_In!C4] Íbl(AmountIn)
Else
If IsNumeric(Replace(Amountin.Value, ",", ".")) Then
[Bank_In!C4] Íbl(Replace(AmountIn.Value, ",", "."))
Else
msgbox "La valeur saisie " & AmountIn & " n'est pas au format attendu
!!!",vbcritical
End if
End if
le code s'alourdi si l'on veut absolument s'assurer de la pertinence des saisies
(Merde In, Merde Out)
Cela est une des contraintes des applications déployables.
Selon l' implacable loi de Murphy (http://www.courtois.cc/murphy/murphy.html) :
si une erreur peut faire planter une application,
immanquablement cela ce produira largement avant la probabilité statisque
calculée pour cet événement
et avec corollaire : cela se produira le jour ou l'impact sera maximum !!!
;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Les deux solutions proposés donne le même résultats
Pour le Fun et apporter quelques explications et remarques ;o)))
Comme son nom l'indique un TextBox contient et affiche un TEXTE par ailleurs VBA, comme toute application "Yankee" utilise le "." comme séparateur décimal
la réponse formulée par Youki s'applique donc si tu utilises la virgule pour saisir tes nombres cependant dans le cas ou tu ne saisis que des nombres entiers, cela n'a aucune influence sur la valeur a inscrire dans la cellule
L'icelle réponse par moi émise force la transformation Texte en numérique... (j'aurai pu tout aussi bien utiliser CCur, CDec, CInt, CLng, CSng) pour peu que ce texte ne contienne que des éléments numériques... ce qui ne sera pas le cas si tu utilises la virgule lors de la saisie.
ces deux réponses sont donc parfaitement complémentaires et non exclusives... ;o)))
il apparait donc qu'il faudrait ajouter un controle de numéricité associé à une gestion d'erreur afin que la saisie se fasse en toute sécurité.
If IsNumeric(AmountIn) Then [Bank_In!C4] Íbl(AmountIn) Else If IsNumeric(Replace(Amountin.Value, ",", ".")) Then [Bank_In!C4] Íbl(Replace(AmountIn.Value, ",", ".")) Else msgbox "La valeur saisie " & AmountIn & " n'est pas au format attendu !!!",vbcritical End if End if
le code s'alourdi si l'on veut absolument s'assurer de la pertinence des saisies (Merde In, Merde Out) Cela est une des contraintes des applications déployables. Selon l' implacable loi de Murphy (http://www.courtois.cc/murphy/murphy.html) : si une erreur peut faire planter une application, immanquablement cela ce produira largement avant la probabilité statisque calculée pour cet événement et avec corollaire : cela se produira le jour ou l'impact sera maximum !!! ;o)))
