insertion d'une ligne avec double clic sur une cellule

[nonobat]

bonjour
quand je clic dans une cellule (en colonne 1) je voudrais inserer une ligne
en dessous de celle ci

pour cela dans mon onglet j'ai mis :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub

ce qui m'insere une cellule et non ma ligne entiere d'ou un decalage
pourriez vous m'aider svp
merci

ci joint l'exemple

 

[gilbert_RGI]

Re : insertion d'une ligne avec double clic sur une cellule

Bonjour

tester ceci !!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Rows(Target.Row + 1 & ":" & Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub

 

[Guest]

Re : insertion d'une ligne avec double clic sur une cellule

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Cancel = true évite le mode édition de la cellule clicquée
    Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target(2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A+

 

[gilbert_RGI]

Re : insertion d'une ligne avec double clic sur une cellule

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Cancel = true évite le mode édition de la cellule clicquée
    Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A+

de cette façon ça insert une ligne au dessus et c'est en dessous la demande

 

[Guest]

Re : insertion d'une ligne avec double clic sur une cellule

Salut Gilbert,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Cancel = true évite le mode édition de la cellule clicquée
    Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target(2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A+

 

[gilbert_RGI]

Re : insertion d'une ligne avec double clic sur une cellule

je savais bien qu'il y avait une solution

 

[noon]

Re : insertion d'une ligne avec double clic sur une cellule

bonjour gilbert_RGI ; bonjour Hasco

merci pour vos 2 solutions
dessous et dessus
excellent comme ça j'ai 2 choix

et c'est bien aussi d’être en dessous lol

merci encore