Discussion :

[lawliet14]

Bonjour à tous

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



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,

[a_diard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lawliet14]

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,

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Alex020181]

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.