Bonsoir,
j'ai un petit probleme de format dansun textbox sur les ¤
textbox1.Value = Format(textbox1.Value, "##,##¤")
mais il arrondi a la valeur superieure pour 37,5 il met 38¤
et dans un autre textbox je voudrais recuperer la derniere valeur de
la cellule colone A (ex 81)
j'ai mis:
me.textbox2 = "2009!A1:A & Sheets("An2009").[A65500].end(xlup).row
mais il n'en veut pas
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
andre
oups petite erreur il faut lire me.textbox2 = "An2009!A1:A & Sheets("An2009").[A65500].end(xlup).row de maniere generale comment recuperer la valeur d'une cellule pour la mettre dans un dans un textbox faut que cela soit dans le Private Sub UserForm_Initialize() merci
-- andre
oups petite erreur
il faut lire
me.textbox2 = "An2009!A1:A & Sheets("An2009").[A65500].end(xlup).row
de maniere generale comment recuperer la valeur d'une cellule
pour la mettre dans un dans un textbox
faut que cela soit dans le Private Sub UserForm_Initialize()
merci
oups petite erreur il faut lire me.textbox2 = "An2009!A1:A & Sheets("An2009").[A65500].end(xlup).row de maniere generale comment recuperer la valeur d'une cellule pour la mettre dans un dans un textbox faut que cela soit dans le Private Sub UserForm_Initialize() merci
-- andre
michdenis
with Sheets("An2009") me.textbox2 =.Range("A1:A" & .range("A65536").end(xlup).row End with
Cela va t'afficher le contenu "brute" sans format de la dernière cellule occupée de la colonne A:A .
Si tu veux afficher dans ton textbox un format particulier, tu utilises la commande "Format( )
"andre" a écrit dans le message de groupe de discussion :
Bonsoir, j'ai un petit probleme de format dansun textbox sur les ¤ textbox1.Value = Format(textbox1.Value, "##,##¤") mais il arrondi a la valeur superieure pour 37,5 il met 38¤ et dans un autre textbox je voudrais recuperer la derniere valeur de la cellule colone A (ex 81) j'ai mis: me.textbox2 = "2009!A1:A & Sheets("An2009").[A65500].end(xlup).row mais il n'en veut pas merci
-- andre
with Sheets("An2009")
me.textbox2 =.Range("A1:A" & .range("A65536").end(xlup).row
End with
Cela va t'afficher le contenu "brute" sans format de la dernière cellule occupée de
la colonne A:A .
Si tu veux afficher dans ton textbox un format particulier, tu utilises
la commande "Format( )
"andre" <andre260@cegetel.net> a écrit dans le message de groupe de discussion :
mn.b5547d91b0af4d26.51150@cegetel.net...
Bonsoir,
j'ai un petit probleme de format dansun textbox sur les ¤
textbox1.Value = Format(textbox1.Value, "##,##¤")
mais il arrondi a la valeur superieure pour 37,5 il met 38¤
et dans un autre textbox je voudrais recuperer la derniere valeur de
la cellule colone A (ex 81)
j'ai mis:
me.textbox2 = "2009!A1:A & Sheets("An2009").[A65500].end(xlup).row
mais il n'en veut pas
merci
with Sheets("An2009") me.textbox2 =.Range("A1:A" & .range("A65536").end(xlup).row End with
Cela va t'afficher le contenu "brute" sans format de la dernière cellule occupée de la colonne A:A .
Si tu veux afficher dans ton textbox un format particulier, tu utilises la commande "Format( )
"andre" a écrit dans le message de groupe de discussion :
Bonsoir, j'ai un petit probleme de format dansun textbox sur les ¤ textbox1.Value = Format(textbox1.Value, "##,##¤") mais il arrondi a la valeur superieure pour 37,5 il met 38¤ et dans un autre textbox je voudrais recuperer la derniere valeur de la cellule colone A (ex 81) j'ai mis: me.textbox2 = "2009!A1:A & Sheets("An2009").[A65500].end(xlup).row mais il n'en veut pas merci
-- andre
andre
pour la 1ere partie j'ai une erreur de syntaxe et pour le format j'ai bienl'euro mais il m'arrondi malgre que j'ai bien utilisé la commande "format" la ligne de code est dans l'ennoncé merci bonne soiree
-- andre
pour la 1ere partie
j'ai une erreur de syntaxe
et pour le format j'ai bienl'euro
mais il m'arrondi malgre que j'ai bien utilisé
la commande "format"
la ligne de code est dans l'ennoncé
merci
bonne soiree
pour la 1ere partie j'ai une erreur de syntaxe et pour le format j'ai bienl'euro mais il m'arrondi malgre que j'ai bien utilisé la commande "format" la ligne de code est dans l'ennoncé merci bonne soiree
-- andre
michdenis
Effectivement, si tu veux extraire la valeur de la dernière cellule en colonne A:A, le code devrait s'écrire comme suit dans le formulaire
With Sheets("An2009") Me.Textbox2 = Format(.Range("A" & .Range("A65536").End(xlUp).Row), "# ### ##0.0000") End With l'arrondi aura lieu au dernier chiffre décimale de ton format. au besoin tu peux ajouter des 0 ...
"andre" a écrit dans le message de groupe de discussion :
pour la 1ere partie j'ai une erreur de syntaxe et pour le format j'ai bienl'euro mais il m'arrondi malgre que j'ai bien utilisé la commande "format" la ligne de code est dans l'ennoncé merci bonne soiree
-- andre
Effectivement, si tu veux extraire la valeur de la dernière
cellule en colonne A:A, le code devrait s'écrire comme
suit dans le formulaire
With Sheets("An2009")
Me.Textbox2 = Format(.Range("A" & .Range("A65536").End(xlUp).Row), "# ### ##0.0000")
End With
l'arrondi aura lieu au dernier chiffre décimale de ton format. au besoin
tu peux ajouter des 0 ...
"andre" <andre260@cegetel.net> a écrit dans le message de groupe de discussion :
mn.bcc07d9170be7870.51150@cegetel.net...
pour la 1ere partie
j'ai une erreur de syntaxe
et pour le format j'ai bienl'euro
mais il m'arrondi malgre que j'ai bien utilisé
la commande "format"
la ligne de code est dans l'ennoncé
merci
bonne soiree
Effectivement, si tu veux extraire la valeur de la dernière cellule en colonne A:A, le code devrait s'écrire comme suit dans le formulaire
With Sheets("An2009") Me.Textbox2 = Format(.Range("A" & .Range("A65536").End(xlUp).Row), "# ### ##0.0000") End With l'arrondi aura lieu au dernier chiffre décimale de ton format. au besoin tu peux ajouter des 0 ...
"andre" a écrit dans le message de groupe de discussion :
pour la 1ere partie j'ai une erreur de syntaxe et pour le format j'ai bienl'euro mais il m'arrondi malgre que j'ai bien utilisé la commande "format" la ligne de code est dans l'ennoncé merci bonne soiree
-- andre
andre
bonsoir michdenis
non il y a erreur sur ta reponse dans la 1er cas la cel contient une valeur numerique (pas de format) mais dans ton code comme dans le mien il y a erreur de syntaxe je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et des decimales or avec mon code il arrondi a la valeur superieure textbox1.Value = Format(textbox1.Value, "##,##¤") merci
-- andre
bonsoir michdenis
non il y a erreur sur ta reponse
dans la 1er cas la cel contient une valeur numerique (pas de format)
mais dans ton code comme dans le mien il y a erreur de syntaxe
je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et
des decimales or avec mon code il arrondi a la valeur superieure
textbox1.Value = Format(textbox1.Value, "##,##¤")
merci
non il y a erreur sur ta reponse dans la 1er cas la cel contient une valeur numerique (pas de format) mais dans ton code comme dans le mien il y a erreur de syntaxe je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et des decimales or avec mon code il arrondi a la valeur superieure textbox1.Value = Format(textbox1.Value, "##,##¤") merci
-- andre
michdenis
En vba, lorsque tu utilises ce type de code
Textbox2 = range("A1") En fait tu récupères seulement la valeur contenu dans la cellule et tu ne récupère jamais le format de la cellule. et c'est normal.
Pour récupérer le format de la cellule : Format_Cellule = Range("A1").NumberFormat '(Paramètres américains)
N'oublie pas que si tu entres des symboles de formatage dans le textbox, tu devras les enlever si tu veux faire des opérations mathématiques sur ces textbox. Contrairement à une cellule de la feuille de calcul, le formatage que tu donnes au textbox fait parti du contenu du textbox.
"andre" a écrit dans le message de groupe de discussion :
bonsoir michdenis
non il y a erreur sur ta reponse dans la 1er cas la cel contient une valeur numerique (pas de format) mais dans ton code comme dans le mien il y a erreur de syntaxe je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et des decimales or avec mon code il arrondi a la valeur superieure textbox1.Value = Format(textbox1.Value, "##,##¤") merci
-- andre
En vba, lorsque tu utilises ce type de code
Textbox2 = range("A1")
En fait tu récupères seulement la valeur contenu dans
la cellule et tu ne récupère jamais le format de la cellule.
et c'est normal.
Pour récupérer le format de la cellule :
Format_Cellule = Range("A1").NumberFormat '(Paramètres américains)
N'oublie pas que si tu entres des symboles de formatage dans le
textbox, tu devras les enlever si tu veux faire des opérations mathématiques
sur ces textbox. Contrairement à une cellule de la feuille de calcul, le
formatage que tu donnes au textbox fait parti du contenu du textbox.
"andre" <andre260@cegetel.net> a écrit dans le message de groupe de discussion :
mn.bcef7d915119b1a0.51150@cegetel.net...
bonsoir michdenis
non il y a erreur sur ta reponse
dans la 1er cas la cel contient une valeur numerique (pas de format)
mais dans ton code comme dans le mien il y a erreur de syntaxe
je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et
des decimales or avec mon code il arrondi a la valeur superieure
textbox1.Value = Format(textbox1.Value, "##,##¤")
merci
Textbox2 = range("A1") En fait tu récupères seulement la valeur contenu dans la cellule et tu ne récupère jamais le format de la cellule. et c'est normal.
Pour récupérer le format de la cellule : Format_Cellule = Range("A1").NumberFormat '(Paramètres américains)
N'oublie pas que si tu entres des symboles de formatage dans le textbox, tu devras les enlever si tu veux faire des opérations mathématiques sur ces textbox. Contrairement à une cellule de la feuille de calcul, le formatage que tu donnes au textbox fait parti du contenu du textbox.
"andre" a écrit dans le message de groupe de discussion :
bonsoir michdenis
non il y a erreur sur ta reponse dans la 1er cas la cel contient une valeur numerique (pas de format) mais dans ton code comme dans le mien il y a erreur de syntaxe je recupere justa la valeur
dans le 2eme cas j'ai plusieurs textbox avec des formats monetaires et des decimales or avec mon code il arrondi a la valeur superieure textbox1.Value = Format(textbox1.Value, "##,##¤") merci
-- andre
andre
merci pour se cours tous mes textbox se remplissent c'est ok tant pis pour le format comme je fais des calculs et ca fonctionne j'ai mis les lignes de code dans le private sub initialise mais le seul qui ne passe pas est celui la je dois recuperer la valeur dans la derniere celule A:A textbox1 =sheets("2009").Range("A1:A" & .range("A65536").end(xlup).row) erreur sybtaxe et le tien With Sheets("2009") Me.Nbre_adh = .Range("A1:A" & .Range("A65536").End(xlUp).Row) il n'ouvre plus l userform merci de de ton aide
-- andre
merci pour se cours
tous mes textbox se remplissent c'est ok tant pis pour le format
comme je fais des calculs et ca fonctionne
j'ai mis les lignes de code dans le private sub initialise
mais le seul qui ne passe pas est celui la
je dois recuperer la valeur dans la derniere celule A:A
textbox1 =sheets("2009").Range("A1:A" & .range("A65536").end(xlup).row)
erreur sybtaxe et le tien
With Sheets("2009")
Me.Nbre_adh = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
il n'ouvre plus l userform
merci de de ton aide
merci pour se cours tous mes textbox se remplissent c'est ok tant pis pour le format comme je fais des calculs et ca fonctionne j'ai mis les lignes de code dans le private sub initialise mais le seul qui ne passe pas est celui la je dois recuperer la valeur dans la derniere celule A:A textbox1 =sheets("2009").Range("A1:A" & .range("A65536").end(xlup).row) erreur sybtaxe et le tien With Sheets("2009") Me.Nbre_adh = .Range("A1:A" & .Range("A65536").End(xlUp).Row) il n'ouvre plus l userform merci de de ton aide
-- andre
michdenis
Le code est celui-ci :
with Sheets("An2009") me.textbox2 =.Range("A" & .Range("A65536").End(xlUp).Row) End with
Le code est celui-ci :
with Sheets("An2009")
me.textbox2 =.Range("A" & .Range("A65536").End(xlUp).Row)
End with