Discussion :

[essaadany]

Bonjour tous ,
j'ai un fichier Excel contenant plusieurs données a utiliser après (comme suit_image attachée) :

ordre	date_depot	propriétaire	situation_de_l'immeuble
R1234/39	19/01/2018	PROP1	IGHIL............
R2345/39	19/01/2018	PROP2	IGHIL............
R3456/39	19/01/2018	PROP3	IGHIL............
R6789/39	19/01/2018	PROP4	IGHIL............
R1023/39	19/01/2018	PROP5	IGHIL............
R2345/39	19/01/2018	PROP6	IGHIL............

je veux depuis mon fichier Excel tableau (capture) extraire des données de chaque ordre et structure comme dans la capture suivante :

[EricDgn]

Bonjour

Si je comprends bien:
- il faudrait insérer 14 lignes vides entre chaque ligne de données actuelle
- il faudrait fusionner 6 cellules pour la cellule "propriétaire"

A mon avis il serait plus simple de régler la hauteur des lignes et "aligner en haut" les textes.
Ce n'est jamais une bonne idée d'avoir des lignes vides dans un tableau Excel. Cela rend tout fort compliqué ensuite pour les tris et filtres.

Cordialement.

[essaadany]

Bonjour EricDgn et merci mais comme tu dit je veut savoir comment je peut insérer 14 lignes vides entre chaque ligne de données actuelle automatiquement car le volume des données très grand ce n'est pratique de le faire manuellement.

[EricDgn]

Bonjour,

Ce n'est pas vraiment compliqué:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub InsertionLignes()
    '--- ajoute nL lignes ides entre lignes existantes
    '--- commence à la dernière ligne et remonte jusqu'à la ligne 1
    Dim kR As Long, nL As Long
    nL = 14 '--- nombre de lignes à insérer entre lignes existantes
    kR = Cells(Rows.Count, 1).End(xlUp).Row '--- n° dernière ligne
    Do
        kR = kR - 1
        Rows(kR + 1 & ":" & kR + nL).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Loop Until kR = 1
End Sub

Attention, cela suppose qu'il faut faire cela sur toutes les lignes déjà présentes, lignes avec données comme lignes vides. Bonne pratique: faire une copie de sauvegarde avant de se lancer dans des modifications.

Bonne continuation.

[essaadany]

mercii beaucoup EricDgn c tres efficace