Bonjour,

voici mon code
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
20
21
22
23
24
25
26
27
28
29
Sub MiseEnForme()
 
Dim i As Long
Dim a As Long
Dim NbreLigne As Long
 
 ' Insertion d'une colonne
 
    Range("A1").Resize(, 1).EntireColumn.Insert Shift:=xlToRight
 
  'Selection du numero de compte  
 
 
    If Cells(i, 5).Value Like "6*" Then
 
 
    For a = 0 To 5
 
        If Cells(i, 5).Value <> "" Then
 
        Cells(a + i + 2, 1).Value = Cells(i, 5).Value
 
        End If
 
    Next
 
    End If 
 
End Sub
je met en copie le fichier exemple pour visualiser le pb:

Je cherche à reformater une extraction d'un grand livre (comptabilité) et je voudrais avoir le numero de compte à coté de chacune de mes factures.
J'arrive à :

- inserer une ligne à gauche
- faire reconnaitre le numero de compte avec like "6*"
- copier ce numero de compte dans la nouvelle colonne à gauche de ma première facture dans ce compte

mais je n'arrive pas à le faire repeter cette action jusqu'a ce qu'il ait fini les factures de ce compte

j'aimerais bien aussi qu'il m'élimine les ligne qui ne sont pas des factures mais ça c'est accessoire puisqu'il est très facile de faire des filtres...

si quelqu'un peu me filer un petit coup de main .

merci beaucoup !!

ps: le 5 que j'utilise est arbitraire parceque je n'arrive pas à lui faire compter le nombre de ligne de facture pour chaque compte