Discussion :

[Bureautica]

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 !

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Bureautica]

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

[Pierre Fauconnier]

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.