Discussion :

[Meovai]

Bonjour à tous,

J'aimerai multiplier ma plage de cellule, allant de la colonne H à M jusqu'à la dernière ligne non vide, par une valeur égale à -1. J'ai débuté par une macro mais je n'arrive pas étendre cette macro à plusieurs colonnes, du coup suis obligé de la répéter pour chaque colonne, ce qui est très redondant.

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
21
22
23
24
25
26
27
28
29
30
31
32
 
    'Inversion signe crédit colonne H à M
    Dim plage As Range, cel As Range
    Set plage = Range("H2:H" & Range("H" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
    Next
 
    Set plage = Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
    Next
 
    Set plage = Range("J2:J" & Range("J" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
    Next
 
    Set plage = Range("K2:K" & Range("K" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
 
    Next
    Set plage = Range("L2:L" & Range("L" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
    Next
 
    Set plage = Range("M2:M" & Range("M" & Rows.Count).End(xlUp).Row)
    For Each cel In plage
        cel = cel * -1
    Next

Pouvez-vous m'aider SVP?

Merci à tous

[SfJ5Rpw8]

Bonsoir,
Et tu sais que cela se fait simplement sans macro..tu copie une cellule contenant -1 et tu effectue un collage special en cochant la case multiplier sur tes cellules de destination?

[Meovai]

Bonjour, oui je sais bien. Ce bout de code n'est qu'une étape d'une macro lourde qui traite automatiquement un fichier CSV. Donc il me faut utiliser VBA jusqu'au bout.

Merci

[Philippe Tulliez]

Bonjour,
En gardant l'idée de bbil qui est je pense la meilleure solution, prévoir une cellule qui contiendra la valeur constante -1 et que l'on nommera par exemple maConstante?
Exemple à adapter et qui évite une série de boucles inutiles

Code :

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

1
2
3
4
5
 Range("maConstante").Copy ' Contient la valeur -1
 With ThisWorkbook.Worksheets("Feuil2")
 .Range("B2:H30").PasteSpecial operation:=xlMultiply
 End With
 Application.CutCopyMode = False

[Meovai]

Bonjour, le nombre de lignes est variable selon le fichier source donc je ne peux pas délimité à l'avance mon "range".

Merci

[Philippe Tulliez]

Bonjour,

Bonjour, le nombre de lignes est variable selon le fichier source donc je ne peux pas délimité à l'avance mon "range"

Je me doute bien que c'est variable.
Pour l'exemple j'ai mis une adresse constante pour ce range mais il suffit de l'adapter avec par exemple la propriété CurrentRegion