Récupération de valeur en vba

[EliotN]

Bonjour à vous.
En vba Excel, par un double clic en H2, je voudrais y écrire le résultat d'un calcul qui est en H5, avec décimales.
Mon report est systématiquement en nombre entier !
Une idée ?
Merci par avance.
Cordialement.
ps : habituellement le format de cette cellule est personnalisé _ * # ##0,00_) _€_ ;_ * (# ##0,00) _€_ ;_ * "-"??_) _€_ ;_ @_
Eliot

 

[Staple1600]

Bonsoir le fil, le forum

@EliotN
Une idée?
Oui, appuyez dans VBE sur la touche F1 😉
Sinon voir ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If R.Address = "$H$2" And [H5].HasFormula Then R = CDbl([H5])
Cancel = True
End Sub

EDITION: Bonsoir Hieu 😉

 

[Hieu]

Salut EliottN, le fil,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("h2")) Is Nothing Then Target = Range("h5")
End Sub

Edit : Trop rapide, Staple ^^

 

[EliotN]

Bonjour à vous.
En vba Excel, par un double clic en H2, je voudrais y écrire le résultat d'un calcul qui est en H5, avec décimales.
Mon report est systématiquement en nombre entier !
Une idée ?
Merci par avance.
Cordialement.
ps : habituellement le format de cette cellule est personnalisé _ * # ##0,00_) _€_ ;_ * (# ##0,00) _€_ ;_ * "-"??_) _€_ ;_ @_
Eliot

J'ai trouvé ceci Format(Valeur, "0.##,###"), qui me donne bien les décimales mais 1 seule si la valeur est de xx,50 !

 

[Staple1600]

Re

@EliotN
Et tu testes nos réponses des fois ?!?
voir le message#2 !

 

[EliotN]

bah oui je teste les réponses !!
mais comme je n'ai qu'1 seul écran je cherche aussi de mon coté sans attendre que ca tombe tout cuit !
en l’occurrence, le temps de rafraichir et ca se croise !

 

[EliotN]

vos réponses donnent le même résultat que moi, cela me convient, même s'il me manque la seconde décimale.
Merci.

 

[Staple1600]

Re

@EliotN
Chez moi, j'ai toutes les décimales...

 

[EliotN]

Merci Staple,
en fait chez moi aussi dans la cellule réceptrice (du au formatage), mais c'est dans le libellé de ma msgbox que je pinaille :
reponse = MsgBox("Le montant de ces achats est de " & CDbl(TabLig) & " €" & vbCrLf & "Voulez-vous reporter ce montant ?", vbYesNo, "Montant"), CDbl(TabLig) affiche les décimales supérieures à zéro !

 

[Staple1600]

Re

Merci Staple,
c'est dans le libellé de ma msgbox que je pinaille :
reponse = MsgBox("Le montant de ces achats est de " & CDbl(TabLig) & " €" & vbCrLf & "Voulez-vous reporter ce montant ?", vbYesNo, "Montant"), CDbl(TabLig) affiche les décimales supérieures à zéro !

Où peut-on lire le mot MsgBox dans le premier message de cette discussion... ?
🙄 🙄

 

[Staple1600]

Re

@EliotN
Chez moi, même avec une MsgBox, j'ai bien mes deux décimales 😉

Sub Hop()
Dim Brouzouf$, reponse
Brouzouf = Format(CDbl(1600 / 13), "#,##0.00""€""")
reponse = _
MsgBox("Le montant de ces achats est de " & Brouzouf & vbCrLf & "Voulez-vous reporter ce montant ?", 4, "Montant")
Select Case reponse
Case 6
MsgBox "Vous avez cliqué sur Oui"
Case 7
MsgBox "Vous avez cliqué sur Non"
End Select
End Sub

 

[EliotN]

oulala staple, mais tu as raison, je ne l'avais pas évoqué au début car ca m'est venu que plus tard.
je vais essayer de tester ce soir, sinon je reviendrai demain matin.
Merci bcp

 

[EliotN]

Re

@EliotN
Chez moi, même avec une MsgBox, j'ai bien mes deux décimales 😉

Sub Hop()
Dim Brouzouf$, reponse
Brouzouf = Format(CDbl(1600 / 13), "#,##0.00""€""")
reponse = _
MsgBox("Le montant de ces achats est de " & Brouzouf & vbCrLf & "Voulez-vous reporter ce montant ?", 4, "Montant")
Select Case reponse
Case 6
MsgBox "Vous avez cliqué sur Oui"
Case 7
MsgBox "Vous avez cliqué sur Non"
End Select
End Sub

SUPER GRAND MERCI !!
J'ai beaucoup de mal à retenir certaines syntaxes de manip de valeurs !
Je prend note de tout ceci !
Bonne nuit.
Cordialement