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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !