Chargement feuille

cs_fred146 Messages postés 9 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 3 octobre 2004 - 29 sept. 2004 à 20:59
cs_carabou Messages postés 6 Date d'inscription jeudi 14 août 2003 Statut Membre Dernière intervention 4 octobre 2004 - 4 oct. 2004 à 01:49
J'ai 2 petites questions de débutant
1. Je souhaite lancer une application vba sous excel en faisant apparaître uniquement les userforms et ne pas afficher la fenêtre type excell, j'ai déjà vu sur le net des applications de ce type
2. Je souhaite faite apparaitre lors de la saisie le fait que ce soit un montant en euro j(inscris 2 et s'affiche systématiquemet 2€
Merci d'avance aux bonnes âmes

3 réponses

cs_carabou Messages postés 6 Date d'inscription jeudi 14 août 2003 Statut Membre Dernière intervention 4 octobre 2004
3 oct. 2004 à 18:13
Point n°1 :
L'instruction pour masqué l'application Excel est la suivante :
Application.visible=False

Pour la ré-afficher :
Application.visible=True

Point n°2 :
Si il s'agit d'un saisie dans un form, je te conseille directement de positionner un € dans un Label à proximité du champ de saisi.

8-) megalex
0
cs_fred146 Messages postés 9 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 3 octobre 2004
3 oct. 2004 à 21:13
Si je comprens bien au lancement de l'icône je dois ouvrir un form et fermer application par exemple

machinform.show
fichierbidule.visible = false

Concernant la saisie d'une monnais je pensais qu'en féfinissant le format du textbox on pouvait le type de saisie
0
cs_carabou Messages postés 6 Date d'inscription jeudi 14 août 2003 Statut Membre Dernière intervention 4 octobre 2004
4 oct. 2004 à 01:49
Les objet TextBox ne dispose pas, a priori, de format pré-intégré permettant de définir un affichage d'unité précis.

Une solution pourrait être d'associer le code suivant à l'évènement AfterUpdate du TextBox :

Private Sub TextBox1_AfterUpdate()

If Right(TextBox1, 1) <> "€" Then
TextBox1.Text = TextBox1.Text & "€"
End If

End Sub
0
Rejoignez-nous