Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Calvus

XLDnaute Barbatruc

• 29 Mars 2016

• #2

Re : Arrondir à deux chiffres après la virgule (VBA)

Bonjour,

Je n'ai pas ouvert ton fichier, mais essaye avec Range("H15").NumberFormat = "0.00"

A+

 

Vote positif 0 Vote négatif

D

donmunnir

XLDnaute Junior

• 29 Mars 2016

• #3

Re : Arrondir à deux chiffres après la virgule (VBA)

Bonjour Calvus,
ca marche pas...
pour H15 je dois modifier dans cette partie

Code:

iFlag = InputBox("Veuillez introduire le montant!")
.Range("H" & n + 4).Value = iFlag

et pour L15 je dois modifier cette partie

Code:

.Range("L" & n + 4).Formula = "=H" & n + 4 & "/O" & n + 4

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #4

Re : Arrondir à deux chiffres après la virgule (VBA)

ci-joint fichier

 

Pièces jointes

• Ven3.xlsm

  41.2 KB · Affichages: 68

Vote positif 0 Vote négatif

D

donmunnir

XLDnaute Junior

• 29 Mars 2016

• #5

Re : Arrondir à deux chiffres après la virgule (VBA)

Merci beaucoup Cathodique

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 29 Mars 2016

• #6

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Bonjour, donmunnir, Calvus 😀, cathodique, le Forum,

Autre possibilité avec ces trois lignes insérées avant "End Sub" :

Code:

    With Sheets("Destination").Range("h15,l15")
        .NumberFormat = "#,##0.00"
    End With
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #7

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

DoubleZero à dit:

Bonjour, donmunnir, Calvus 😀, cathodique, le Forum,

Autre possibilité avec ces trois lignes insérées avant "End Sub" :

Code:

    With Sheets("Destination").Range("h15,l15")
        .NumberFormat = "#,##0.00"
    End With
End Sub

Cliquez pour agrandir...

Ce qu'il n'a pas dit dans son message, c'est que le numéro de ligne est variable.

Bonne soirée à toutes et à tous.

 

Vote positif 0 Vote négatif

D

donmunnir

XLDnaute Junior

• 29 Mars 2016

• #8

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Bonsoir Doublezero,
merco beaucoup a toi aussi, mais le code que tu m'a donnée et même celui de cathodique si je mets une valeur avec une virgule ça me renvoi l'erreur que j'ai sur l'image ci-jointe (cellule H15) :

en me disant le nombre dans cette cellule est au format texte ou précédé d'une apostrophe

comment je peux l'éviter ???

 

Pièces jointes

• Sans titre.jpg

  34.6 KB · Affichages: 72
• Sans titre.jpg

  34.6 KB · Affichages: 69

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 29 Mars 2016

• #9

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Re-bonjour,

cathodique à dit:

Ce qu'il n'a pas dit dans son message, c'est que le numéro de ligne est variable...

Cliquez pour agrandir...

Dans ce cas...

Code:

    With Sheets("Destination").Range("h:h,l:l").SpecialCells(xlCellTypeFormulas, 23)
        .NumberFormat = "#,##0.00"
    End With
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

D

donmunnir

XLDnaute Junior

• 29 Mars 2016

• #10

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

DoubleZero à dit:

Re-bonjour,



Dans ce cas...

Code:

    With Sheets("Destination").Range("h:h,l:l").SpecialCells(xlCellTypeFormulas, 23)
        .NumberFormat = "#,##0.00"
    End With
End Sub

A bientôt 🙂

Cliquez pour agrandir...

re,
j'ai toujours le même problème sur H15 avec le triangle jaune et un message qui dit :

""le nombre dans cette cellule est au format texte ou précédé d'une apostrophe""

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #11

Re : Arrondir à deux chiffres après la virgule (VBA)

Tu utilises la virgule comme séparateur décimal, c'est normal.

Modifie ainsi .Range("H" & n + 4).Value = Replace(iflag, ",", ".")

 

Vote positif 0 Vote négatif

D

donmunnir

XLDnaute Junior

• 29 Mars 2016

• #12

Re : Arrondir à deux chiffres après la virgule (VBA)

Merci beaucoup Mon cher cathodique....
ca marche super bien

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 29 Mars 2016

• #13

Re : Arrondir à deux chiffres après la virgule (VBA)

Re-bonjour,

Ou bien...

Code:

    With Sheets("Destination").Range("h:h,l:l").SpecialCells(xlCellTypeFormulas, 23)
        .Value = .Value
        .NumberFormat = "#,##0.00"
    End With
    Sheets("Destination").Range("h" & Rows.Count).End(xlUp)(1).Value = Sheets("Destination").Range("h" & Rows.Count).End(xlUp)(1).Value * 1
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #14

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Bonsoir DoubleZero,

Bonne idée de multiplier par 1, en effet ça résout le problème.
Mais j'ai une question à te poser; sur la ligne ci-dessus que signe le chiffre 23? Merci
With Sheets("Destination").Range("h:h,l:l").SpecialCells(xlCellTypeFormulas, 23)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 29 Mars 2016

• #15

Re : Arrondir à deux chiffres après la virgule (VBA) (Résolue)

Re-bonjour,

cathodique à dit:

... que signe le chiffre 23? ...

Cliquez pour agrandir...

Il permet de sélectionner l'ensemble des cellules dotées de formules.

Un p'tit bout ce code à tester...

Code:

Option Explicit
Sub Chiffre_23()
    On Error GoTo fin
    Cells.SpecialCells(xlCellTypeFormulas, 23).Select
    Exit Sub
fin:
    MsgBox "Aucune formule dans cet onglet."
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif