Selection

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

...quelque chose comme çà ?

Sub Edition_Supprimer_Ligne_de_la_cellule_active()
Dim msg As String, title As String, Response As String
Dim style  As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer cette ligne ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Suppression de ligne"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
ActiveCell.EntireRow.Delete
End If
End Sub