XL 2010 creation d un tableau recapitulatif a partir de plusieurs onglets

laurent p · 19 Janvier 2017

Bonjour,
j ai un classeur excel avec une multitude d onglet et je voudrai créer un onglet recapitulatif pour récuperer dans chaque onglet des valeurs se trouvant dans des cellules identiques ( exemple la cellule U24 de la feuille 1 puis celle de la feuille 2 etc...)
pouvez vous m aider

DoubleZero · 19 Janvier 2017

Bonjour à toutes et à tous.

Bienvenue sur XLD, laurentp.

Un essai avec le code suivant, après avoir inséré un onglet nommé "Récapitulatif" :

VB:

Option Explicit
Sub U24_récapituler()
    Dim o As Object
    With Sheets("Récapitulatif")
        .Columns(1).Clear
        .Range("a1") = "Récapitulatif"
        For Each o In Worksheets
            If o.Name <> "Récapitulatif" Then
                With Worksheets("Récapitulatif").Range("a" & Rows.Count).End(xlUp)(2)
                    .Value = o.Range("u24").Value
                End With
            End If
        Next
        .Activate
    End With
End Sub

A bientôt

laurent p · 19 Janvier 2017

DoubleZero à dit:
Option Explicit
Sub U24_récapituler()
Dim o As Object
With Sheets("Récapitulatif")
.Columns(1).Clear
.Range("a1") = "Récapitulatif"
For Each o In Worksheets
If o.Name <> "Récapitulatif" Then
With Worksheets("Récapitulatif").Range("a" & Rows.Count).End(xlUp)(2)
.Value = o.Range("u24").Value
End With
End If
Next
.Activate
End With
End Sub

Merci il faut donc que je me mette sérieusement à l anglais. merci beaucoup je vais me lancer

XL 2010 creation d un tableau recapitulatif a partir de plusieurs onglets

laurent p

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

laurent p

XLDnaute Nouveau

Discussions similaires