Discussion :

[lafafmentvotre]

Bonjour
Je cherche désespérément de trouver une solution mon problème.
L'idée est, à l'ouverture et/ou fermeture de mon fichier, de lire les informations indiquées en colonne C (valeurs : Entrées ou Sorties) et de modifier les valeurs des cellules de la ligne en positif ou négatif :
- Si C7 est égal à Sorties alors mes valeurs, s'il y en a, sont modifiées en négatif, sinon mes valeurs, s'il y en a, sont en positif
- Si C8 est égal à Sorties alors mes valeurs, s'il y en a, sont modifiées en négatif, sinon mes valeurs, s'il y en a, sont en positif
- Etc....
Et cela pour chaque ligne
Merci par avance pour votre aide

[joe.levrai]

Bonjour,

tu peux transférer ta plage dans un tableau, parcourir chaque ligne et tester la valeur de ta colonne C.
Si ça correspond à "Sorties", alors boucler sur chaque colonne, et passer en négatif les valeurs positives

exemple à main levé, à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
Dim Tabl(), i As Long, j As Long
Const CIBLE As String = "Sorties"
    Tabl = Feuil1.Cells(1, 1).CurrentRegion.Value
 
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    If Tabl(i, 3) = CIBLE Then
        For j = LBound(Tabl, 2) To UBound(Tabl, 2)
            If IsNumeric(Tabl(i, j)) And Tabl(i, j) > 0 Then Tabl(i, j) = Tabl(i, j) * -1
        Next j
    End If
Next i
 
Feuil1.Cells(1, 1).Resize(UBound(Tabl, 1), UBound(Tabl, 2)).Value = Tabl
End Sub

[lafafmentvotre]

Bonjour joe.levrai
Merci
Je n'arrive pas à l'adapter, j'ai un message d'erreur Object Required
Ma feuille GENERAL ressemble à cela

Je veux bien un coup de main
Merci

[joe.levrai]

Tes données commencent en ligne 7 et pas en ligne 1
Et je pense que tu n'as pas modifié la feuille où traiter

remplace NomDeMaFeuille par le vrai nom de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub toto()
Dim Tabl(), i As Long, j As Long
Const CIBLE As String = "Sorties"
Const MAFEUILLE As String = "NomDeMaFeuille"
    With ThisWorkbook.Worksheets(MAFEUILLE).Cells(7, 1).CurrentRegion
        Tabl = .Offset(6, 0).Resize(.Rows.Count - 6, .Columns.Count).Value
    End With
 
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    If Tabl(i, 3) = CIBLE Then
        For j = LBound(Tabl, 2) To UBound(Tabl, 2)
            If IsNumeric(Tabl(i, j)) And Tabl(i, j) > 0 And Not Tabl(i, j) = "" Then Tabl(i, j) = Tabl(i, j) * -1
        Next j
    End If
Next i
 
    With ThisWorkbook.Worksheets(MAFEUILLE).Cells(7, 1).CurrentRegion
        .Offset(6, 0).Resize(.Rows.Count - 6, .Columns.Count).Value = Tabl
    End With
End Sub

EDIT : cela dit, en regardant ta copie écran, tu pourrais te passer de VBA et juste travailler sur les formules de tes cases qui font les totaux (en haut de ta feuille)

[lafafmentvotre]

Yes, cela fonctionne
Et si je veux mettre également la condition Si CIBLE="Entrées" pour mettre la valeur en positif ?
Afin de gérer les deux cas
Merci

[lafafmentvotre]

Le but est de pouvoir modifier en positif ou négatif en fonction des valeurs Entrées ou Sorties