saisie et resultat dans une même cellule

[micky]

bonsoir,
j'aimerais qu'à la saisie d'un chiffre, celui-ci soit divisé par 100 et que le résultat s'affiche dans la meme cellule
ex: on tape A1=790 et A1 affiche 7,90 après validation...

mercii

 

[andré]

Salut micky,

Outils / Options / Modification / Cocher Décimale fixe - Place : 2

Ceci ne fonctionne pas pour 790.50 qui restera toujours 790.50 !

Ândré.

 

[micky]

merci bcp André

 

[micky]

Re André et tout le monde,
j'aimerais au fait que cette option de décimale fixe ne soit valable que sur certaines cellules de la feuille, est ce possible??
mercii

 

[Pascal76]

Bonjour

je te propose une petite solution VBA. Dans l'exemple cela ne divise par 100 que les cellules de la colonne A. A adapter pour tes besoins.

Private Sub Worksheet_Change(ByVal Target As Range)

Static maBool As Boolean

If Not Intersect(Target, Range("A:A")) Is Nothing Then
  If maBool = False Then
    maBool = True
    Target.Value = Target.Value / 100
  Else: maBool = False
  End If
End If

End Sub


Bonne journée

Pascal

 

[andré]

Resalut,

Non, ceci s'applique à toute la feuille.

A titre d'information, il y a moyen de diviser par 1000 et d'arrondir le nombre par le format de la cellule, donc uniquement pour les cellules formatées de la sorte, en tapant un espace derrière le format.

75 235.58 devient donc 75

Je ne connais pas de solution pour une division arrondie par 100, si ce n'est par un collage spécial division !

Ândré.

 

[micky]

merci Pascal , je la teste de suite

 

[micky]

merci André, je vais tester la macro de Pasal

 

[micky]

Re Pascal,
Ta macro fonctionne bien quand je saisis directement dans les cellules D8 et D9 mais voilà j'ai une macro avant qui quand je selectionne l'option button 1 (mm) il m'indique 790 pour D8 et D9 ou 4400 si je selectionne l'option button 2(dioptries) mais là ta macro ne fonctionne plus->débogage sur la ligne : Target.Value = Target.Value / 100
Tu sais ce qu'il faut faire?
mercii

 

[Pascal76]

Re

Voici ton fichier légèrement modifié

Bon courage

Pascal

 

[micky]

merci, ca marche niquel 😱)