Bonjour j'aurai besoin d'aide pour reussir a multiplier la colonne C et D en C sous condition.
J'ai déjà une VBA(ci dessous) et j'aimerai que la ligne rouge puisse me multiplier la D et C en C .
J'ai mon fichier qui est joint avec une explication plus précise.
Sub doublon_RED()
tableau = Array("RED")
For n = 0 To UBound(tableau)
With Sheets(tableau(n))
l = 3
Set deb = .Cells(l, 6)
While deb.Offset(1, 0) <> ""
Set deb = .Cells(l, 6)
If egal(deb) = True Then 'Si la ligne qui suit est égal alors action
deb.Offset(0, -1) = deb.Offset(0, -1) + deb.Offset(1, -1)
deb.Offset(0, -2) = ""
deb.Offset(0, -3).Value= deb.Offset(0, -2).Value * deb.Offset(0, -3).Value
deb.Offset(0, -4) = texte(deb.Offset(0, -4)) & Chr(10) & texte(deb.Offset(1, -4))
deb.Offset(0, -5) = texte(deb.Offset(0, -5)) & Chr(10) & texte(deb.Offset(1, -5))
deb.Offset(0, 6).Value = deb.Offset(0, 6) + deb.Offset(1, 6)
deb.Offset(0, 7).Value = deb.Offset(0, 7) + deb.Offset(1, 7)
Set deb = .Cells(l, 5)
deb.Offset(1, 0).EntireRow.Delete
Else 'si non on passe à la suivante
l = l + 1
End If
Wend
End With
Next
End Sub
J'ai déjà une VBA(ci dessous) et j'aimerai que la ligne rouge puisse me multiplier la D et C en C .
J'ai mon fichier qui est joint avec une explication plus précise.
Sub doublon_RED()
tableau = Array("RED")
For n = 0 To UBound(tableau)
With Sheets(tableau(n))
l = 3
Set deb = .Cells(l, 6)
While deb.Offset(1, 0) <> ""
Set deb = .Cells(l, 6)
If egal(deb) = True Then 'Si la ligne qui suit est égal alors action
deb.Offset(0, -1) = deb.Offset(0, -1) + deb.Offset(1, -1)
deb.Offset(0, -2) = ""
deb.Offset(0, -3).Value= deb.Offset(0, -2).Value * deb.Offset(0, -3).Value
deb.Offset(0, -4) = texte(deb.Offset(0, -4)) & Chr(10) & texte(deb.Offset(1, -4))
deb.Offset(0, -5) = texte(deb.Offset(0, -5)) & Chr(10) & texte(deb.Offset(1, -5))
deb.Offset(0, 6).Value = deb.Offset(0, 6) + deb.Offset(1, 6)
deb.Offset(0, 7).Value = deb.Offset(0, 7) + deb.Offset(1, 7)
Set deb = .Cells(l, 5)
deb.Offset(1, 0).EntireRow.Delete
Else 'si non on passe à la suivante
l = l + 1
End If
Wend
End With
Next
End Sub