XL 2013 Cellule

[Guismo33]

Bonjour a tous,

je voudrais , que quand je met un nombre dans une cellule il se multiplie par 1.5.

exemple: A1 20 se multiplie par 1.5 soit : 20*1.5=30

merci a vous


bien à vous

 

[riton00]

Bonsoir Guismo33

Un exemple par vba

Slts

 

[job75]

Bonsoir Guismo33, riton00,

Question moult fois traitée mais peut-être différemment.

Dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Me.UsedRange)
If Not Target Is Nothing Then
  Application.EnableEvents = False
  For Each Target In Target 'si entrées/effacements multiples
    If IsNumeric(CStr(Target)) Then Target = Target * 1.5
  Next
  Application.EnableEvents = True
End If
End Sub

Comme vous ne donnez pas plus d'informations ne comptez pas sur plus de précision.

A+

 

[Guismo33]

Bonjour,
merci a toi , Job75, cela fonctionne correctement.

Bien à vous