RÉSOLU :Problème avec macro qui insère des lignes.

[micie1509]

Bonjour à tous,

J’ai un tableau dans lequel j’ai une macro qui insère des lignes. Par contre, lorsque j’insère des lignes, je me retrouve toujours dans le haut du tableau. Comme mon tableau original a quelque 3000 lignes c’est un peu plate d’être obligé de redescendre afin de se retrouver où nous étions. J’aimerais que le curseur demeure à la dernière ligne insérée. Est-ce faisable ?

Merci beaucoup!

 

[Robert]

Re : Problème avec macro qu insère des lignes.

Bonsoir Micie, bonsoir le forum,

En rajoutant :

Cells(L.row, 2).Select

juste avant le End If...
Le code complet simplifié :

Sub Ligne_insérer_si_emplacement_ok()
Dim n, L As Range
Dim u As String

Set L = ActiveCell.EntireRow
ActiveSheet.Unprotect
If Selection.Row < 18 Then
    MsgBox "NON, NON Vous ne pouvez pas faire ça !"
Else
    n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1)    'nombre de lignes à insérer
    Rows("14:1058").EntireRow.Hidden = False
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Rows("1:1").EntireRow.Hidden = True
    L(2).Resize(n).Insert
    Rows(1).EntireRow.Hidden = False
    Rows(1).Copy L(2).Resize(n)
    L(2).Resize(n).RowHeight = L(n - 1).RowHeight
    Rows(1).EntireRow.Hidden = True
    Cells(L.Row, 2).Select
End If
End Sub

 

[micie1509]

Re : Problème avec macro qu insère des lignes.

Yahoo !! C'est parfait. Merci beaucoup !