Bonjour,
 
Je suis débutante en programmation, je dois faire un petit calculateur de bilan carbone pour un logement sous excel.
Le calcul se fait bien par contre, au moment de l'exportation des résultats vers une feuille excel, il y a un problème: certaines valeurs ne sont plus sous forme décimale et je n'arrive pas à voir d'où ça vient!
Ce sont les valeurs en TEP et en tonne de CO2 qui posent problème.
 
 
Voici mon code si qqn peut m'aider
Merci!
 

 
 
La question subsidiaire :
Je veux que qd j'exporte mes données, les cases de resultats soient colorées, sauf que comme le resultat est exporté aléatoirement (en fonction de là où clic la personne) je ne sais pas faire, nous on sait colorer une case que l'on connait.
Une idée la dessus ?

Bonjour
 
La premier chose qui est étonnante est L’utilisations des chaines de Char (String) pour stoker des valeurs numérique.
 
Mais si comme il est indiquée dans le post << au moment de l'exportation des résultats vers une feuille excel>> il y a un problème de format (et uniquement a ce moment) le code ci-dessous donnera des exemples de formatage :
 
Private Sub Export_Click()  'Export dans la feuille excel (valeur calculée)
 
'Sélection de la cellule active sur la feuille active
  With ActiveCell
' -> Valeur en TEP
 
    'Traitement premiere cellule
    .NumberFormat = "0.00E+00"  'Pour Nombre scientifique (a adapter suivant contenu de Label18)
    .Font.Bold = True    'Pour texte en gras
    .Font.ColorIndex = 44 'Pour changer couleur texte
    .Value = Label18
    .Interior.ColorIndex = 50  'Change la couleur de fond de la cellule
                               '50 est l'index de la couleur dans la palette des 56 couleurs.
                               'Voir http://www.mvps.org/dmcritchie/excel/colors.htm (entre autre)
     
    'Traitement cellule colonne suivante
    With .Offset(0, 1)
      .NumberFormat = "@"  'Pour format texte (.Caption est un texte ?)
      .Value = Label19.Caption
      .Interior.ColorIndex = 3 'Change couleur fond
    End With
     
' -> Valeur en tonne de CO2
    'Traitement cellule Ligne suivante
    With .Offset(1, 0)       'Ici Pas de modification de format dans cette exemple
                             ' En Fait toutes les modif de format peuvent etre intégrée
                             ' dans les bloc With (Pour chaque cellule)
      .Value = Label17
    End With
     
    'Traitement cellule colonne suivante
    With .Offset(1, 1)
      .Value = Label20.Caption
    End With
 
' -> Valeur en arbre pour compenser
    'Traitement cellule Ligne suivante
    With .Offset(2, 0)
      .Value = Label16
      .NumberFormat = "0.00" ' (2 digit apres virgule)
    End With
     
    'Traitement cellule colonne suivante
    With .Offset(2, 1)
      .Value = Label21.Caption
    End With
    ' selectionne cellule suivante
    .Offset(3, 0).Select
  End With
End Sub
 
Mcdx

Si le pb persite sur le calcul a base de string. Il faut utiliser des variables intermediaires du bon type et les fonctions de convertion.
 
Bon Calcul de TEP  
 
Mcdx

Je vais tester tout ca merci beaucoup !