Dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric([F5]) And [F5].NumberFormat = "0%" Then
[F5].NumberFormat = "@" 'format Texte
[F5] = 100 * [F5] & "%"
[F5].NumberFormat = "General" 'format Standard
End If
End Sub
Si l'on veut contrôler aussi les pourcentages décimaux :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric([F5]) And [F5].NumberFormat Like "*0%" Then
[F5].NumberFormat = "@" 'format Texte
[F5] = 100 * [F5] & "%"
[F5].NumberFormat = "General" 'format Standard
End If
End Sub