Bonjour,

Je cherche désespérement depuis plus de 2 heures maintenant comment à l'aide d'un bouton associer à une macro je peut permettre à l'utilisateur d'ajouter une ligne à la fin du tableau (après la dernière ligne) à chaque fois qu'il le souhaite. NB le format de toute ligne nouvellement créee devra être le même que celle déja existante.

J'ai essayé la macro suivante:

Sub Ajouteruneligne
'
'
Range("B5").Select
SELECTION.End(xlDown).Select
Rows("152:152").Select
Range("B152").Activate
SELECTION.FillDown
Range("B152:h152").Select
SELECTION.ClearContents
Range("B152").Select
End Sub

Alors cette macro repondrait à la création d'une ligne à la fin de mon tableau avec le format souhaité mais elle ne permet pas de reitérer l'opération et de s'adapater à l'ajout de chaque ligne. Ceci est certainement dû au fait que je ne parviens pas à identifier la dernière ligne du tableau par sa caractéristique (dernière ligne du tableau) mais par ses références Rows("152:152") du moment.

Pouvez-vous m'aider à résoudre ce problème ?

Bonjour,

Finalement j'ai trouvé la solution à mon problème sur le forum

Il fallait coder de la manière suivante

Sub Ajouteruneligne()
'
'
'Sélection de la dernière ligne du tableau
Range("B5").CurrentRegion.Rows(Range("B5").CurrentRegion.Rows.Count).Copy
'Ajout de la copie à la suite du tableau
Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial
'Effacement des données copiées
SELECTION.ClearContents

End Sub

Et sa marche

Bonjour,

Pourquoi ne pas simplement indiquer à l'utilisateur d'appuyer sur TAB pour ajouter une ligne si nécessaire lorsqu'il se trouve dans la dernière cellule du tableau

sourisdeservice a écrit :

Bonjour,

Pourquoi ne pas simplement indiquer à l'utilisateur d'appuyer sur TAB pour ajouter une ligne si nécessaire lorsqu'il se trouve dans la dernière cellule du tableau

peut-être parceque ça c'est pour Word et que la macro est pour Excel, non ?!

Bonjour à JieL Goubert et sourisdeservice ,

Je confirme (notemment pour ceux qui seraient intéressé par la macro) qu'il s'agissait bien d'une macro appropriée à un tableau Excel.

En tout cas, l'information fournie par souris de service servira certainement à ceux qui se posent la question sous word.

Merci