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

Pièces jointes

  • Classeur1.xlsm
    12.7 KB · Affichages: 24

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

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

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla