[Résolu] Sélectionner dernière ligne insérée

[micie1509]

Bonjour à vous tous,

J'ai un tableau qui a quelques 10 000 lignes et j'ai ce code VBA qui copie ma première ligne et l'insère sous la ligne sélectionnée. Le tout fonctionne très bien, mais une fois les lignes insérées, le focus retourne sur la première ligne. Est-ce que c'est possible de faire en sorte que le focus demeure sur la première ou la dernière ligne insérée plutôt que de retourner tout en haut du tableau ?

Merci beaucoup pour votre aide.

Sub Ligne_inserer()

Dim n, L As Range
    Set L = ActiveCell.EntireRow
    Dim u As String
      
    
        n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1)    'nombre de lignes à insérer
        
        If Not IsNumeric(n) Then Exit Sub
         
        Rows("14:1058").Select
        
        ActiveSheet.Outline.ShowLevels RowLevels:=2
        
        Rows("1:1").Select
       

        L(2).Resize(n).Insert
       
        Rows(1).Copy L(2).Resize(n)
        L(2).Resize(n).RowHeight = L(n - 1).RowHeight
        

End Sub

 

[phlaurent55]

Re : Sélectionner dernière ligne insérée

Bonjour micie,

avec ce code:

Sub Ligne_inserer()
ligne = ActiveCell.Row
Dim n, L As Range
    Set L = ActiveCell.EntireRow
    Dim u As String
    
  
    
        n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1)    'nombre de lignes à insérer
        
        If Not IsNumeric(n) Then Exit Sub
         
        Rows("14:1058").Select
        

        ActiveSheet.Outline.ShowLevels RowLevels:=2
        
        Rows("1:1").Select
       

        L(2).Resize(n).Insert
       
        Rows(1).Copy L(2).Resize(n)
        L(2).Resize(n).RowHeight = L(n - 1).RowHeight
        

        Rows(ligne + 1).Select
        
        
   
    

End Sub

à+
Philippe

 

[Paf]

Re : Sélectionner dernière ligne insérée

Bonjour

- Supprimer la ligne

Rows("1:1").Select

qui force le positionnement sur la première ligne

- Rajouter

Rows(L.Row + n).Select 'on se positionne sur la dernière ligne copiée

après

  L(2).Resize(n).RowHeight = L(n - 1).RowHeight

- Par ailleurs, les deux lignes suivantes pourraient être supprimées vu l'exemple fourni.

Rows("14:1058").Select                     
ActiveSheet.Outline.ShowLevels RowLevels:=2

Bonne suite

 

[micie1509]

Re : Sélectionner dernière ligne insérée

Merci beaucoup à vous deux. Vos deux solutions fonctionnent très bien.

Je suis vraiment contente, je n'y arrivais pas. Merci encore !