Formule ou macro pour changement de ID

meganspt · 25 Novembre 2013

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 · 25 Novembre 2013

Re : Formule ou macro pour changement de ID

Bonjour meganspt, le forum,

à essayer :

Code:

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 · 25 Novembre 2013

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 · 25 Novembre 2013

Re : Formule ou macro pour changement de ID

Bonjour meganspt, titiborregan5 ,ROGER

Arf !!

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

Formule ou macro pour changement de ID

meganspt

XLDnaute Nouveau

Pièces jointes

titiborregan5

XLDnaute Accro

ROGER2327

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Formule ou macro pour changement de ID

meganspt

XLDnaute Nouveau

Pièces jointes

titiborregan5

XLDnaute Accro

ROGER2327

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency