XL 2010 Ajout de ligne suivant un critère dans colonne

[jeanmi]

Bonjour à tous,

je souhaiterai ajouter des lignes en fonction d'un numéro qui est dans une colonne.
ci joint un fichier pour faire voir avant traitement et après.

Merci de l'aide

Cordialement

 

[Chris401]

Bonsoir
Une réponse dans le fichier joint.
Bonne soirée

 

[Jacky67]

Bonjour à tous,

je souhaiterai ajouter des lignes en fonction d'un numéro qui est dans une colonne.
ci joint un fichier pour faire voir avant traitement et après.

Merci de l'aide

Cordialement

Bonjour à tous
Autre proposition (insert les lignes uniquement dans le tableau)

 

[jeanmi]

Bonsoir
Une réponse dans le fichier joint.
Bonne soirée

bonjour #Chris401, bonjour à tous,

une grand merci c'est super.

cordialment

 

[jeanmi]

Bonjour à tous
Autre proposition (insert les lignes uniquement dans le tableau)

Bonjour #jacky67, bonjour à tous,

un grand merci pour le petit plus que je vais utilisé.

cordialement

 

[jeanmi]

Bonsoir
Une réponse dans le fichier joint.
Bonne soirée

Bonjour #Chris401 bonjour à tous,

Est-il possible en créant les lignes complémentaires de copier le contenu de la ligne du dessus

Merci pour l'aide

Cordialement

 

[Chris401]

Bonjour
Code de @Jacky67 modifié :

Private Sub CommandButton1_Click()
    Dim i&
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
        If Cells(i, 1) > 1 Then
        Range(Cells(i + 1, 1), Cells(i + Cells(i, 1) - 1, 4)).Insert Shift:=xlDown
        Range(Cells(i, 1), Cells(i + Cells(i, 1) - 1, 4)).FillDown
        End If
    Next
    If MsgBox("Voulez-vous enpêcher de traiter à nouveau", 292, "Question") = 6 Then
        CommandButton1.Visible = False
    End If
End Sub

Bonne journée

 

[jeanmi]

Bonjour
Code de @Jacky67 modifié :

Private Sub CommandButton1_Click()
    Dim i&
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
        If Cells(i, 1) > 1 Then
        Range(Cells(i + 1, 1), Cells(i + Cells(i, 1) - 1, 4)).Insert Shift:=xlDown
        Range(Cells(i, 1), Cells(i + Cells(i, 1) - 1, 4)).FillDown
        End If
    Next
    If MsgBox("Voulez-vous enpêcher de traiter à nouveau", 292, "Question") = 6 Then
        CommandButton1.Visible = False
    End If
End Sub

Bonne journée

Bonjour @Chris401 , bonjour à tous,

je pense que mon explication sur le besoin était mal exprimée.
En fait je souhaité recopier à chaque fois la ligne entière, pas uniquement les première colonnes
En plus dans mon tableau final la donnée qui défini le nombre de fois est dans la colonne B, mais ça il me semble avoir compris comment modifier le A en B.
Cordialement

 

[Jacky67]

Bonjour @Chris401 , bonjour à tous,

je pense que mon explication sur le besoin était mal exprimée.
En fait je souhaité recopier à chaque fois la ligne entière, pas uniquement les première colonnes
En plus dans mon tableau final la donnée qui défini le nombre de fois est dans la colonne B, mais ça il me semble avoir compris comment modifier le A en B.
Cordialement

Bon... alors

Private Sub CommandButton1_Click()
    Dim i&
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 4 Step -1
        If Cells(i, 2) > 1 Then
        Rows(i).Copy
        Rows(i + 1 & ":" & i + Cells(i, 2) - 1).Insert Shift:=xlDown
        End If
    Next
    If MsgBox("Voulez-vous enpêcher de traiter à nouveau", 292, "Question") = 6 Then
        CommandButton1.Visible = False
    End If
End Sub

Ou version Bis, sans message

 

[jeanmi]

Bon... alors

Private Sub CommandButton1_Click()
    Dim i&
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 4 Step -1
        If Cells(i, 2) > 1 Then
        Rows(i).Copy
        Rows(i + 1 & ":" & i + Cells(i, 2) - 1).Insert Shift:=xlDown
        End If
    Next
    If MsgBox("Voulez-vous enpêcher de traiter à nouveau", 292, "Question") = 6 Then
        CommandButton1.Visible = False
    End If
End Sub

Ou version Bis, sans message

re bonjour,

Merci ça fonctionne très bien, quel temps gagné.

cordialement