Code VBA

Bonjour à tous :D

Je vous sollicite afin d'avoir une petite aide sur la mise en place d'un code VBA :

Pièce jointe 647880

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,

Bonjour

Ce serait bien d'indiquer le code que tu as commencé pour traiter ton besoin.

Je veux bien aider a progresser en VBA, mais pas en le faisant a ta place.

En attente de te relire.

Ci dessous un code brut qui traite ta demande , a comprendre et a optimiser.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() ' Macro1 Macro lignefin = Range("A" & Rows.Count).End(xlUp).Row For ligne = lignefin To 1 Step -1 If Len(Cells(ligne, 3)) > 2 Then compteAuxilliare = Cells(ligne, 3) Else Cells(ligne, 3) = compteAuxilliare End If Next End Sub

---

Mince je pensais l'avoir insérer juste en dessous de l'image, le voici :

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

==> Seul problème, il me répète "compte auxiliaire" sur chacune des lignes...

Cordialement,

Salut, ou je n'ai rien compris ou bien tu compliques pour rien.
En me basant sur ta capture, la dernière cellule de ta colonne C contient une valeur.
Je démarre donc de cette cellule vers le haut de la colonne. Si la cellule est vide, je copie le contenu de la cellule en-dessous, sinon je passe à la cellule suivante. Au final, pour le groupe de cellules ayant le même numéro de facture, j'ai le même compte auxiliaire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub RepeterCompteAuxiliaire() Dim ws As Worksheet Dim lastRowC As Long Dim i As Long   Set ws = ThisWorkbook.Sheets("Feuil8") lastRowC = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row   Application.ScreenUpdating = False   For i = lastRowC To 2 Step -1 If ws.Cells(i, "C").Value = "" Then ws.Cells(i, "C").Value = ws.Cells(i + 1, "C").Value End If Next i   Application.ScreenUpdating = True   End Sub

---

Bonjour,

Et en complément voici également en PJ une proposition pour le cas où tes colonnes "A" et "C" ne soient pas classées (j'ai mis le résultat en "D" pour contrôle mais bien sûr tu adaptes le code après contrôle).

En prime en "J" la même chose par formule sous réserve que tes colonnes soient classées.

Teste et dis nous.