Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne

AlCapone · 21 Septembre 2024

Bonjour à toutes et à tous,
J'ai besoin de votre aide sur une code VBA sur lequel je n'arrive pas à déclencher l'insertion de ligne après la dernière ligne (à partir de la cellule active).
En pièce jointe un fichier EXCEL sans macro pour le "avant" / "après doubleclick".

Ci-dessous, un de mes bouts de code tester mais qui insert juste après la cellule active au lieu de la dernière ligne non vide de la colonne "E" (cf. fichier en pièce jointe) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Lastr As Long
'Lastr = Cells.Find("*", ActiveCell, searchdirection:=xlPrevious).Row + 1
Lastr = Cells.Find("*", ActiveCell, searchdirection:=xlDown).Row + 1

If Target.CountLarge = 1 And Target.Column = 9 And Target.Text Like "IJ Sécurité*" Or Target.Text Like "IJ Prévoyance*" Then

' Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Cells(Lastr, 1).EntireRow.Insert xlShiftDown

End if
End sub

Vous remerciant par avance pour votre attention.

ALC.

AlCapone · 21 Septembre 2024

sousou à dit:
Bonjour
A regarder le principe

Top nickel !
Merci beaucoup
Bonne soirée

Valtrase · 21 Septembre 2024

Bonjour,
En version minimaliste :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim RangeToCopy As Excel.Range
    Set RangeToCopy = Target.Resize(1, 12)

    Dim LastCell As Long
    LastCell = Cells(Rows.Count, "A").End(xlUp).Row + 2
    RangeToCopy.Copy Destination:=ActiveSheet.Range("A" & LastCell)
    Cancel = True
End Sub

sousou · 21 Septembre 2024

Bonjour
A regarder le principe

AlCapone · 21 Septembre 2024

sousou à dit:
Bonjour
A regarder le principe

Top nickel !
Merci beaucoup
Bonne soirée

AlCapone · 21 Septembre 2024

Valtrase à dit:

Bonjour,
En version minimaliste :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim RangeToCopy As Excel.Range
    Set RangeToCopy = Target.Resize(1, 12)

    Dim LastCell As Long
    LastCell = Cells(Rows.Count, "A").End(xlUp).Row + 2
    RangeToCopy.Copy Destination:=ActiveSheet.Range("A" & LastCell)
    Cancel = True
End Sub

Merci.
Bonne soirée
ALC.

Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne

AlCapone

XLDnaute Nouveau

Pièces jointes

AlCapone

Valtrase

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

Pièces jointes

AlCapone

XLDnaute Nouveau

AlCapone

XLDnaute Nouveau

Discussions similaires