Macro multiplier condition Résolu

Question

Bonjour tout le monde

Je fait en ce moment une macro en excel avec Visual Basic Editor. Et j'essaie dps qlq jours de trouver comment multiplier des données dans une colonne, si elle remplisse une certaine condition. 

Si les cellules en H2:H(fin série de données) contiennent "ANN" ou "CREDIT" il faut multiplier la cellule de la meme ligne en colonne G par (-1).

Il faut bien sure que ses nouveaux montants en colonne G remplacent les anciens.

J'ai trouvé ceci jusqu'a mtn, mais ca ne functionne pas:

Sub Test()

Dim i As Integer
For i = 2 To 500
        If Cells(i, 8) = "CREDIT" Then
        Cells(i, 7) = Multiply
        i = i * (-1)
    End If
    Next

End Sub

Je suis assez nouvelle en macros, un peu d'aide serait super !!

Un grand merci en avance,

Nathalie

pijaku · Accepted Answer

Bonjour, 
Dans ta macro, i n'est pas le contenu de la cellule mais le numéro de ligne. 
1er conseil, mettre des noms compréhensible aux variables (au moins 3 lettres) : 
Dim Lign As Integer 
For Lign = 1 To 500 
bla bla
Ton code devient donc : 
Sub Test()  
Dim Lign As Integer  

For Lign = 2 To 500  
'ici on va faire les 2 tests avec "ou" 
    If Cells(Lign, 8) = "CREDIT" Or Cells(Lign, 8) = "ANN" Then  
        'ici, si la condition est remplie on multiplie 
        Cells(Lign, 7) = Cells(Lign, 7) * (-1) 
    End If  
Next Lign 
End Sub
Après on peux se poser pas mal de question... Si "CREDIT" est écrit "crédit" est ce que cela fonctionne? On peux remplacer le To 500 par "To derniereLigne"
Tu dis... 
Franck P

michel_m · Answer

Salut Frank

mettre des noms compréhensible aux variables (au moins 3 lettres) 

Bravo, là, tu me fais plaisir et je te plussoie :o))

Nathalie · Answer

Bonjour !! Un grand merci pour ton aide Pijaku !! Et merci au autres des conseils, c'est tj le bienvenu !! 

Si je peu me permettre, j'ai encore une petite question. J'ai fait une macro qui doit supprimer les lignes quand la cellule de cette ligne en colonne H contient le mot "TNA", "INTERD" ou "PréAut". Ca functionne, mais il me laisse toujours trainer une ligne ou deux. Quand je lance la macro 2, 3 fois de suite tout est parti. Comment faire pour que tout disparaissent du premier coup?

Voici un bout de la macro:

Sheets("CB EMV").Select

    Range("A1").Select
    ActiveWindow.SmallScroll Down:=-54
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Dim i As Integer
    For i = 1 To 500
        If Cells(i, 8) = "TNA" Then
        Rows(i).Delete
        i = i - 1
    End If
        If Cells(i, 8) = "INTERD" Then
        Rows(i).Delete
        i = i - 1
    End If
        If Cells(i, 8) = "PréAut" Then
        Rows(i).Delete
    End If
    Next

Faut dire que je me base sur des codes trouvés sur le net, vu que ca ne fait que dps 1 semaine que je me suis mise aux macros !!

Merci beaucoup !!

Nathalie · Answer

Salut les gars !! Dsl pour les réponses tardives, j'ss au taff et je ne bosse que sur mes macros quand j'ai un peu de temps libre. Donc voila, personne ne regarde alors j'en profite pour vous repondre. (Je suis drolement en retard pour l'apero je remarque) 

ENCORE MERCI !! Il me semblais déjà avoir lu qlq part qu'il falait faire les boucles à l'envers, mais je n'avait pas trop compris pq. Mtn si bien sure !! Et pour les variables, je n'ai pas encore eu le temps de les ajuster ds mes macros, mais c'est sur ma liste!!  

Modif de 16:39

J'ai testé toutes vos méthodes, mais la macro me laisse toujours trainer une TNA (qui devrait s'effacer). J'ai surement du me tromper qlq part. Voici la nouvelle macro:

Sub Test()

    Sheets("CB VAD").Select
            
    Dim Lign As Integer, DernLign As Integer
    DernLign = Range("G65536").End(xlUp).Row
    For Lign = DernLign To 1 Step -1
        
        If Cells(Lign, 8) = "TNA" Then
        Rows(Lign).Delete
        Lign = Lign - 1
    End If
        If Cells(Lign, 8) = "INTERD" Then
        Rows(Lign).Delete
        Lign = Lign - 1
    End If
        If Cells(Lign, 8) = "PréAut" Then
        Rows(Lign).Delete
    End If
    Next
        
    For Lign = DernLign To 1 Step -1
    If Cells(Lign, 8) = "CREDIT" Or Cells(Lign, 8) = "ANN" Then
    Cells(Lign, 7) = Cells(Lign, 7) * (-1)
    End If
    
    Next

End Sub


Grand merci, encore une fois. Je me demande bien ce que je ferais sans des personnes gentils comme vous qui aiment aider les autres ;)

Le Pingou · Answer

Bonjour,
Juste au passage, en utilisant se que pijaku (bonjour) a expliqué dans un poste précédent, votre macro :
Sub Test() 

Sheets("CB VAD").Select 

Dim Lign As Integer, DernLign As Integer 
DernLign = Range("G65536").End(xlUp).Row 
For Lign = DernLign To 1 Step -1 

If Cells(Lign, 8) = "TNA" Or Cells(Lign, 8) = "INTERD" Or Cells(Lign, 8) = "PréAut" Then 
Rows(Lign).Delete 
Next 

For Lign = DernLign To 1 Step -1 
If Cells(Lign, 8) = "CREDIT" Or Cells(Lign, 8) = "ANN" Then 
Cells(Lign, 7) = Cells(Lign, 7) * (-1) 
End If 

Next 

End Sub

Nathalie · Answer

Ok super !! Je vais tester ca cette aprem !! J'vous donne des news dés que j'ai testé !! Encore merci a tous, surtout a toi Pijaku !

Nathalie · Answer

Et ca functionne nikel chrome !!!! Wahoo big merci à tout le monde !! Allé hop, à la nouvelle macro mtn, donc peut-etre a bientot ds une nouvelle demande à l'aide? Haha encore merci

Macro multiplier condition

7 réponses

Discussions similaires

Newsletters