Exposant
Fermé
seyou
Messages postés
24
Date d'inscription
jeudi 5 janvier 2012
Statut
Membre
Dernière intervention
26 avril 2012
-
8 mars 2012 à 16:04
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 10 mars 2012 à 10:21
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 10 mars 2012 à 10:21
2 réponses
m@rina
Messages postés
21211
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
27 décembre 2024
11 373
8 mars 2012 à 17:38
8 mars 2012 à 17:38
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
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
Mike-31
Messages postés
18352
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 décembre 2024
5 110
8 mars 2012 à 23:45
8 mars 2012 à 23:45
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
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
8 mars 2012 à 18:30
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!
9 mars 2012 à 16:35
9 mars 2012 à 19:10
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.
10 mars 2012 à 10:07
Modifié par Mike-31 le 10/03/2012 à 10:26
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)