insertion des lignes sélectionnées (VBA)

[marfipo]

Bonjour à tous,
vous trouverez ci-joint un code qui me permet d'insérer une ligne en dessous de celle que j'ai sélectionné, mais si je sélectionne par exemple 3 lignes il insère juste la 1ère ligne de ces trois lignes sélectionnées.

je veux le modifier comme ça si je sélectionne trois ou quatre lignes et je clique sur le bouton il me fait la copie de ces trois lignes et chaque ligne inséré doit avoir la même mise en forme, couleur et formules que la ligne copiée

autre chose c'est que si je sélectionne comme dans l'exemple ci-joint la ligne 8, 9 et 10 les résultats doivent apparaître dans la ligne 11, 12 et 13 cad juste après la dernière ligne sélectionnée

Merci d'avance

 

[marfipo]

Re : insertion des lignes sélectionnées (VBA)

aidez moi s'il vous plait

 

[gilbert_RGI]

Re : insertion des lignes sélectionnées (VBA)

Bonjour,

Fichier à tester

 

[Lone-wolf]

Re : insertion des lignes sélectionnées (VBA)

Bonjour marfipo, Gilbert

Une petite modification du code a cause des étirements des plages.

'Selectionner la plage de A8 à F10

Sub test()
 Sheets("Feuil1").Activate
    numrows = Selection.Rows.Count
    If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then MsgBox "Votre selection n'est pas correcte", vbCritical, "Erreur de Selection": Exit Sub
    rw = ActiveCell.Row
    Cells(rw + numrows, 1).Resize(numrows).EntireRow.Insert
    Selection.Copy Cells(rw + numrows, 1).EntireRow
    Range(Cells(rw + numrows, 1), Cells(rw + numrows + numrows, 6)).Select  
    Selection.EntireRow.SpecialCells(xlConstants).ClearContents
    Cells(rw + numrows + numrows, 1).Select
End Sub

A+

 

[marfipo]

Re : insertion des lignes sélectionnées (VBA)

Merci Gilbert & Lone-Wolf c'est exactement ce que je cherchais

 

[Lone-wolf]

Re : insertion des lignes sélectionnées (VBA)

Re marfipo,

c'est surtout Gilbert qu'il faut remercier, moi j'ai juste changer 1 chiffre.


A+