Problème avec format automatique excel

Résolu
mmecartier Messages postés 5 Statut Membre -  
mmecartier Messages postés 5 Statut Membre -
Bonjour.
Je rencontre un léger souci avec du vba :
Je demande de calculer des moyennes d'élèves à partir de savoirs.
C'est l'ordinateur qui fait le calcul.
Tout va bien sauf si je demande au vba d'ajouter "/20" à la fin car alors les élèves qui avaient 4 se retrouvent avec écrit 20-avr qui se voit ensuite transformé en 41124 ou autre nombre de ce genre là.
Pourtant je demande que le .Numberformat de la cellule soit sur "General" .
Merci si quelqu'un peut m'aider ou me dire comment ajouter ce /20 qui rend les choses plus propres autrement.

2 réponses

  1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour
    le calcul est fait en VBA ou par formule?
    Dans tous les cas, plutôt que de passer par VBA pour le format(ajouter /20 le transformer en date), il est probablement plus simple de formatez la cellule résultat en

    "personnalisée" et type > standard"/20"

    qui n'enlève rien à la valeur numérique de la cellule.

    A tout hasard en VBA

    Selection.NumberFormat = "General""/20"""

    crdlmnt
    0
    1. mmecartier Messages postés 5 Statut Membre
       
      Merci.
      Parfait pour le "General""/20"""
      C'est ce que je ne savais pas faire.
      0
  2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Effectivement si tu fais entrer 4/20 dans une cellule Excel le considère comme une date sauf si on le fait précéder d'une apostrophe pou qu'il soit considéré comme du texte '4/20
    Mais ceci a l'inconvénient de ne plus pourvoir utiliser la valeur pour des calculs par des formules (moyenne par exemple)

    Il vaut mieux laisser 4 dans la cellule et avec un format personnalisé faire afficher 4/20; la valeur dans la cellule est toujours 4 et est utilisable en tant que nombre mais l'affichage à l'écran ou l'impression donne 4/20

    Pour cela sélectionner la ou les cellules concernées clic droit puis Format cellule choisir Personnalisé et dans Type entrer soit 0 "/20" si que des notes entières soit 0,0 "/20" si notes avec une décimale (4,5 par ex) soit 0,00 "/20" si notes avec 2 décimales (4,75 par ex)

    Cdlmnt
    0
    1. mmecartier Messages postés 5 Statut Membre
       
      Merci aussi pour la réponse.
      0