Discussion :

[rimbaut]

Bonsoir,
j'ai ecrit ce bout de code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Option Explicit
 
Sub SaisieCapital()
    Dim Montant As String
    Dim Tauxinteret As String
    Dim Durée As String
 
    Montant = InputBox("Entrer le montant", " CAPITAL PLACE ")
    Tauxinteret = InputBox(" Entrez le taux", "TAUX D'INTERET ANNUEL")
    Durée = InputBox(" Entrez le nombre d'années", " DUREE")
End Sub

Je voudrais recuperer dans les cellules c4, c5, c6 les valeurs entrées par l'utilisateur comme celà se présente sous le fichier ci joint.

Cependant, je ne sais pas si je dois utiliser msgbox ou autres instructions pour récuperer ces données

Merci de me guider afin que je puisse bien comprendre la démarche

[wilfried_42]

Bonjour

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("C4").value = cdbl(montant)
Range("C5").value = cdbl(tauxinteret)
Range('"C6").value = Cint(durée)

à placer juste au dessus de End Sub

[rimbaut]

Bonjour Wilfried_42, bonjour à tous,
J'ai rentré le code que tu m'as donné mais rien ne se produit. Par ailleurs, j'aimerai savoir ce que signifie cdbd1 et Cint. Est ce que ce sont des fonctions,
des variables ... ?http://www.developpez.net/forums/ima...s/icon_eek.gif

Merci d'avance pour l'aide

[Jean-Philippe André]

il s'agit de CDBL() pas CDB1()

[rimbaut]

En fait j'ai modifié mon code comme suit car je ne sais pas ce qu'est cdbl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Range("C4").Value = Montant
    Range("C5").Value = Tauxinteret
    Range("C6").Value = Durée

et ça marche.

Mais qu'est ce que cdbl ? Une fonction ???

[Jean-Philippe André]

[LeForestier]

Bonsoir,
la fonction CDBL transforme un format string en format nombre Double
et CINT en format Nombre Integer (simple et pas de virgule)
Mais avec Excel ce n'est pas nécessaire, il fait la conversion automatiquement.
A+