insérer auto une virgule

[Marie]

Bonjour à tous,

c'est la première fois que je viens sur ce site qui est une source d'information pour les n ovices de excel et VB comme moi

je voudrais faire ceci:

Je rentre en A1 une série de 3 ou 4 chiffres
est-il possible d'insérer automatiquement une virgule avant les 2 derniers chiffres?

exple: je tape '123' en A1 j'ai '1,23'
ou je tape '2255' et en A1 j'ai '22,55'

MAIS (car il y a toujours un 'mais') je voudrais que si la personne tape manuellement la virgule, cela ne bug pas...

Je ne sais pas si j'ai été clair...

en tout cas merci à vous et bravo pour ce site exceptionnel !

Marie.

 

[Hellboy]

Bonjour Marie

Ceci pourrait répondre a ta demande:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If InStr(1, .Value, ',') < 1 Then
        .Value = Left(.Value, Len(.Value) - 2) & ',' & Right(.Value, 2)
     End If
End With
End Sub

p.s. En passant, ce code ne vérifie pas si la virgule déja présente est à la bonne place ou non.

Message édité par: Hellboy, à: 29/06/2005 15:13

 

[andré]

Salut,

Hellboy, veux-tu faire la concurrence à Bill Gates ?

Menu Outils / Options / Modification / Décimale fixe.

Et cela ne 'bug' pas en tapant la décimale !

Ândré.

 

[Hellboy]

re

Sacré farceur ! Me sent un peu poche

a+