Discussion :

[ChricChrac]

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

.


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

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 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.