bonjour,
je cherche le code qui permet la chose suivante:
j ai un bouton qui m insert des lignes et un bouton pour en supprimer.
je voudrait que l insertion ou la suppression se fasse non pas sur un numéro de cellule prédéterminé,mais a l endroit ou je pose ma sélection avec ma souris.
par exemple je veut supprimer les ligne 5 , je clique sur mon tableau sur la cellule A5 et j appui sur mon bouton de commande
voili voila.
Rows("127:128").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("125:126").Select
Selection.Copy
Rows("127:128").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E127:E128").Select