Discussion :

[landoltp]

Bonjour,
j'ai une question toute bête (suis débutant). j'ai fait un code qui fonctionne à partir d'inputbox, mais il faudrait qu'il marche à partir de cellules de ma feuille excel.
Par exemple je définis "Nominal" et "intérêt" (qui sont "dim as currency") dans des inputbox,

Code :

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

1
2
Nominal = InputBox("Montant du nominal")
    intérêt = InputBox("Taux de l'obligation (en % ... Taper 5 pour 5%)") / 100

mais si ces valeurs sont déjà dans les cellules A1 et B2 et que je veux que mon code les prenne de là, comment faire?

merci d'avance

[alsimbad]

tu regardes les propriétés des msgbox.

Code :

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

1
2
3
4
5
 
Sub boites()
Nominal = InputBox("Montant du nominal", , Range("a1"))
intérêt = InputBox("Taux de l'obligation (en % ... Taper 5 pour 5%)", , Range("b2")) / 100
End Sub

bon week end

[Gorfael]

Bonjour,
j'ai une question toute bête (suis débutant). j'ai fait un code qui fonctionne à partir d'inputbox, mais il faudrait qu'il marche à partir de cellules de ma feuille excel.
Par exemple je définis "Nominal" et "intérêt" (qui sont "dim as currency") dans des inputbox,

Nominal = InputBox("Montant du nominal")
intérêt = InputBox("Taux de l'obligation (en % ... Taper 5 pour 5%)") / 100

mais si ces valeurs sont déjà dans les cellules A1 et B2 et que je veux que mon code les prenne de là, comment faire?

merci d'avance

Salut
Nominal=range("A2")
Nominal=cells(2,1)
Nominal=[A2]
Les trois formes affectent la valeur de la cellule A2 à la variable "Nominale"
Attention toutefois au format de la cellule : C'est la valeur de la cellule qui est prise en compte et non ce que tu vois.
Si la cellule B2 est au format "%" => 50% sont affichés lorsque la valeur 50 est entrée. Mais la valeur prise par la cellule n'est que 0,5 (visible si on repasse en format standard).
A+

[zazaraignée]

Je préfère la forme plus explicite incluant le nom de la feuille, le Range et la propriété Value.

Code :

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

1
2
Nominal = Feuil1.Range("A1").Value
Interet = Feuil1.Range("A2").Value

Ceci dans un souci de lisibilité et de facilité de compréhension.

[landoltp]

Merci à tous