simple macro division cellule

[SARdynamite]

Bonjour,

Au moment d'entrer une valeur dans une des cellules C10:E100 j'aurai besoin que la valeur soit divisée par 100 quand je valide la saisie (par entrée)

Merci pour votre aide car je suis incapable face à cette simple requête 🙄

 

[Staple1600]

Bonsoir

Pourquoi ne pas saisir manuellement dans ta cellule
=15345/100 et valider par ENTER ?

Si tu parles de saisie, c'est que c'est un processus manuel non ?

EDITION
Si vraiment tu veux passer par VBA, essaie ce code (qui peut avoir des effets surprenants sans doute)
A mettre dans le code de la feuille concernée (pas dans un module standard)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C10:E100]) Is Nothing Then Exit Sub
If Not IsEmpty(Target) And Target.Count = 1 Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = Target / 100
Application.EnableEvents = True
End If
End If
End Sub

 

[SARdynamite]

Re : simple macro division cellule

Bonsoir,

En fait j'aurais beaucoup de cellules à saisir chaque jour. Des chiffres à l'unité ou à la dizaine donc cela impliquerait de passer en décimal avec , et 0. Pas pratique. C'est donc pour grandement accélérer le processus...

 

[SARdynamite]

Re : simple macro division cellule

Merci beaucoup c'est parfait...

 

[Staple1600]

Re

Non ce n'est pas parfait

Il n'y a pas de gestion d'erreurs dans le code que je t'ai fourni

et ceci peut parfois provoquer des surprises

Application.EnableEvents = False