Formule ou macro pour changement de ID

[meganspt]

Bonjour au forum

J'ai besoin de faire des sauts de ligne en fonction de l'ID, une fois que l'ID change,je dois insérer 6 lignes.
Mon fichier fait plus de 25000 lignes et c'est compliquer de le faire, a votre avis une Macro ou une formule pour résoudre ce point.
J'ai mis un fichier avec ce que je veux en exemple
L'onglet "base" est j'ai ce que j'ai actuellement dans mon fichier et l'onglet"cequejeveux" corresponds à ce que je veux 😀
Merci de votre aide

 

[titiborregan5]

Re : Formule ou macro pour changement de ID

Bonjour meganspt, le forum,

à essayer :

Sub t()
For i = Range("a65000").End(xlUp).Row To 2 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Else
Rows(i).Insert
Rows(i).Insert
Cells(i, 1) = Cells(i + 2, 2)
Rows(i).Insert
Rows(i).Insert
Rows(i).Insert
Rows(i).Insert
End If

Next

End Sub

En espérant que ça aille!

 

[ROGER2327]

Re : Formule ou macro pour changement de ID

Bonjour meganspt, titiborregan5 et tous les autres.

Un autre essai en pièce jointe.​

ℝOGER2327
#6999

Lundi 23 As 141 (Saint Quincey, critique d’art - fête Suprême Quarte)
5 Frimaire An CCXXII, 6,7520h - cochon
2013-W48-1T16:12:18Z

 

[pierrejean]

Re : Formule ou macro pour changement de ID

Bonjour meganspt, titiborregan5 ,ROGER

Arf !!

Puisque je m'y suis cassé la tête je poste