XL 2010 Copier coller dernière ligne remplie d'un tableau

[ascal44]

Bonjour , j'ai un tableau en B7:J54

Je souhaiterais réinscrire les valeures de la dernière ligne (non vide ) en B5. Et cela de façon immédiate sans à avoir à exécuter une macro .

Est ce possible ?

Merci par avance pouir vos idées .

 

[ascal44]

Bonjour Job 75 ,
Super pour le code de la feuille "Bat".

Je n'avais pas remarqué que la macro " CopierFeuilleMultiple " supprimait les feuilles avant de copier la première avec ses valeures.

L'idée est de pouvoir ajouter un nombre de nouvelles feuilles nommées dans l'incrémentation sans supprimer les premières feuilles remplies.
Si le classeur contient des feuilles nommées de 1 à 7 , ce serait de pouvoir rajouter 3 feuilles de 8 à 10 en conservant les précédentes.

 

[job75]

Bonjour ascal44,

Je n'avais pas remarqué que la macro " CopierFeuilleMultiple " supprimait les feuilles avant de copier la première avec ses valeures.

L'idée est de pouvoir ajouter un nombre de nouvelles feuilles nommées dans l'incrémentation sans supprimer les premières feuilles remplies.

Oui votre demande n'était pas très claire alors voyez si cette nouvelle macro vous convient :

Sub CopierFeuilleMultiple()
Dim n As Integer, w As Worksheet, der&, i As Integer
With [Tableau2].Parent
    On Error Resume Next
    n = InputBox("Combien de copies voulez-vous créer?")
    Application.DisplayAlerts = False
    For Each w In Worksheets
        If Val(w.Name) > der Then der = Val(w.Name)
    Next
    Application.ScreenUpdating = False
    For i = 1 To n
        .Copy After:=Sheets(1)
        ActiveSheet.Name = der + i
        ActiveSheet.Move After:=Sheets(CStr(der + i - 1)) 'tri
        ActiveSheet.Range("C5") = der + i
        ActiveSheet.Range("B10:B" & [derlig]) = der + i
        ActiveSheet.Shapes("Copies").Delete
    Next i
    .Activate
End With
End Sub

A+