Insérer une ligne dans Excel

Billy0405 -  
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'aurais une question qui pourrait vous sembler relativement simple.
Voilà, je voudrais insérer une ligne dans un fichier excel, sachant que la ligne insérée devra se placer à la suite et non pas s'insérer entre 2 lignes.
Je vous explique, à chaque fois que j'appuie sur un bouton "ajout", je voudrais ajouter une ligne, si je l'appuie 2 fois, 2 lignes, mais la 3ème fois, je voudrais que la ligne se mette automatiquement en dessous et pas entre 2 autres lignes existantes.

Je vous remercie d'avance du coup de pouce.

1 réponse

Réponse 1 / 1
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
Salut,

copies ce code dans un module, la cellule démarre en A150 pour rechercher la première cellule non vide et insére une ligne au dessous

Sub Ajout_Ligne()
Range("A150").End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
End Sub

A+
0