selection Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
eric43
Jeune membre
Jeune membre
Messages : 34
Inscrit le : 13 décembre 2014
Version d'Excel : 2007

Message par eric43 » 20 décembre 2014, 12:52

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
Avatar du membre
gloub
Membre impliqué
Membre impliqué
Messages : 1'132
Inscrit le : 17 juillet 2007
Version d'Excel : 2003 sur PC + 365 sur Mac

Message par gloub » 20 décembre 2014, 13:04

...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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message