requête vba

Question

Bonjour, 


Je suis nulle en vba ... 

J'ai un tableau sous excel composé de 16 colonnes et de 39 069 lignes. Le nbre de colonne ne bouge jamais en revanche le nbre de ligne renseigné pt fluctuer.

dans ce tableau mon probleme est le suivant c'est que les montants indiqués (colonne I) ne sont pas signés donc le total en bas de mon fichier additionne des choux et des carottes. Il y a une autre colonne qui me permet de connaitre le sens de l'opération si c'est positif ou negatif.

J'aimerais en fonction du type de l'operation => rac, tfs (info dispo colonne D) par exemple signer négativement les données qui sont en colonne I

si qlq'un pt m'aider

merci bcp

lermite222 · Answer

Bonjour,
quand tu dis... signer négativement les données qui sont en colonne I 
c'est par exemple changer 100 en -100 ?
A+

lermite222 · Answer

A tester,
Sub ChangeI()
Dim i As Long
    Sheets("feuil1").Select 'adapter nom de la feuille
    'Remplacer le 1 par la première ligne où commencer
    For i = 1 To Cells(Rows.Count, "I").End(xlUp).Row
        If (Cells(i, "D") = "rac" Or Cells(i, "D") = "tfs") And Cells(i, "I").Value > 0 Then
            Cells(i, "I").Value = -Cells(i, "I").Value
        End If
    Next i
End Sub
Fait une copie de ton classeur avant de lancer la macro.
A+

Requête vba

2 réponses

Discussions similaires

Newsletters