Discussion :

[xaviou99]

Bonjour,
Je suis dans la création d'un système de gestion et je bloque sans doute sur un truc tout bête, je voudrais la ligne de code nécessaire à convertir les valeurs de ma colonne D en nombre négatif.
Merci d'avance

[Thautheme]

Bonjour Xaviou, bonjour le forum,

Pas sûr d'avoir bien compris... Je ferai une boucle sur chaque cellule de la colonne en multipliant sa valeur par -1... Avec un code du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim C As Range 'déclare la variable C (Cellule)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
COL = 4 'définit la colonne COL
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
For Each C In O.Range(O.Cells(1, COL), O.Cells(DL, COL)) 'boucle sur toutes les cellule editée C de la colonne COL de l'onglet O
    If IsNumeric(C.Value) Then C.Value = C.Value * -1 'si la valeur de la cellule est numérique, multiplie sa valeur par -1
Next C 'prochaine cellule de la boucle
End Sub

[Pierre Fauconnier]

Salut.

Tu pourrais transposer le collage spécial opération en VBA, histoire d'éviter les boucles qui sont souvent pénalisantes sur le plan de la performance.

Par exemple, avec la plage A1:A10 à inverser et une cellule C1 non utilisée

Code :

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

1
2
3
4
5
6
Sub Test()
  Range("c1") = -1
  Range("c1").Copy
  Range("a1:a10").PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
  Range("c1").ClearContents
End Sub

[xaviou99]

Merci pour vos réponses.
J'ai un petit soucis en appliquant le code. Je vois pas ou est le problème?

Code :

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

1
2
3
4
5
6
 
For Each C In Sheets("MOI").Range(Sheets("MOI").Cells(1, "E"), Sheets("MOI").Cells(Sheets("MOI").Cells(Application.Rows.Count, "E").End(xlUp).Row, "E"))
    TEST = 0
    If C.Value > 0 Then TEST = TEST + 1
    If TEST = 1 Then C = C.Value * -1 'Soucis à ce niveau la, je vois pas pourquoi
Next C

Pour répondre à Pierre,
C'est ce que j'avais fais au début via l'enregistreur de macro mais je préfère une ligne de code pour exprimer une condition comme ci dessus sans problème.

[Pierre Fauconnier]

Je ne comprends pas pourquoi tu passes par la variable Test

Tu pourrais utiliser directement

Code :

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

If C.Value > 0 Then C.Value = - C.Value

Sinon, dans ton code, il manque .Value derrière le C sur la ligne If Test = 1 Then C.Value = ...

[xaviou99]

Je passe par une variable test car dans ma boucle, j'ai d'autres conditions par la suite. Toujours le même problème en revanche:

Code :

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

1
2
3
For Each C In Sheets("MOI").Range(Sheets("MOI").Cells(1, "E"), Sheets("MOI").Cells(Sheets("MOI").Cells(Application.Rows.Count, "E").End(xlUp).Row, "E"))
If C.Value > 0 Then C.Value = -C.Value 'Cela bloque après Then 
Next C

Or si je test avec un message pour voir la valeur de Test, ça marche bien

Code :

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

1
2
3
4
5
For Each C In Sheets("MOI").Range(Sheets("MOI").Cells(1, "E"), Sheets("MOI").Cells(Sheets("MOI").Cells(Application.Rows.Count, "E").End(xlUp).Row, "E"))
    TEST = 0
    If C.Value > 0 Then TEST = TEST + 1
    If TEST = 1 Then MsgBox ("La valeur de TEST est : " & TEST)
Next C

[Pierre Fauconnier]

C'est la valeur de C que tu dois tester. Peut-être n'est-elle pas numérique. Regarde vers quoi pointe C (quelle cellule?) et regarde sa valeur. Es-tu certain que tu dois commencer en E1? Ne serait-ce pas en E2?

Perso, je déclarerais la plage avant de travailler avec, ça permettrait d'être plus clair dans ton code.

[xaviou99]

Je viens de regarder ma liste et il y avait un caractère au milieu qui n'avait pas lieu d'être. Je te remercie, tout marche parfaitement.
Bonne journée