Discussion :

[SBAY3I]

salut tous
comme la photo joint je veux executer automatique la fonction exposant, J'ai cherché plusieurs fois sur internet mais je ne connais pas la méthode.

[Theze]

BOnjour,

Tu surlignes "km" puis clic droit ---> Format de cellule et tu coches la case "Exposant"

[anasecu]

Bonjour,

je veux executer automatique la fonction exposant

Si tu veux exécuter automatiquement la mise en exposant tu mets l'une et/ou l'autre de ces fonctions évenementielles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Right(Target, 2) = "km" Then Target.Characters(Start:=Len(Target) - 1, Length:=2).Font.Superscript = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Right(Target, 2) = "km" Then Target.Characters(Start:=Len(Target) - 1, Length:=2).Font.Superscript = True
End Sub

Si tu veux d'autres libellés (cm, kg,etc) en exposant tu les rajoutes.

[SBAY3I]

salut
@Theze merci beucoup pour votre reponse, Je connais cette méthode manuelle. et je ne peux pas le faire avec plus de 1000 cellules et plus d'une colonne
merci beucoup @anasecu pour votre code, mais en fait je ne pouvais pas activer votre code, car mes faibles en vba et macro.

[SBAY3I]

voila le fichier dans piece joint

[anasecu]

Bonjour,

En fait tu n'as besoin d'aucune macro, il te suffit de mettre un format personnalisé sur tes colonnes concernées avec l'unité en exposant.

[SBAY3I]

merci beucoup @anasecu pour votre retour, en fait j'ai trainer plusieur méthode sans succès