Comment faire une copie incrémenté sur plusieurs feuilles

Bonsoir !!!

je suis nouveau sur ce forum et c'est la première fois que je fais un poste alors j’espère que vous pourriez m'aider à bien m'intégrer

alors voilà mon problème depuis peu de temps j'utilise Excel pour crée une sorte de classeur afin de suivre l'activité de mon commerce

je m'y connais pas trop dans ce domaine mais bon j'essaie de survivre

dans mon fichier j'ai crée plein de feuil "fiche" (500 environ )

et une feuille "récapitulatif" qui regroupe brièvement les informations de chaque "fiche"

vu que il y a plein de page je voudrais savoir comment faire pour faire une copie incrémenté d'une formule

et ainsi l'appliquer à toute les feuilles ( de 1 ----> 500 )

j'ai un peu cherché sur internet et la plupart des réponses évoquent l'utilisation de macro et de VBS mais je ne m'y connais pas

j’espère que vous pourriez m'aider

voici mon fichier

cordialement

Bonjour,

Formule suivante en A4 de la feuille "Liste des Clients" et à copier vers le bas :

=SI(ESTERR(INDIRECT("'Fiche ("&LIGNE()-3&")'!C6"));"";SI(INDIRECT("'Fiche ("&LIGNE()-3&")'!C6")<>"";INDIRECT("'Fiche ("&LIGNE()-3&")'!C6");""))

Formule à adapter pour les autres colonnes.

Merci Infiniment Raja ça marche parfaitement

même si j'ai pas compris la formule mais l'essentiel c'est que ça fonctionne

par contre j'ai un autre problème si tu pouvais aussi m'aider la dessus ça serait génial

dans la case date (G8) des feuils ( fiche )

je voulais que la date s'insère automatiquement alors j'ai mis cette formule

=SI(C6<>"";AUJOURDHUI();"")

sauf que cette date est mise à jour à chaque fois que je relance mon fichier alors que je veux qu'elle reste fixe

comment faire ?

Merci

Re,

Par formule on n'y arrivera pas. Il faut un peu de programmation vba (macro). Je regarde.

Voici une des solutions possibles. Insère le code suivant dans le module "ThisWorkbook" et teste :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
        If Target = "" Then
            Range("G8") = ""
        Else
            Range("G8") = Date
        End If
    End If
End Sub

Bonsoir Raja

merci pour vos efforts mais je si tu pouvais m'expliquer comment faire exactement

j'ai essayé ceci :

je vais sur outils macro puis je vais sur visual basic editor

je fais insertion puis module

je colle le code que vous m'avez envoyer

j'enregistre puis je fais une manip normalement mais y'a rien qui se passe

j'éspère que je me suis pas planté

C'est bon merci j'ai trouver comment ça fonctionne et ça marche parfaitement

Cordialement