inserer des lignes à la suite sur excel via VBA

Question

Bonjour à tous, 

Voila j'aurai une petite question sur VBA

Je souhaiterais rajouter des lignes dans un tableau existant sur une feuille excel. Cependant, les lignes que je souhaite rajouter doivent être insérer au milieu du tableau et à la fin du tableau grâce à deux boutons qui font appel à ma macro.

ma question est la suivante : comment puis rajouter des lignes à la suite de toute ligne crée auparavant et respecter ainsi une continuité des lignes créées 

Voici ma macro 

'Sub Insertion_ligneA()
   
'Dim i As Integer
'Dim j As Integer

'x = InputBox("Saisir le nombre de lignes à insérer", "Insertion lignes")

'j = 20

'For i = 1 To x

  '  Range("B" & j + i).EntireRow.Insert
   ' Range("B" & j + i - 1 & ":H" & j + i - 1).Copy
  '  Range("B" & j + i).PasteSpecial Paste:=xlFormats
  '  Range("C18").Select
  '  Selection.AutoFill Destination:=Range("C18:C" & i + j)
  '  Application.CutCopyMode = False
    
'Next i



'End Sub

Je reste à votre disposition pour tout autre question
Merci d'avance

ucfoutu · Answer

Bonjour,
Pour le bouton devant insérer "au milieu" : Il te suffit d'une variable te servant à mémoriser où tu en es.
Pour le bouton devant insérer "à la fin" : réponse rigoureusement identique à celle faite ICI, aujourd'hui même !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Inserer des lignes à la suite sur excel via VBA

1 réponse

Votre réponse

Discussions similaires