XL 2010 Ajouter ligne.

DAVID-44-

XLDnaute Occasionnel
Bonjour à tous,
J'ai un tableau "Stock" avec un bouton "Insérer ligne" : macro dans le module 4. Quand je l'utilise, il permet d'ajouter une ligne sur tous les sous-produits de la feuille sous "Fournisseurs". J'aimerais changer cette macro et pouvoir ajouter (avec un copier/coller) une ligne ou plusieurs lignes sous une ligne ou sous plusieurs lignes sélectionnées un peu comme le bouton "Supprimer ligne" : macro dans le module 4.
Merci de votre aide.
Bon après-midi.
David.
 

Pièces jointes

  • STOCK - 30 - 06 - 2021 - DAVID..xlsm
    310.8 KB · Affichages: 14
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour DAVID-44-,

Voyez le fichier joint et cette macro dans Module4 :
VB:
Sub Inserer()
Dim r&, x$, n&, i&
r = ActiveCell.Row
If Cells(r, 3).Interior.Color <> RGB(218, 238, 243) Then MsgBox "Sélectionnez une cellule sous FOURNISSEURS...", , "Insérer": Exit Sub
Do
    x = InputBox("Nombre de lignes à insérer :", "Insérer", x)
    If x = "" Then Exit Sub
    n = Int(Val(x))
Loop While n < 1
Application.ScreenUpdating = False
ActiveSheet.Protect Password:=Password, UserInterfaceOnly:=True
Rows(r + 1).Resize(n).Insert
For i = 1 To n
    Rows(r).Copy Rows(r + i) 'pour les formules et les formats (MFC)
Next
If Cells(r, 15).MergeCells Then Range(Cells(r, 15).MergeArea, Cells(r + 1, 15).Resize(n)).Merge 'colonne O
On Error Resume Next 'si aucune SpecialCell
Rows(r + 1).Resize(n, 13).SpecialCells(xlCellTypeConstants) = Empty 'colonnes A à M
End Sub
La boucle est nécessaire pour que les MFC soient copiées correctement.]

[Edit] coquille corrigée sur l'avant-dernière ligne de la macro.

A+
 

Pièces jointes

  • STOCK - 30 - 06 - 2021 - DAVID(1)..xlsm
    323.6 KB · Affichages: 5
Dernière édition:

Statistiques des forums

Discussions
291 667
Messages
1 916 973
Membres
179 500
dernier inscrit
oximo
Haut Bas