Macro pour insérer lignes dans fichier complex

[matt34]

Bonjour,

Voilà je souhaite intégrer une ligne dans un fichier qui comporte des sous références:

EX:

REFERENCES SS-REF

ART 081000300093
SART 081000300093 VOLULIFT
ART 072000300038
SART 072000300038 ABSOREPA
ART 072000300039
SART 072000300039 VITASOIN
SART 072000300039 LISSEXTR
ART 081000300070
SART 081000300070 LISSULTI
SART 081000300070 VOLUEXPA
SART 081000300070 SHINCURL
ART 081000300093
SART 081000300093 FULVOLEX
ART 081002600003
SART 081002600003 EXTRFJAU
SART 123000200031 NOIR

Il faut à chaque fois que j'intègre une ligne pour marquer la valeur "ART" mais que la macro puisse reconnaitre les refs identiques ex: 081000300070 il y en a trois donc je veux qu'une seule insertion.

En pièce jointe le fichier, les 17 premières lignes font figure de modèle et je les est faite à la main bien sur mais c'est ce que je veux pour l'ensemble du fichier...

Si une âme charitable peut m'aider....

Merci d'avance

 

[matt34]

Re : Macro pour insérer lignes dans fichier complex

Si quelqu'un peut m'aider pour avant demain matin ce serait le top !!! Merci

 

[matt34]

Re : Macro pour insérer lignes dans fichier complex

Personne ? Pour me filer un coup de main !!!

 

[kjin]

Re : Macro pour insérer lignes dans fichier complex

Bonsoir,
Si j'ai bien compris

Sub zyva()
Dim c As Range, i&
Application.ScreenUpdating = False
Set c = Range("A1:C" & Range("A65000").End(xlUp).Row)
c.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
For i = c.Rows.Count To 2 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then
        Rows(i).Insert
        Cells(i, 1) = "ART"
        Cells(i, 2) = Cells(i + 1, 2)
        Rows(i).Font.Bold = True 'falcutif
    End If
Next
Application.ScreenUpdating = True
End Sub

A+
kjin

 

[matt34]

Re : Macro pour insérer lignes dans fichier complex

super merci !