Problème d'arrondi automatique
Résolu
Jabou26022019
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Jabou26022019 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Jabou26022019 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je reviens vers toi avec un nouveau problème sur Excel que tu résoudras, c'est sûr, comme les précédents, ce dont je te remercie encore.
J'ai fait une feuille de calcul avec une macro en VBA pour faire des sommes dans une colonne en fonction de la couleur de fond.
Voici ma formule VBA :
------------------
Function couleur(cellule As Range)
Application.Volatile
couleur = cellule.Interior.ColorIndex
End Function
Function sommeCouleurs(plageC As Range, cellule As Range) As Long
Application.Volatile
Dim chaqueCelluleC As Range
sommeCouleurs = 0
For Each chaqueCelluleC In plageC
If (chaqueCelluleC.Interior.ColorIndex = cellule.Interior.ColorIndex) Then
sommeCouleurs = sommeCouleurs + chaqueCelluleC.Value
End If
Next chaqueCelluleC
For Each chaqueCelluleC In plageC
Next chaqueCelluleC
End Function
-----------------------
Elle fonctionne bien, sauf un problème : les résultats sont affichés arrondis au nombre entier le plus proche, ce qui m'ennuie car je voudrais deux chiffres après la virgule.
J'ai cherché du côté de la suppression de l'arrondi automatique, de l'affichage, de la mise en forme des nombres, ... je ne trouve pas la solution. Y a-t-il un élément dans la formule VBA qui automatise l'arrondi ? Comment l'annuler ?
Merci à toi de te pencher sur mon problème.
Cordialement
Jabou
Je reviens vers toi avec un nouveau problème sur Excel que tu résoudras, c'est sûr, comme les précédents, ce dont je te remercie encore.
J'ai fait une feuille de calcul avec une macro en VBA pour faire des sommes dans une colonne en fonction de la couleur de fond.
Voici ma formule VBA :
------------------
Function couleur(cellule As Range)
Application.Volatile
couleur = cellule.Interior.ColorIndex
End Function
Function sommeCouleurs(plageC As Range, cellule As Range) As Long
Application.Volatile
Dim chaqueCelluleC As Range
sommeCouleurs = 0
For Each chaqueCelluleC In plageC
If (chaqueCelluleC.Interior.ColorIndex = cellule.Interior.ColorIndex) Then
sommeCouleurs = sommeCouleurs + chaqueCelluleC.Value
End If
Next chaqueCelluleC
For Each chaqueCelluleC In plageC
Next chaqueCelluleC
End Function
-----------------------
Elle fonctionne bien, sauf un problème : les résultats sont affichés arrondis au nombre entier le plus proche, ce qui m'ennuie car je voudrais deux chiffres après la virgule.
J'ai cherché du côté de la suppression de l'arrondi automatique, de l'affichage, de la mise en forme des nombres, ... je ne trouve pas la solution. Y a-t-il un élément dans la formule VBA qui automatise l'arrondi ? Comment l'annuler ?
Merci à toi de te pencher sur mon problème.
Cordialement
Jabou
Configuration: Macintosh / Safari 13.1
A voir également:
- Excel supprimer arrondi automatique
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Supprimer page word - Guide
- Word et excel gratuit - Guide