VBA - Multiplier cellules d'une colonne par valeur fixe
Bonjour,
Travaillant quotidiennement sur Excel dans le cadre de mon travail, j'ai décidé de me lancer dans l'écriture de macro via VBE.
J'ai lu plusieurs "cours" sur certains sites et essayer de résoudre mon problème mais je bloque là.
Chaque jour je fais des extractions via un ERP, cependant les quantités de sorties des articles sont toujours négatives (sauf lors de retour où là les chiffres sont positifs, c est inversé) et je dois les remettre en positif "à la main" sur Excel.
Pour le moment je fais une formule dans une autre colonne en multipliant les cellules par (-1) et ensuite je fais copier / coller en valeur sur la colonne de base et j'obtiens ma colonne en positif (ou négatif pour les retours).
J'ai essayer sur VBE en utilisant le code suivant
Sub positif1()
Range("c2").Select
ActiveCell.Value = ActiveCell.Value * -1
Range("c3").Select
ActiveCell.Value = ActiveCell.Value * -1
Range("c4").Select
ActiveCell.Value = ActiveCell.Value * -1
Range("c5").Select
ActiveCell.Value = ActiveCell.Value * -1
Range("c6").Select
ActiveCell.Value = ActiveCell.Value * -1
End Sub
--> C'est très fastidieux, surtout que mes extrations font souvent + de 50 000 lignes ... et qu'en plus le nombre de lignes est variable
J'ai donc essayer sous une autre forme :
Sub positif2()
Range("c2:c13").Select
Range("c2:c13") = ActiveCell.Value * -1
End Sub
--> Mais cette fois si toutes les cellules sont bien en signe inversé mais prennent la valeur de la cellule active à cause de "ActiveCell" :/
Ce dont j'ai besoin c'est que chaque cellule d'une colonne, sauf le titre, multiplie sa valeur initiale par -1, et que le calcul se fasse en fonction du nombre de cellules.
Je joins un fichier test avec 7 lignes et j'ai besoin que les colonnes C et E appliquent la formule citée au dessus (je les ai surlignées en rouge pour faciliter la lecture)
Merci par avance,
Ludovic
Bonjour
Remplace la macro POSITIF par celle ci-dessous
Sub positif()
'MAcro Dan
Dim plage As Range, cel As Range
Set plage = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For Each cel In plage
cel = cel * -1
cel.Offset(0, 2) = cel.Offset(0, 2) * -1
Next
End SubSi ok, clique sur le v Vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse.
Amicalement
Ça marche parfaitement bien, un grand merci à toi !