Excel VBA - Problème formatage valeur numérique dans cellule
Résolu
Kayna.86
Messages postés
42
Date d'inscription
Statut
Membre
Dernière intervention
-
Kayna.86 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
Kayna.86 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous!
me voilà de retour pour sollicter votre aide sur un pbroblème que je n'arrive pas à résoudre.
Je souhaite modifier automatiquement l'affichage des valeurs numériques contenues dans plusieurs tableaux, en fonction du critère auquel se rapporte ces données (le critère varie en fonction du tableau).
Voici le code (en version simplifié) que j'ai rédigé en m'inspirant de ce que j'ai pu trouver sur les forums, et du code obtenu en enregistrant une macro pendant lors du formatage manuel du tableau.
....
Set data = Sheets("tableau").Range("A6")
Sheets("tableau").Range("A8:J13").select
Select Case data
Case data = "Bleu"
Selection.NumberFormat = "#,##0.0%"
Case data = "blanc" Or data = "rouge"
Selection.NumberFormat = "#,##0.0"
Case Else
Selection.NumberFormat = "#,##0"
End Select
Le code fonctionne, mais le résultat n'est pas celui escompté.
En effet, seul la dernièere instruction case est exécuté correctement.
Dans le premier cas de figure, au lieu de convertir 0,355554777 en 35.6 % je me retrouve avec 0.
Dans les cas suivants, au lieu de convertir 25,2566794646 en 25,2, mon tableau affiche 25.
Il semblerait qu'il y ait une erreur de lecture sur les formats que j'ai renseignés. Or j'ai simplement repris les codes de formats obtenus en faisant un enregistrement de macro, lors du formatage manuel des données.
Quelequ'un peut-il m'aider à trouver ce qui cloche dans mes instruction?
merci d'avance,
Kayna
me voilà de retour pour sollicter votre aide sur un pbroblème que je n'arrive pas à résoudre.
Je souhaite modifier automatiquement l'affichage des valeurs numériques contenues dans plusieurs tableaux, en fonction du critère auquel se rapporte ces données (le critère varie en fonction du tableau).
Voici le code (en version simplifié) que j'ai rédigé en m'inspirant de ce que j'ai pu trouver sur les forums, et du code obtenu en enregistrant une macro pendant lors du formatage manuel du tableau.
....
Set data = Sheets("tableau").Range("A6")
Sheets("tableau").Range("A8:J13").select
Select Case data
Case data = "Bleu"
Selection.NumberFormat = "#,##0.0%"
Case data = "blanc" Or data = "rouge"
Selection.NumberFormat = "#,##0.0"
Case Else
Selection.NumberFormat = "#,##0"
End Select
Le code fonctionne, mais le résultat n'est pas celui escompté.
En effet, seul la dernièere instruction case est exécuté correctement.
Dans le premier cas de figure, au lieu de convertir 0,355554777 en 35.6 % je me retrouve avec 0.
Dans les cas suivants, au lieu de convertir 25,2566794646 en 25,2, mon tableau affiche 25.
Il semblerait qu'il y ait une erreur de lecture sur les formats que j'ai renseignés. Or j'ai simplement repris les codes de formats obtenus en faisant un enregistrement de macro, lors du formatage manuel des données.
Quelequ'un peut-il m'aider à trouver ce qui cloche dans mes instruction?
merci d'avance,
Kayna
A voir également:
- Excel VBA - Problème formatage valeur numérique dans cellule
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
