Déclaration de texte VBA Access

Fermé

ptitsofi - 21 nov. 2009 à 18:50
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 21 nov. 2009 à 19:00

Bonjour,

j'essaie de convertir un montant (de l'euros au dollard) que je saisie dans une cellule mais dans ma macro je ne sais pas comment déclarer montant. (Le taux est faux c'est juste à titre indicatif pour mes tests)

Dim montant As Integer
Const taux = 2

Private Sub Commande2_Click()
Dim montantdollard As Integer
montantdollard = montant * taux
MsgBox "Votre montant : " & montantdollard

End Sub

Aidez moi svp

A voir également:

Déclaration de texte VBA Access
Déclaration - Guide
Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
Excel cellule couleur si condition texte - Guide
Transcription audio en texte word gratuit - Guide
Convertisseur récupération de texte - Guide

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 nov. 2009 à 19:00

Bonjour,

Private montant As Integer
Const taux = 2

Private Sub Commande2_Click()
Dim montantdollard As Integer

   'TextBox1 est la zone texte où est saisi le montant.
   montant = CInt(TextBox1.Text)
   montantdollard = montant * taux

   MsgBox "Votre montant : " & montantdollard

End Sub

Ca doit le faire comme ça.

;o)

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

[Excel] Recherche de Texte avec RechercheV

Bonjour,

j'aimerai que ma formule rechercheV recherche du Texte et non une valeur est-ce possible ?