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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ascal44

XLDnaute Occasionnel
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 .
 
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.
 
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 :
VB:
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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
539
Réponses
20
Affichages
774
Retour