VBA Isertion Ligne

[Arpette]

Bonsoir le Forum, dans un tableau je souhaiterais insérer une ligne. Ex: je me positionne dans la cellule A10, je fais entrée et çà insère une ligne A11. En plus je souhaiterais que cela me copie mes formules qui se trouvenr en M10 et N10. Je ne sais si c'est faisable via la touche entrée ou si je dois créer un bouton. Merci de votre aide.

 

[Excel-lent]

Re : VBA Isertion Ligne

Bonsoir Arpette,

Si ta macro insère une ligne lorsque tu appuie sur "Entrée", je ne vois pas pourquoi elle ne pourrait pas en plus copier tes formules?

Tu as déjà fais le plus dur.

Tiens nous au jus.

Cordialement

 

[Arpette]

Re : VBA Isertion Ligne

Bonsoir Arpette,

Si ta macro insère une ligne lorsque tu appuie sur "Entrée", je ne vois pas pourquoi elle ne pourrait pas en plus copier tes formules?

Tu as déjà fais le plus dur.

Tiens nous au jus.

Cordialement

Bonjour Excel-Lent, non je n'ai pas fait le plus dure, faire entrée et insérer la ligne c'est ce que je souhaite faire. Peux-tu m'aider / Merci d'avance.

 

[Efgé]

Re : VBA Isertion Ligne

Bonjour à tous,
Sur les conseils avisés de Pierrot93 que je salut au passage,je répond ici.
Je pense qu'utiliser la touche Entrée est dangereux, donc je propose au double click dans la colonne A.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
    Cancel = True
    Rows(Target.Row).Copy
    Rows(Target.Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
End If
End Sub

A mettre dans le code de la feuille concernée.
Cordialement

 

[Arpette]

Re : VBA Isertion Ligne

Bonjour à tous,
Sur les conseils avisés de Pierrot93 ,je répond ici.
Je pense qu'utiliser la touche Entrée est dangereux, donc je propose au double click dans la colonne A.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
    Cancel = True
    Rows(Target.Row).Copy
    Rows(Target.Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
End If
End Sub

A mettre dans le code de la feuille concernée.
Cordialement

Bonsoir Efgé et merci pour ta réponse qui marche bien. J'ai deux autres questions :
Ma feuille est protégée donc à l'insertion j'ôte la protection et je la remet.

1) Je souhaiterais effacer le contenu des cellules Ax à Lx, je garde Mx et Nx
2) Et avoir une textBox qui renseignerait Ax= Nom et Bx adresse

Merci pour votre aide

 

[Efgé]

Re : VBA Isertion Ligne

Re
Avec ce que j'ai compris.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
    Cancel = True
    Rows(Target.Row).Copy
    Rows(Target.Row).Insert Shift:=xlDown
    Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
    AX = InputBox("Renseigner le nom")
    BX = InputBox("Renseigner l'adresse")
    Cells(Target.Row, 1) = AX
    Cells(Target.Row, 2) = BX
    Application.CutCopyMode = False
End If
End Sub

Cordialement

 

[Arpette]

Re : VBA Isertion Ligne

Re
Avec ce que j'ai compris.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
    Cancel = True
    Rows(Target.Row).Copy
    Rows(Target.Row).Insert Shift:=xlDown
    Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
    AX = InputBox("Renseigner le nom")
    BX = InputBox("Renseigner l'adresse")
    Cells(Target.Row, 1) = AX
    Cells(Target.Row, 2) = BX
    Application.CutCopyMode = False
End If
End Sub

Cordialement

Tu es génial, c'est exactement ce que je voulais. Merci à toi et au forum.
@+