Impossible d'insérer un rangée dans Excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Ce sujet à déjà été soumis par d'autres à plusieurs reprises mais je ne trouve pas la solution à mon problème.
Je veux insérer une rangée vide dans une feuille Excel. J'ai toujours le message

Pièce jointe 537759.

Voici un exemple de code tout simple qui illustre mon problème
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub testinsertrow() Workbooks.Add Cells(1, 1) = "Un": Cells(1, 2) = "Deux": Cells(1, 3) = "Trois" i = 0 rowi = 2: coli = 1 For j = 1 To 19 i = i + 1 Cells(rowi, coli) = i: coli = coli + 1 If coli Mod 4 = 0 Then rowi = rowi + 1: coli = 1 Next j Range(Cells(1, 5), Cells(1, 5)).Activate Rows.Insert End Sub
Lorsque je vérifie le UsedRange, il correspond à ce qui a été mis dans la feuille (pas de cellules "lointaines" qui contiendrait des valeurs).

Merci pour votre aide.

Bonsoir,
Rows <=> ActiveSheet.Rows <=> Toute les lignes de la feuille courante.

Essaie ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub testinsertrow()
 
Workbooks.Add
Cells(1, 1) = "Un": Cells(1, 2) = "Deux": Cells(1, 3) = "Trois"
i = 0
rowi = 2: coli = 1
For j = 1 To 19
  i = i + 1
  Cells(rowi, coli) = i: coli = coli + 1
  If coli Mod 4 = 0 Then rowi = rowi + 1: coli = 1
Next j
 
n = 1
'Insère une ligne vide avant la ligne n
Rows(n).Insert
 
End Sub

Cordialement,
--
LR

Bonjour,

Comme çà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub testinsertrow()
Dim i&, j&, rowi&, coli&
  With Workbooks.Add.Worksheets(1)
    .Cells(1, 1) = "Un": .Cells(1, 2) = "Deux": .Cells(1, 3) = "Trois"
    i = 0: rowi = 2: coli = 1
    For j = 1 To 19
      i = i + 1
      .Cells(rowi, coli) = i: coli = coli + 1
      If coli Mod 4 = 0 Then rowi = rowi + 1: coli = 1
    Next j
    .Rows(1).Insert
 End With
End Sub

12/02/2020, 16h07
ChricChrac

Un grand merci. Ça fonctionne.