Référence circulaire - est-ce possible ?

[Domdom49]

Bonsoir tout le monde,

J'aimerais que ma case par exemple B2 soit égal à elle-même +15%.
Par exemple, si je tape "100" en B2, alors B2 devient 115.

Est-ce possible ?

Merci à vous,
Domdom49

 

[jpb388]

Re : Référence circulaire - est-ce possible ?

Bonsoir a tous
en macro oui, en formule non (selon mes connaissances)
clic droit sur l'onglet de la feuille concernée et visualiser le code
copier et coller ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target = Target.Value * 1.15
Application.EnableEvents = True
End Sub

changer "$A$1" avec l'adresse de la cellule concernée
lors de la fermeture enregistrer le classeur en xlsm

 

[ROGER2327]

Re : Référence circulaire - est-ce possible ?

Bonsoir à tous.

Un peu plus sûr :​

Private Sub Worksheet_Change(ByVal cible As Range)
  If Not Intersect(cible, [B2]) Is Nothing And Not IsEmpty([B2].Value) And IsNumeric([B2].Value) Then
    With Application: .EnableEvents = False: [B2].Value = 1.15 * [B2].Value: .EnableEvents = True: End With
  End If
End Sub

ℝOGER2327
#6979

Lundi 16 As 141 (Saint Cap, captain - fête Suprême Quarte)
28 Brumaire An CCXXII, 9,2907h - coing
2013-W47-1T22:17:51Z

 

[Domdom49]

Re : Référence circulaire - est-ce possible ?

Bonjour,

Merci beaucoup pour votre aide !

Domdom49