Discussion :

[bosk1000]

Bonjour à tous

Dans la colonne F de mon tableau j'ai des noms qui se succède et avec un nombre différent
Les noms sont trier.

Je cherche à insérer 3 ligne à chaque changement de nom sur la colonne F, est que dans la 3eme lignes inséré je copie la ligne 1 du tableau

Merci pour votre aide

[Theze]

Bonjour,

Voici une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Inserer()
 
    Dim PlageTitre As Range
    Dim Plage As Range
    Dim I As Long
    Dim J As Integer
 
    'défini la plage des titres sur la ligne 1 de la feuille active
    'et la plage à boucler sur la colonne A à partir de A2. A adapter...
    With ActiveSheet
 
        Set PlageTitre = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft))
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'boucle depuis le bas à la recherche des noms différents
    For I = Plage.Count - 1 To 1 Step -1
 
        'si trouvé, insère 3 lignes...
        If Plage(I + 1).Value <> Plage(I).Value Then
 
            For J = 1 To 3
 
                Plage(I + 1).EntireRow.Insert
 
            Next J
 
            'puis colle les valeurs de la ligne des titres
            Range(Plage(I + 3), Plage(I + 3).Offset(, PlageTitre.Count - 1)).Value = PlageTitre.Value
 
        End If
 
    Next I
 
End Sub

Hervé.

[bosk1000]

Merci

super ton code est implacable