Microsoft 365 Problème VBA insertion ligne au-desus

Mr.Adrien

XLDnaute Nouveau
Bonjour je me permets de venir vers vous pour solliciter votre aide.
J'ai une formule macro pour récupérer des informations sur la feuille "formulaire" et les remplir sur une nouvelle feuille listing "1APG" en cliquant sur validé de la feuille formulaire qui valide la macro.
J’aimerai que l'ajout des lignes se fasse en dessous a et non au-dessus de celle-ci.
Cordialement.
Ps : voici la macro et le fichier Excel
VB:
Sub Macro5()
'
' Macro5 Macro
'

'
    Sheets("1APG").Select
    Range("B5:D5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("1APG").Select
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[1]"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[5]"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=Formulaire!R[10]C[5]"
    Range("B5:D5").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Formulaire").Select
End Sub
 

Pièces jointes

  • Copie de Demande-d'inscription-et-de-réinscription.xlsm
    49 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Adrien, et bienvenu sur XLD,
Peut être en plus simple :
VB:
Sub InsereDessous()
    Sheets("1APG").Select
    Application.ScreenUpdating = False
    DL = 1 + Range("B65500").End(xlUp).Row
    Cells(DL, "B").FormulaLocal = "=Formulaire!C9"
    Cells(DL, "C").FormulaLocal = "=Formulaire!H9"
    Cells(DL, "D").FormulaLocal = "=Formulaire!I15"
    Range("B" & DL & ":D" & DL) = Range("B" & DL & ":D" & DL).Value
End Sub
 

Pièces jointes

  • Copie de Demande-d'inscription-et-de-réinscription.xlsm
    49.4 KB · Affichages: 3

Mr.Adrien

XLDnaute Nouveau
Bonjour Adrien, et bienvenu sur XLD,
Peut être en plus simple :
VB:
Sub InsereDessous()
    Sheets("1APG").Select
    Application.ScreenUpdating = False
    DL = 1 + Range("B65500").End(xlUp).Row
    Cells(DL, "B").FormulaLocal = "=Formulaire!C9"
    Cells(DL, "C").FormulaLocal = "=Formulaire!H9"
    Cells(DL, "D").FormulaLocal = "=Formulaire!I15"
    Range("B" & DL & ":D" & DL) = Range("B" & DL & ":D" & DL).Value
End Sub
Merci infiniment !!!!!!!!!!
 

Discussions similaires

Statistiques des forums

Discussions
314 459
Messages
2 109 837
Membres
110 577
dernier inscrit
gruiop