[VBA]Concept macro

[FCBFlo]

[Resolu][VBA]Concept macro

Bonjour,

J'ai un problème de conceptualisation de macro.

J'ai une liste de numéros de machines. Je compare entre deux colonnes si le nom de machine et le même et si c'est le cas je rajoute la valeur qui est dans une autre colonne à une variable.

Le problème est que dans la première colonne, les noms de machine peuvent apparaitre plusieurs fois, et qu'à ce moment là, je ne veux pas qu'il recompare avec l'autre colonne. Et je ne voit pas comment faire pour qu'il ne recompare pas.

Dim Row As Integer
Dim NbValeur As Integer
Dim Row2 As Integer

Dim ValeurC As Long
ValeurC = 0

With Worksheets("Feuil1")

NbValeur = .Cells(3, 3).Value

For Row = 3 To NbValeur

        
        For Row2 = 1 To 1300
        
            If Cells(Row2, 13) = Cells(Row, 4) Then
            
                ValeurC = ValeurC + Cells(Row2, 14)
                                            
            End If
        Next
            
        
Next

End With

PS: Pour le titre je ne voyais pas trop quoi mettre.....

 

[suistrop]

Re : [VBA]Concept macro

hello je n ai rien tester juste une idée comme ca...

Dim Row As Integer
Dim NbValeur As Integer
Dim Row2 As Integer

Dim ValeurC As Long
ValeurC = 0

With Worksheets("Feuil1")

NbValeur = .Cells(3, 3).Value

For Row = 3 To NbValeur

        [COLOR="Red"]cartman = true [/COLOR]
        For Row2 = 1 To 1300
        
            If Cells(Row2, 13) = Cells(Row, 4)  and [COLOR="Red"]cartman = true[/COLOR] Then
            [COLOR="Red"]cartman = false[/COLOR]
                ValeurC = ValeurC + Cells(Row2, 14)
                                            
            End If
        Next
          
        
Next

End With

PS : ca se trouve jme trompe totalement

 

[FCBFlo]

Re : [VBA]Concept macro

Merci pour la piste, ta solution fonctionne si c'est le contraire au niveau des colonnes, j'échange les "For" est c'est bon!!!

Bonne journée!!