VBA pb de boucle
A
Bonjour
Ci dessous un code
Dim SC as worksheet
Dim k, SCFL, LT as long
SC.Activate
SCFL = SC.Cells(Rows.Count, 1).End(xlUp).Row
LT +10
For k = LT + 1 To SCFL
Nb=2
ActiveCell.EntireRow.Resize(rowsize:=Nb).Insert Shift:=xlDown
SCFL = SC.Cells(Rows.Count, 1).End(xlUp).Row
Next kL'idée c'est de dire que de la cellule (11,1) à la cellule de fin de la colonne 1 je vais lui insérer deux lignes.
En insérant les lignes, je recalcule SCFL, ma dernière ligne de colonne.
Sauf que, en imaginant que ma ligne de fin soit 15, quand k=15 il ne revient pas au debut de ma boucle mais en sort.
Pourquoi?
Agrimaman
Bonjour Agrimanman, le forum,
A tester:
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = dl To 11 Step -1
Rows(i + 1).Resize(2).Insert
Next iCordialement,