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 .

 

[sylvanu]

Bonjour,
Sans fichier test représentatif, c'est un peu au pif avec :

=INDEX(A7:A54;NB.SI(A7:A54;"<>"))

Voir PJ.

 

[Dranreb]

Bonjour.
Je pense qu'une formule genre =INDEX(Tableau;LIGNES(Tableau),Colonne()-1) ferait l'affaire.

 

[JHA]

Bonjour à tous,

2 solutions à essayer

JHA

 

[ascal44]

Ah oui , mon explication ne devait pas être claire.
Voir le fichier joint

 

[sylvanu]

Re,
Toujours aussi peu clair.
"210/12/2023" c'est suivant quel calendrier ?
Vous voulez quoi ? La ligne dont la date en colonne E est la plus récente ?
Si oui, utilisez :

=INDEX(B$9:B$55;EQUIV(MAX($E$9:$E$55);$E$9:$E$55;0))

Sinon soyez plus explicite.

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[job75]

Bonjour à tous,

Formule en B5 à tirer vers la droite :

=SIERREUR(SI(ESTNUM(INDEX(B:B;derlig));INDEX(B:B;derlig);""&INDEX(B:B;derlig));"")

derlig étant le nom défini par :

=GRANDE.VALEUR(SI(Tableau2<>"";LIGNE(Tableau2));1)

A+

 

[job75]

La solution précédente ne fonctionne pas si le tableau contient des valeurs d'erreur.

Pour les ignorer définir derlig par :

=GRANDE.VALEUR(SI(ESTNUM(LN(Tableau2<>""));LIGNE(Tableau2));1)

 

[ascal44]

Merci à tous , je vais utiliser la solution de Job75.

 

[ascal44]

Encore des améliorations à apporter :
Lors de l'exécution de la macro CopierFeuilleMultiple , il faudrait accepter la version du nom " derlg" automatiquement sans avoir a valider pour chaque feuille.
Si l'on exécute une deuxième fois la macro il faudrait pouvoir reprendre l'incrémentation du nom des feuilles pour ne pas avoir 3(2) , 3 (3) , 3 (4) par exemple.

Sub CopierFeuilleMultiple()
Dim n As Integer, i As Integer
On Error Resume Next
Application.ScreenUpdating = False
    n = InputBox("Combien de copies voulez-vous créer?")
    If n > 0 Then
        For i = 1 To n
            ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
            ActiveSheet.Name = i
            ActiveSheet.[C5] = i
        Next
    End If
End Sub

 

[job75]

Exécutez :

Sub CopierFeuilleMultiple()
Dim n As Integer, i As Integer
With [Tableau2].Parent
    .Name = 1
    .Activate
    On Error Resume Next
    n = InputBox("Combien de copies voulez-vous créer?")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 2 To n: Sheets(CStr(i)).Delete: Next i
    For i = 2 To n
        .Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
        ActiveSheet.Move After:=Sheets(CStr(i - 1)) 'tri
        ActiveSheet.Range("C5") = i
    Next i
    .Activate
End With
End Sub

A quoi sert la feuille "Bat" ?

Edit : ajouté ActiveSheet.Move After:=Sheets(CStr(i - 1)) 'tri

 

[ascal44]

La feuille "Bat" est en quelque sorte une feuille sommaire.
Il faudrait alors reporter les valeures en B7:J7 des feuilles numérotées dans de le tableau correspondant de la feuille " Bat"
Il reste encore à trouver le code pour cela.

 

[job75]

Voyez les 8 formules en C8:J8 de la feuille "Bat", à tirer vers le bas.

Vous êtes sur Excel 2010, pourquoi utiliser un fichier .xls ? La fonction SIERREUR n'est pas acceptée !

J'ai donc converti le fichier en .xlsm.

 

[job75]

Bonjour le forum,

Une solution VBA avec cette macro dans le code de la feuille "Bat" :

Private Sub Worksheet_Activate()
Dim zonecopie$, ncol%, ligdeb&, coldeb%, lig&, w As Worksheet, i&
zonecopie = "B7:J7"
ncol = Range(zonecopie).Columns.Count
ligdeb = 8
coldeb = 2
lig = ligdeb
Application.ScreenUpdating = False
Rows(ligdeb & ":" & Rows.Count).Delete 'RAZ
For Each w In Worksheets
    i = Val(w.Name)
    If i Then
        Cells(lig, coldeb).Resize(, ncol) = w.Range(zonecopie).Value 'copie les valeurs
        lig = lig + 1
    End If
Next
If lig = ligdeb Then Exit Sub
With Cells(ligdeb, coldeb).Resize(lig - ligdeb, ncol)
    .Sort .Columns(1), xlAscending, Header:=xlNo 'tri
    .Interior.Color = RGB(164, 204, 228) 'bleu
    .Borders.Weight = xlThin 'bordures
End With
End Sub

Elle se déclenche automatiquement quand on active la feuille.

A+