Bonjour à tous,
Je vous sollicite afin d'avoir une petite aide sur la mise en place d'un code VBA :
Code VBA :
Sub RepeterCompteAuxiliaire()
Dim ws As Worksheet
Dim lastRowA As Long
Dim lastRowC As Long
Dim i As Long
Dim compteAuxiliaire As Variant
Dim numeroFacture As Variant
Set ws = ThisWorkbook.Sheets("Feuil8")
lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
compteAuxiliaire = ""
For i = 2 To lastRowA
If Left(ws.Cells(i, "A").Value, 1) = "F" Then
If ws.Cells(i, "A").Value <> numeroFacture Then
compteAuxiliaire = ws.Cells(Application.WorksheetFunction.Match("*", ws.Range("C:C"), 0), "C").Value
numeroFacture = ws.Cells(i, "A").Value
End If
ws.Cells(i, "C").Value = compteAuxiliaire
End If
Next i
End Sub
Comme vous pouvez le voir sur la pièce jointe, je dois répéter le compte auxiliaire dans les cellules vides de la colonne C et cela en fonction du n°facture de la colonne A qui elle-même se répète...
Merci d'avance,