Report de différentes cellules dans un recap

bonjour,

je pense que ma question est assez ridicule pour des experts mais pour moi c'est assez compliqué .

Je voudrais faire une récap de mes différentes feuilles dans une derniere feuille car j'ai ensuite besoin de faire des ratios par prestation .

Ceci est très simple je pense .je vous joints mon document .

je veux que mes quinzes feuilles soient récapitulées en fonction de la nature .

Votre aide me serait précieuse .

Avec mes remerciements

Raphaelle

Salut Raphaëlle,

Inscrits quelques données exemples sur la feuille 1 et sur la feuille 2 et indique d'une manière manuelle les résultats que tu voudrais avoir sur la feuille "Récap" ; ce sera ainsi probablement plus simple de t'aider.

Cordialement.

Voila je t'ai mis un exemple chiffré; je voudrais que ma dernière feuille s'incrémente automatiquement .

Merci

Raphaelle

Yvouille a écrit :

Salut Raphaëlle,

Inscrits quelques données exemples sur la feuille 1 et sur la feuille 2 et indique d'une manière manuelle les résultats que tu voudrais avoir sur la feuille "Récap" ; ce sera ainsi probablement plus simple de t'aider.

Cordialement.

Bonjour à tous,

Avec un bouton sur feuille "RECAP"

Sub Récap()
Dim Lg&, Sh As Worksheet

    With Sheets("RECAP")
        .Range("a3:L" & .[L65000].End(xlUp).Row + 1).ClearContents
        For Each Sh In Worksheets
            If Sh.Name <> "RECAP" And Sh.Name <> "LISTE" Then
                Lg = .Range("h" & Rows.Count).End(xlUp).Row + 1
                .Cells(Lg, "a") = Sh.Range("f1") 'prestation
                .Cells(Lg, "b") = Sh.Range("b1") 'date
                .Cells(Lg, "c") = Sh.Range("h5")
                .Cells(Lg, "d") = Sh.Range("h6")
                .Cells(Lg, "e") = Sh.Range("h22")
                .Cells(Lg, "f") = Sh.Range("h46")
                .Cells(Lg, "g") = Sh.Range("h53")
                .Cells(Lg, "h") = Sh.Range("h65")
                .Cells(Lg, "i") = Sh.Range("h73")
                .Cells(Lg, "j") = Sh.Range("h79") '80?
                .Cells(Lg, "k") = Sh.Range("h85")
                .Cells(Lg, "L") = Sh.Range("h86") 'Somme
            End If
        Next
    End With
End Sub

Bonne journée

Claude

Merci ....

je ne comprends rien au macro mais ce que tu as fait fonctionne donc génial .

par contre pourquoi cela ne marche t'il pas sur ma colonne A et B ?

Est ce parceque c'est du texte ?

N'y a t il pas un truc avec décaler pour faire ce genre de chose plutot que de passer par une macro ? Ce n'est qu'une question et non un reproche .car si je dois refaire cela sur d'autre document je suis mal ........

pour mes colonnes A et B je vais faire =feuille1 C , feuille2C..................................

Merci beaucoup

bonjour

moi aussi j'ai le même soucis je souhaite automatiser le suivi de manière hebdomadaire pour un relever mensuel

merci beaucoup de votre aide!!!!!!

re,

pourquoi cela ne marche t'il pas sur ma colonne A et B ?

cela marche, mais il n'y a que la feuille 1 qui soit renseignée !

Tu n'as pas à avoir peur des macros, çà ne mord pas !

Ici la feuille "Recap" est effacée et réécrite à chaque fois

A mon avis, c'est + simple que des formules complexes !

Amicalement

Claude

bonjour Dubois

effectivement c'est plus simple ;quand on en maitrise la syntaxe

par exemple suite a with ; d'ailleur pourquoi with ? quel est le sens de ce "avec" ?; doit on comprendre :" avec en particulier" ; un peu comme une clause rajoutée ; ou alors ce "avec" n'est la que pour s'epargner la saisie de sheet ou range dans ce tronçon de code , c'est ce que j'en ai deduit because les lignes debutent par .

je n'ai jamais trouvé une doc ,un site ,un livre qui expliquait vraiment avec des mots simples le pourquoi du comment et les petits trucs qui en leur absence font tout foirer : du genre , "dans ce cas il faut 2 parentheses parce que ........ "ou alors "ces valeurs doivent etre separées par une virgule" et encore " si vous utilisez cette expression ;il faudra imprativement mettre celle ci a tel endroit "

pour eviter les for sans next ou variable de bloc with ..............................

et pourtant j'en ai compulsé

dans un monde meileur il y aura un truc du genre "que voulez vous faire " puis "dans ce cas" alors là ce sera chouette

bien cordialement

Re bonjour,

je suis allée un peu vite en mettant réponse OK;

Comment dois je faire pour recopier la macro pour toutes mes autres feuilles ......?

merci d'avance

Raphaelle

re,

Comment dois je faire pour recopier la macro pour toutes mes autres feuilles ......?

Il n'y a qu'une macro,

celle-ci traite toutes les feuilles du classeur, sauf celles nommées "RECAP" et "LISTE"

        For Each Sh In Worksheets
            If Sh.Name <> "RECAP" And Sh.Name <> "LISTE" Then

Claude