XL 2013 Cellule

Guismo33 · 4 Septembre 2016

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 · 4 Septembre 2016

Bonsoir Guismo33

Un exemple par vba

Slts

job75 · 4 Septembre 2016

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) :

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 · 5 Septembre 2016

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

Bien à vous

XL 2013 Cellule

Guismo33

XLDnaute Occasionnel

riton00

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Guismo33

XLDnaute Occasionnel

Discussions similaires

XL 2013 Cellule

Guismo33

XLDnaute Occasionnel

riton00

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Guismo33

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency