Excel VBA - Problème formatage valeur numérique dans cellule [Résolu/Fermé]

Signaler
Messages postés
42
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
17 avril 2013
-
Messages postés
42
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
17 avril 2013
-
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

2 réponses

Messages postés
4237
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 249
Bonjour,

au premier coup d'oeil je dirais que c'est l'écriture du Select Case qui pose problème :
Select Case data
Case "bleu"
...
Case "rouge" Or "blanc"
...
Case Else
...
End Select
sera mieux.

Cordialement.
Messages postés
42
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
17 avril 2013
6
Ca FONCTIONNE!!!!! :-) :-):-)

Merci BEAUCOUP chosette9!!!

Bonne journée,

Kayna