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

Chris401 à dit:

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

Cliquez pour agrandir...

Jacky67 à dit:

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

Cliquez pour agrandir...

Chris401 à dit:

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

Cliquez pour agrandir...

Chris401 à dit:

Bonjour
Code de @Jacky67 modifié :

VB:

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

Cliquez pour agrandir...

jeanmi à dit:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

Bon... alors

VB:

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

Cliquez pour agrandir...