Exposant

Bonjour,

j'ai une colonne dans excel ou il ya (niveau: 2eme; 4eme; 9eme; 7eme...) et je me trouve dans l'obligation d'appliquer la commande exposant pour chaque une. j'espère trouver une méthode facile

2 réponses

  1. Modérateur
    Bonjour,

    A part pour les "1er" qui seront différents, il suffirait de créer un format nombre :

    ##"ème"

    Tu n'aurais ainsi plus qu'à saisir le chiffre.

    m@rina
    0
    1. Bonjour,
      On peut même traiter le cas du 1er dans le format personnalisé avec une condition exprimée entre crochets: [=1]Standard"er";[>1]Standard"ème";Standard.
      Mais mettre en plus le suffixe en exposant je ne sais pas faire!
      0
    2. en utilisant le code ##"ème" le "eme" s'affiche en bas je veux la mettre en exposant
      0
    3. Bonjour,
      Oui nous savons que ça s'affiche en bas et c'est pour y remédier que Mike-31 a proposé une petite macro.
      Ce serait bien de répondre aux deux questions qu'il pose. Il pourrait alors finaliser sa proposition.
      0
    4. avec le code vba ca marche tres bien. je cherche une autre méthode, je métrise pas le language vba
      0
    5. Bonjour,

      Cela ne t'empêche pas de répondre aux propositions,
      tu ne trouveras pas une formule ou une mise en forme pour ajouter "er" ou "éme" suivant le cas et en même temps, le mettre en exposant. (ajouter c'est possible l'exposant non)
      0
  2. Salut le fil,

    Pourquoi ne pas traiter le problème par BVA
    clic droit sur l'onglet de feuille concernée/visualiser le code et coller ce code
    qui automatiquement placera er pour la saisie de 1 et éme pour 2, 4, 7 et 9 et en exposant.
    si toutes les valeurs doivent être concernées le code sera simplifié, de même qu'il est possible de limiter le code à une plage le code actuel s'appliquant à toute la feuille

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = 1 Then Target = Target & " er"
    If Target = 2 Or Target = 4 Or Target = 7 Or Target = 9 Then Target = Target & " éme"
    With Target.Characters(Start:=1, Length:=1).Font
    .Size = 14
    End With
    With Target.Characters(Start:=2, Length:=4).Font
    .Size = 16
    .Superscript = True
    .ThemeFont = xlThemeFontMinor
    End With
    End Sub
    0