Récupération de valeur en vba

EliotN · 4 Juin 2018

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 · 4 Juin 2018

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

Hieu · 4 Juin 2018

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

EliotN · 4 Juin 2018

EliotN à dit:
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 · 4 Juin 2018

Re

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

EliotN · 4 Juin 2018

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 · 4 Juin 2018

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 · 4 Juin 2018

Re

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

EliotN · 4 Juin 2018

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 · 4 Juin 2018

Re

EliotN à dit:
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 · 4 Juin 2018

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 · 4 Juin 2018

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 · 4 Juin 2018

Staple1600 à dit:

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

Récupération de valeur en vba

EliotN

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Hieu

XLDnaute Impliqué

Pièces jointes

EliotN

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

EliotN

XLDnaute Nouveau

EliotN

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

EliotN

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

EliotN

XLDnaute Nouveau

EliotN

XLDnaute Nouveau

Discussions similaires