Discussion :

[Yashin]

Bonjour

Je dispose d'un tableau tiré du logiciel de comptabilité qui reprend tous les achats de la période par fournisseur.
Je voudrai pour la plage de fournisseurs ajouter une ligne supplémentaire après le dernier doublon :

ZABATA
MANTOR
MANTOR
MANTOR
=====> AJOUTERE LIGNE MANTOR
CHUPACHUPA
COYOTTE
COYOTTE
COYOTTE
COYOTTE
COYOTTE
=====> AJOUTERE LIGNE COYOTTE
FELIX

Puis insérer une formule que je spécifie.

Je vous remercie d'avance

Yashine

[laetitia]

bonjour Yashin le forum
suppose ta liste en colonne A a adapter pour la formule pas assez d'infos!!!

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Sub Rec()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i + 1, 1).Insert Shift:=xlDown
End If: Next i
End Sub

[Yashin]

Bonjour laetitia

Merci pour la réponse, ça fonctionne
J'ai juste changé

Code :

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

Insert Shift:=xlDown

par

Code :

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

EntireRow.Insert

Merci Beaucoup