Exposant
seyou
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
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
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
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
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
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!
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.
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)