Ajouter nombre de lignes saisis dans Userform

Bonjour à tous et à toutes,

Tout d'abord, j'ai une ligne contenant toutes les formules. À l'aide d'un Userform, je désire insérer en-dessous des copies de la ligne avec formules selon le nombre inscrit dans la case appropriée du Userform.

Voici ma formule :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub textnbreitem_Change() Dim i As Long For i = 6 To 6 + textnbreitem   Rows("24:24").Select ActiveCell.Offset(1, 0).EntireRow.Insert xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.EntireRow(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A23:M23").Select Selection.AutoFill Destination:=Range("A23:M24"), Type:=xlFillDefault Range("A23:M24").Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("B24").Select Selection.ClearContents Range("C24").Select Selection.ClearContents Range("A24").Select Selection.ClearContents Next   End Sub

---

Pour l'instant, je suis en mesure d'ajouter les lignes avec formules par contre la mise en page des lignes en dessous est compromise.

Aidez-moi s'il vous plait.

Je vous remercie à l'avance pour votre aide !

Bonjour,
Petit exemple d'une procédure qui ajoute un certain nombre de lignes définie par la constante nommée NumberOfRowsToAdd à une plage de données nommée rng en conservant les formules de la plage source.
Pour que la procédure fonctionne, la plage source doit avoir la première ligne remplie (Les titres) et la première colonne remplie également.
Pour l'exemple la plage source se trouve dans la feuille nommée [Feuil2] du classeur où se trouve le code VBA (ThisWorkbook) et commence en cellule A1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub T() Const NumberOfRowsToAdd As Long = 3 ' Nombre de lignes à insérer Dim rng As Range, rngTarget As Range, NumberOfRows As Long Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion With rng NumberOfRows = .Rows.Count ' Nombre de lignes de la plage source Set rngTarget = .Worksheet.Range(.Cells(NumberOfRows + 1, 1), .Cells(NumberOfRows + NumberOfRowsToAdd, .Columns.Count)) ' Copie de la dernière ligne de la plage en autant de lignes définie par NumberOfRowsToAdd .Rows(.Rows.Count).Copy rngTarget End With On Error Resume Next rngTarget.SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 Set rng = Nothing: Set rngTarget = Nothing End Sub

---

Code à adapter dans ta procédure événementielle

Petite remarque. Il serait judicieux de s'intéresser au tableau structuré d'excel qui recopie automatiquement lors d'une insertion de lignes les formules, formats conditionnels, Validation de données, etc.

Merci beaucoup Philippe pour ton aide c'est grandement apprécié!!

Salut.

Sans mettre en doute la solution de Philippe, ça sert à quoi ces gesticulations? Pourrais-tu exprimer en français (sans jargon vba) ce dont tu disposes et ce que tu souhaites obtenir?

A lire entre les lignes, j'ai l'impression que tu souhaites préparer une "plage" pour recevoir des nouvelles données. Si c'est le cas, un tableau structuré (surtout en 2016) permet cela sans aucune ligne de code.