Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Formatage de champs dans un formulaire

Formatage de champs dans un formulaire

6 réponses
Avatar
rthompson
Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis au
cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
isabelle
bonjour Rex,

1er: [Transactions!D2] = Format(CDbl(AmountOut), "#.0,00")

2ème: [Transactions!A2] = CDate(Actiondate)3ème

3ème:

oui il suffit à partir d'une action commander à partir du userform1
d'appeler le userform2
par exemple à partir d'un bouton

Private Sub CommandButton1_Click()
UserForm1.Hide
Load UserForm2
UserForm2.Show
End Sub


isabelle

rthompson a écrit :
Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis au
cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex






Avatar
isabelle
bonjour Rex,

tu peut aussi (apres avoir renseigner la cellule Transactions!D2]
ajouter cette ligne :

[Transactions!D2].NumberFormat = "#.##0,00"


isabelle

rthompson a écrit :
Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis au
cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex






Avatar
rthompson
Bonjour à toi

Et merci

Pour les deux premier, j'ai compris et cela fonctionne

MAIS


Pour le troisième malheureusement j'y arrive pas

J'ai mis, dans VBA dans le Forms Banking un bouton
Auquel j'affecte le code
Private Sub CommandButton1_Click()
Load calendrier
calendrier.Show
calendrier.Left = 1
calendrier.Top = 1
End Sub

Mais il ne se passe rien

Ce que je voudrais est ceci

Dans mon userform Banking j'ai un TextBox dans lequel je mets la date

Ce que j'aurais voulu (on peut toujours rêver) étais que quand on clique
pour y mettre la date il ouvre le calendrier de notre ami JB

Qu'on y sélectionne la date et qu'elle soit automatiquement mis dans le
textBox


Si tu as le temps
Et surtout si tu comprends ce que je demande (j'ai l'habitude de compliquer
mes questions)


Un grand merci à toi

Rex




"isabelle" a écrit dans le message de news:
ORAqSny%
bonjour Rex,

1er: [Transactions!D2] = Format(CDbl(AmountOut), "#.0,00")

2ème: [Transactions!A2] = CDate(Actiondate)3ème

3ème:
oui il suffit à partir d'une action commander à partir du userform1
d'appeler le userform2
par exemple à partir d'un bouton

Private Sub CommandButton1_Click()
UserForm1.Hide
Load UserForm2
UserForm2.Show
End Sub


isabelle

rthompson a écrit :
Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis
au cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex








Avatar
rthompson
Bonjour

Petite info complémentaire

Il me dit qu'il ne peut pas afficher un non-modale à partir d'un modal

Rex


"isabelle" a écrit dans le message de news:
ORAqSny%
bonjour Rex,

1er: [Transactions!D2] = Format(CDbl(AmountOut), "#.0,00")

2ème: [Transactions!A2] = CDate(Actiondate)3ème

3ème:
oui il suffit à partir d'une action commander à partir du userform1
d'appeler le userform2
par exemple à partir d'un bouton

Private Sub CommandButton1_Click()
UserForm1.Hide
Load UserForm2
UserForm2.Show
End Sub


isabelle

rthompson a écrit :
Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis
au cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex








Avatar
isabelle
bonjour Rex,

voici un exemple : http://cjoint.com/?hcsClwVFDo

isabelle

rthompson a écrit :
Bonjour à toi

Et merci

Pour les deux premier, j'ai compris et cela fonctionne

MAIS


Pour le troisième malheureusement j'y arrive pas

J'ai mis, dans VBA dans le Forms Banking un bouton
Auquel j'affecte le code
Private Sub CommandButton1_Click()
Load calendrier
calendrier.Show
calendrier.Left = 1
calendrier.Top = 1
End Sub

Mais il ne se passe rien

Ce que je voudrais est ceci

Dans mon userform Banking j'ai un TextBox dans lequel je mets la date

Ce que j'aurais voulu (on peut toujours rêver) étais que quand on clique
pour y mettre la date il ouvre le calendrier de notre ami JB

Qu'on y sélectionne la date et qu'elle soit automatiquement mis dans le
textBox


Si tu as le temps
Et surtout si tu comprends ce que je demande (j'ai l'habitude de compliquer
mes questions)


Un grand merci à toi

Rex




"isabelle" a écrit dans le message de news:
ORAqSny%

bonjour Rex,

1er: [Transactions!D2] = Format(CDbl(AmountOut), "#.0,00")

2ème: [Transactions!A2] = CDate(Actiondate)3ème

3ème:
oui il suffit à partir d'une action commander à partir du userform1
d'appeler le userform2
par exemple à partir d'un bouton

Private Sub CommandButton1_Click()
UserForm1.Hide
Load UserForm2
UserForm2.Show
End Sub


isabelle

rthompson a écrit :

Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis
au cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex














Avatar
isabelle
bonjour Rex,

http://cjoint.com/?hcsKmOVXOO

j'ai mit le premier modal et de 2ème non -modal et tout fonctionne,

le probleme est peut être ailleurs,

isabelle

rthompson a écrit :
Bonjour

Petite info complémentaire

Il me dit qu'il ne peut pas afficher un non-modale à partir d'un modal

Rex


"isabelle" a écrit dans le message de news:
ORAqSny%

bonjour Rex,

1er: [Transactions!D2] = Format(CDbl(AmountOut), "#.0,00")

2ème: [Transactions!A2] = CDate(Actiondate)3ème

3ème:
oui il suffit à partir d'une action commander à partir du userform1
d'appeler le userform2
par exemple à partir d'un bouton

Private Sub CommandButton1_Click()
UserForm1.Hide
Load UserForm2
UserForm2.Show
End Sub


isabelle

rthompson a écrit :

Bonjour à toutes et tous

Tout est dans le titre


J'ai créer un UserForme (formulaire) et je voudrais que l'info transmis
au cellule soit formater

C'est à dire que l'info dans

Private Sub AmountOut_Change()
[Transactions!D2] = CDbl(AmountOut)
End Sub

Soit au format #.##0,00 ?

Et que l'info dans

Private Sub Actiondate_Change()
[Transactions!A2] = Actiondate
End Sub

Soit au format date



Et en question complémentaire
Y a-t-il moyen de mettre un userform dans un userform

J'ai trouvé un magnifique petit userform de notre ami JB
pour insérer des dates
Et si je pouvais le "Coller" sur le mien et qu'il interagisse ce serait
super


A bientôt
Et d'avance merci

Rex