Insérer une condition pour

Bonjour,

Ma macro recherche des données dans la feuille "2013" et génère un tableau dans la feuille "journal ventes" mais elle ne fait pas de distinction entre les montants positifs et les montants négatifs.

Il y a un exemple dans la feuille "journal ventes" ligne 5.

L'idéal serait que lorsque la macro trouve un montant négatif, ce dernier devient positif et se positionne dans la colonne F ou G.

Dans l'exemple, le montant -425 devient 425 et bascule dans la colonne G et inversement pour les deux lignes suivantes.

Merci d'avance.

Titouan

Bonjour,

"Ctrl + q" pour lancer la procédure sur la feuille "journal ventes_1"

Option Explicit
Public Sub Traitement()
Dim Ws As Worksheet
Dim Derligne As Long
Dim plage As Range, c As Range

    Application.ScreenUpdating = False
    Set Ws = Worksheets("journal ventes_1")
    With Ws
        Derligne = .Range("A" & Rows.Count).End(xlUp).Row
        Set plage = .Range("F2:F" & Derligne)
        For Each c In plage
            If c < 0 Then
                c = Abs(c)
                c.Offset(0, 1) = c
                c.ClearContents
            End If
        Next
        Set plage = .Range("G2:G" & Derligne)
        For Each c In plage
            If c < 0 Then
                c = Abs(c)
                c.Offset(0, -1) = c
                c.ClearContents
            End If
        Next
    End With
    Set Ws = Nothing: Set plage = Nothing
End Sub

Impeccable, du coup j'ai fait une macro qui exécute les deux autres macros avec le bouton génération écriture.

C'est tip top.

Merci et bon week end.