Souci de Macro d'insertion de ligne

[Asmoden]

Re,

Voilà j'ai bosser sur une macor pour insérer des lignes à un tableau automatiquement, en fonction du nombre saisie par l'utilisateur, le tableau rajoute à la suite le nombre de ligne désirée.

Cependant j'ai un souci, la macro ne prends pas tout en compte, par exemple j'ai un champ avec une liste de donnée tiré d'une autre feuille, et bien cela ne la reporte pas sur les ligne suivante, le format n'est pas respecté etc... çà le fait sur plusieurs colonnes...

Voici le code de la macro utilisée ainsi que le fichier... merci de m'aider à modifier cela 🙂

Sub Bouton21_QuandClic()

    If ActiveCell.Row < 5 Then
        lili = 4
    Else
        lili = ActiveCell.Row
    End If
    nblignes = InputBox("Combien de lignes voulez-vous insérer ?")
    If Val(nblignes) > 0 Then
        If nblignes > 300 Then
            MsgBox ("C'est un peu beaucoup, ne trouvez-vous pas ?")
        Else
            Sheets("Cdes").Select
            Sheets("Cdes").Activate
            ActiveSheet.Range("A1").Select
            Application.ScreenUpdating = False
            Application.Calculation = xlManual
            ActiveSheet.Rows(lili & ":" & (lili + nblignes - 1)).Select
            Selection.Copy
            Selection.Insert Shift:=xlDown
            ActiveSheet.Range("B" & lili & ":D" & (nblignes + lili - 1)).Select
            Application.CutCopyMode = False
            Selection.ClearContents
            ActiveSheet.Range("G" & lili & ":H" & (nblignes + lili - 1)).Select
            Selection.ClearContents
            ActiveSheet.Range("J" & lili & ":M" & (nblignes + lili - 1)).Select
            Selection.ClearContents
            ActiveSheet.Range("S" & lili & ":S" & (nblignes + lili - 1)).Select
            Selection.ClearContents
            ActiveSheet.Range("V" & lili & ":Y" & (nblignes + lili - 1)).Select
            Selection.ClearContents
            ActiveSheet.Range("AA" & lili & ":AH" & (nblignes + lili - 1)).Select
            Selection.ClearContents
            ActiveSheet.Range("B" & lili).Select
            Application.Calculation = xlAutomatic
            Application.ScreenUpdating = True
        End If
    End If
End Sub

 

[Asmoden]

Re : Souci de Macro d'insertion de ligne

Personne ne peut m'aider ? 🙁

 

[Asmoden]

Re : Souci de Macro d'insertion de ligne

Et bien c'est bon j'ai compris 🙂

je n'ai aps fait d'erreur 😱 je suis vraiment à la masse moi depuis hier... pfffff

Merci qd même!