insertion lignes sous condition

[sodag]

bonjour à tous,

J'ai un petit pb, a priori pas bien compliqué mais je n''arrive pas à m'en tirer...
j'ai une macro qui génère (par copier coller) un fichier à partir d'un tb croisé dynamique.
Ceci me donne un entête unique (celui du TBC) suivi des differents modèles.
Je souhaiterais insérer automatiquement une ligne et à nouveau l'entête entre chaque nom de modèle mais je galère un peu.
Cf. fichier, car un fichier vaut mieux qu'un long discours... en onglet feuille 1, ce que j'ai, en feuille 2 ce que je voudrais avoir.

Par avance merci de vos tuyaux!

sodag

 

[Cousinhub]

Re : insertion lignes sous condition

Bonjour

en partant de ton fichier, regarde le fichier joint

Le code :

Sub insere()
    For Each cel In Range("A6:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
    If cel.Value <> "Modèle" And cel.Value <> "Total" And cel.Offset(-1, 0) <> "Modèle" Then
            Rows("5:6").Copy
            Rows(cel.Row & ":" & cel.Row + 1).Insert Shift:=xlDown
    End If
    Next cel
    Application.CutCopyMode = False
End Sub

Le fichier :

 

[sodag]

Re : insertion lignes sous condition

Merci Bhbh, je l'aurais pas pondu tout seul!

A quoi sert le SpecialCells(xlCellTypeConstants, 23)?

Encore un grand merci!

 

[Cousinhub]

Re : insertion lignes sous condition

Re-,

cette ligne détermine les cellules contenant une constante

Si tu sélectionnes de A6 à A28, dans ton fichier, et que tu fais Edition/Atteindre, puis "Cellules", en bas, et enfin "Constantes", seules les cellules contenant une constante sont sélectionnées.
Et si tu le fais tout en utilisant l'enregistreur de macro, c'est le code qu'Excel te donne