Discussion :

[guigui69]

Bonsoir à tous,

Je dispose d'un fichier excel (Classeur1.xlsx),
- La longueur de se fichier peut varier.
- la feuille excel est trier par le numéro de compte.


Je voudrais faire un code VBA qui boucle sur la colonne D et qu'a chaque changement de compte par rapport à la ligne précédente cela rajoute une ligne et cela inscrite le numéro du compte.

Et il faut obligatoirement que la ligne rajouter soit en premier par rapport au autre compte.

Le but finale est d'importer ce fichier en comptabilité.


Pour réaliser mon script vba, il faut que je part du bas du document et que je remonte (ca je suis arrivé a à faire le code VBA) par contre je ne sais pas comment faire pour qu'il réalise la comparaison par rapport à la ligne précédent/suivante.

Pourriez-vous m'aiguillez , des exemples?

Merci d'avance

guigui69

[jijie]

Bonsoir,

Bon si je comprend bien !

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
Sub test()
Dim NbLigne As Long
Dim NumCompte As Variant
Dim T As Long
 
 NbLigne = Sheets("feuil1").Range("A65956").End(xlUp).Row + 1
NumCompte = Sheets("feuil1").Cells(3, 4)
Sheets("feuil1").Rows(3).Insert Shift:=xlDown
Sheets("feuil1").Cells(3, 4) = NumCompte
 
For T = 4 To NbLigne
 
If Sheets("feuil1").Cells(T, 4) = NumCompte Then
 
' rien ne se passe
 
Else
 
NumCompte = Sheets("feuil1").Cells(T, 4) ' on réaffecte le nouveau numéro de compte
Sheets("feuil1").Rows(T).Insert Shift:=xlDown ' on insère une ligne
Sheets("feuil1").Cells(T, 4) = NumCompte ' on inscrit le num cpte ds cette nouvelle ligne
 
NbLigne = NbLigne + 1
End If
Next T
 
End Sub

En supposant que ta première ligne est bien la 3

Je commence par le haut mais c'est selon!