Formatage de champs dans un formulaire

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19683701
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






isabelle
Le #19683691
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






rthompson
Le #19683841
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








rthompson
Le #19683901
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








isabelle
Le #19684011
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














isabelle
Le #19684201
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














Publicité
Poster une réponse
Anonyme