Récupération de valeur en vba

EliotN

XLDnaute Nouveau
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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@EliotN
Une idée?
Oui, appuyez dans VBE sur la touche F1 ;)
Sinon voir ceci
VB:
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 ;)
 
Dernière édition:

Hieu

XLDnaute Impliqué
Salut EliottN, le fil,


VB:
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 ^^
 

Fichiers joints

EliotN

XLDnaute Nouveau
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 !
 

EliotN

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

EliotN

XLDnaute Nouveau
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

XLDnaute Barbatruc
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... ?
:rolleyes: :rolleyes:
 

Staple1600

XLDnaute Barbatruc
Re

@EliotN
Chez moi, même avec une MsgBox, j'ai bien mes deux décimales ;)
VB:
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

XLDnaute Nouveau
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

XLDnaute Nouveau
Re

@EliotN
Chez moi, même avec une MsgBox, j'ai bien mes deux décimales ;)
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas