Macro selon le signe du montant (-) (+)

[Anto35200]

Bonjour,

J’ai mon relevé de compte qui est la feuille « import ».
J’exporte par une macro les soldes de mon compte sur la feuille « données ».
Le problème, c’est le sens du solde bancaire que je n’arrive pas à intégrer dans la macro, c’est-à-dire que si le solde est en DEBIT, le montant doit être "négatif" avec un signe moins devant.

Un début d'aide serait la bienvenue.

Cordialement.

 

[phlaurent55]

Re : Macro selon le signe du montant (-) (+)

Bonjour plimosin,

remplace tout le code par celui-ci

Sub IMPORT()
    Sheets("import").Range("B13").Copy Destination:=Sheets("données").Range("B1")
    Sheets("données").[B1] = Sheets("données").[B1] * -1
    Sheets("import").Range("C13").Copy Destination:=Sheets("données").Range("B2")
    Sheets("import").Range("F13").Copy Destination:=Sheets("données").Range("B3")
End Sub

à+
Philippe

 

[ROGER2327]

Re : Macro selon le signe du montant (-) (+)

Bonjour à tous.

Une autre :​

Sub IMPORT()
Dim v()
  With Sheets("import")
    v = Array(-.Range("B13").Value, .Range("C13").Value, .Range("F13").Value)
  End With
  Sheets("données").Range("B1:B3").Value = WorksheetFunction.Transpose(v)
End Sub

Bonne journée.


ℝOGER2327
#7511

Mercredi 18 Phalle 141 (Saint Lingam, bouche-trou - fête Suprême Quarte)
11 Fructidor An CCXXII, 5,4630h - pastèque
2014-W35-4T13:06:41Z

 

[pierrejean]

Re : Macro selon le signe du montant (-) (+)

Bonjour à tous

Plus on est de fou plus on rit

A tester (après avoir supprimé les espaces inutiles situés après Nouveau Solde dans la feuille import)

Sub test()
Set c = Sheets("import").Columns("A").Find("Nouveau solde", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  Sheets("données").Range("B1") = -c.Offset(0, 1)
  Sheets("données").Range("B2") = c.Offset(0, 2)
  Sheets("données").Range("B3") = c.Offset(0, 5)
  Sheets("données").Range("B4") =- c.Offset(0, 4)
End If
End Sub