simple macro division cellule

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2010

• #2

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)

Code:

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

 

Dernière édition: 10 Décembre 2010

Vote positif 0 Vote négatif

S

SARdynamite

XLDnaute Junior

• 10 Décembre 2010

• #3

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...

 

Vote positif 0 Vote négatif

S

SARdynamite

XLDnaute Junior

• 10 Décembre 2010

• #4

Re : simple macro division cellule

Merci beaucoup c'est parfait...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2010

• #5

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

Code:

Application.EnableEvents = False

 

Vote positif 0 Vote négatif