Insertion ligne par macro

[ag2]

Bonjour,
Comment je peux arriver à inserer une nouvelle ligne dans un tableau existant en passant par une macro.
Exemple:
-information
-information
-information

Je souhaite intercaler une nouvelle ligne entre ces lignes existantes et pour l'ensemble d'un classeur.
Merci d'avance

 

[Creepy]

Re : Insertion ligne par macro

Bonjour tout le monde

Regarde ce lien : https://www.excel-downloads.com/threads/insertion-de-ligne.75920/

Tu vas y trouver ton bonheur.

A+

Creepy

 

[dixit]

Re : Insertion ligne par macro

bonjour à tous,
faire un enregistrement de macro est également bien utile, pour voir ...

 

[Kotov]

Re : Insertion ligne par macro

Bonsoir à tous,
J'arrive peut être un peu tard et sans avoir regardé les propositions des "collègues", voiçi une possibilité.

Le principe : une boite de saisie demande le numéro de ligne qui doit acceuillir l'insertion, si la saisie correspond à une ligne de la feuille (1 à 65536) alors une ligne est insérée.

Sub InsereLigne()
    Dim r&
    r = CLng(InputBox("A partir de quelle ligne souhaitez vous procéder à une insertion ?", "Insertion de ligne "))
    If r > 0 And r < 65536 Then Rows(r).Insert Shift:=xlDown
End Sub

Ce code fonctionne pour une feuille, pour que toutes les feuilles du classeur bénéficie de l'insertion, tu peux procéder avec une boucle de style For Each mafeuille in ActiveWorkbook ... etc..

Bonne soirée
Kotov

Edit : quand Creepy est sur le coup, la solution est trouvée !