insertion lignes sous condition

sodag

XLDnaute Nouveau
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
 

Pièces jointes

  • Insertion lignes.zip
    8 KB · Affichages: 30

Cousinhub

XLDnaute Barbatruc
Re : insertion lignes sous condition

Bonjour

en partant de ton fichier, regarde le fichier joint

Le code :

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 :
 

Pièces jointes

  • Insertion lignes_v1.zip
    8.8 KB · Affichages: 40

Cousinhub

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 630
Membres
105 475
dernier inscrit
ramzi slama