Macros copie valeur vers une autre feuille

Bonjour,

Je fait face à un problème. Je dois faire passer des valeurs qui sont contenues dans un tableau dans une feuille nommé "Feuil2". Ces valeurs sont enregistrée de la cellule E24 à V24 à une autre feuille nommé "Feuil3" dans un tableau aussi de la cellule E8 à D8.

J'ai comme code :

Sub enreg_intervenant()
Application.ScreenUpdating = False
Dim derlig As Long
derlig = Sheets("feuil3").Range("A" & Rows.Count).End(xlUp).Row + 7
With Sheets("feuil2")
.Activate
.Range("E24:V24").Copy
Sheets("feuil3").Range("E" & derlig).PasteSpecial Paste:=xlPasteValues
End With
Sheets("feuil3").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Le problème est que lorsque que je duplique la feuille "Feuil2" je voudrais passer à la ligne suivante mais cela ne fonctionne pas.

Merci d'éclairer ma lanterne.

Bonjour,

Essaye comme cela

Option Explicit
Sub enreg_intervenant()
Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Application.Max(Sheets("feuil3").Range("E" & Rows.Count).End(xlUp).Row + 1, 8)
    Sheets("feuil2").Range("E24:V24").Copy
    Sheets("feuil3").Range("E" & DerLig).PasteSpecial Paste:=xlPasteValues
    Sheets("feuil3").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Cordialement.

gyrus a écrit :

Bonjour,

Essaye comme cela

Option Explicit
Sub enreg_intervenant()
Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Application.Max(Sheets("feuil3").Range("E" & Rows.Count).End(xlUp).Row + 1, 8)
    Sheets("feuil2").Range("E24:V24").Copy
    Sheets("feuil3").Range("E" & DerLig).PasteSpecial Paste:=xlPasteValues
    Sheets("feuil3").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Cordialement.

Ceci copie bien les valeurs à la suite mais en dehors du tableau, les valeurs on un décalage de 27 lignes.

Je ne vois pas pourquoi.

Je vous laisse voir le fichier en lui-même. Les valeurs sont transmises de la feuil2 à la feuil3

La difficulté est de trouver le numéro de la ligne à renseigner.

Peux-tu me dire si une des colonnes E à V est systématiquement renseignée ?

Une solution alternative ...

Sub enreg_intervenant()
Dim DerLig As Long
Dim Plage As Range
    Application.ScreenUpdating = False
    DerLig = 8
    With Worksheets("Feuil3")
        Set Plage = .Range("E19:V19")
        For Each Cel In Plage
            DerLig = Application.Max(DerLig, Cel.End(xlUp)(2).Row)
        Next Cel
        Sheets("feuil2").Range("E24:V24").Copy
        .Range("E" & DerLig).PasteSpecial Paste:=xlPasteValues
        .Select
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub