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

[laurent p]

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]

Bonjour à toutes et à tous.

Bienvenue sur XLD, laurentp.

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

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]

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