Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion lignes sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sodag
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sodag

Guest
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

Trier par date Trier par votes
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

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL 2016 Créer un fichier excel tous les 150 lignes et insérer les valeurs selon valeur entête colonne
Réponses
2
Affichages
937
MiamiVince33
M
S
  • Question Question
XL 2016 Insertion de lignes [Résolu]
Réponses
3
Affichages
1 K
Sly le globe trotter
S
J
  • Question Question
Affichage lignes sous condition dans une feuille protégée
Réponses
9
Affichages
2 K
Lio55
L
F
  • Question Question
Aide sur Macro VBA - copie lignes sous condition(s)
Réponses
11
Affichages
14 K
job75
M
  • Question Question
Automatiser la copier de lignes vers une autre feuille, sous conditions
Réponses
3
Affichages
20 K
maclaustre
M
D
  • Question Question
Concaténer lignes sous condition
Réponses
11
Affichages
4 K
delia85
D
M
  • Question Question
Comment croiser 2 tableaux tout en conservant les groupements de lignes
Réponses
8
Affichages
3 K
James007
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
81 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…