comen eviter de devoir modifié 3600 formule une par une?

bzh29 · 2 Décembre 2009

voila j'ai cette formule dans 100 cellule: :=SOMMEPROD(('[JOURNAL ENTRETIENS.xls]Feuil1'!$A$4:$A$20>=DATEVAL("01/01/2010"))*('[JOURNAL ENTRETIENS.xls]Feuil1'!$A$4:$A$20<=DATEVAL("31/01/2010"))*'[JOURNAL ENTRETIENS.xls]Feuil1'!$D$4:$D$20)

j'ai 100 feuil dans un autre classeur, je voudrai remplacer dans la formule le "feuil1" par "feuil2" ainssi de suite...
cela juste pour le moi de janvier comme vous pouvé le voir avec la date dans la formule, ensuite sur une autre feuil j'ai le mois de fevrier la il faut que je modifie toute les dates dans toute les formule! j'en est pour des heures! il y a t'il un moyen plus rapide?
jespére étre a peu prés clair.
Aidé-moi vite SVP!

hoerwind · 2 Décembre 2009

Re : comen eviter de devoir modifié 3600 formule une par une?

Bonjour,

Sélectionner la feuille
Menu Edition - Remplacer
Rechercher : Feuil1!
Remplacer par : Feuil2!
Remplacer tout.

Dis-nous si cela fonctionne.

CISCO · 2 Décembre 2009

Re : comen eviter de devoir modifié 3600 formule une par une?

Bonjour

Je ne te promet pas que c'est la bonne solution, mais, ne peux tu essayer avec quelque chose du style :

Code:

SOMMEPROD((INDIRECT(A1&$A$4:$A$20)>=DATEVAL("01/01/2010"))*(INDIRECT(A1&$A$4:$A$20)>=<=DATEVAL("31/01/2010"))*INDIRECT(A1&$D$4:$D$20))

avec sur la feuille 1, dans A1 par ex :
[JOURNAL ENTRETIENS.xls]Feuil1!

Sur la feuille 2, en A1 :
[JOURNAL ENTRETIENS.xls]Feuil2!

A adapter et à vérifier.

@ plus

PS : Bonjour Hoerwind et PierreJean

pierrejean · 2 Décembre 2009

Re : comen eviter de devoir modifié 3600 formule une par une?

bonjour bzh

Une macro a tester

Code:

Sub change()
For Each cel In Range("A1:F100") 'A1:100 a adapter
  If cel.FormulaLocal = "=SOMMEPROD(('[JOURNAL ENTRETIENS.xls]Feuil1'!$A$4:$A$20>=DATEVAL(""01/01/2010""))*('[JOURNAL ENTRETIENS.xls]Feuil1'!$A$4:$A$20<=DATEVAL(""31/01/2010""))*'[JOURNAL ENTRETIENS.xls]Feuil1'!$D$4:$D$20)" Then
    cel.FormulaLocal = Replace(cel.FormulaLocal, "Feuil1", "Feuil2") 'adapter Feuil1 et Feuil2 dans cette ligne et la precedente
  End If
Next cel
End Sub

Edit: Salut hoerwind
Salut CISCO

bzh29 · 2 Décembre 2009

Re : comen eviter de devoir modifié 3600 formule une par une?

Merci beaucoup pour cette rapidité aussi tot le matin! je sui novice dans excel du coup je galére a méttre les chose en place.
Du coup je vais enfaite finir de modifié mes formule manuellement.
Mais pour modifié les dates pour le moi de février et les autres dates, j'ai essayé de faire édition puis remplacer comme a dit hoerwind mai sa marche pas, ji arrive pas!

Ma formule:=SOMMEPROD(('C:\Documents and Settings\stage.DOMAINE\Bureau\Aurélien\gestion Atelier\CHRISTOPHE\[JOURNAL ENTRETIENS.xls]11ANV29'!$A$2:$A$23>=DATEVAL("01/01/2010"))*('C:\Documents and Settings\stage.DOMAINE\Bureau\Aurélien\gestion Atelier\CHRISTOPHE\[JOURNAL ENTRETIENS.xls]11ANV29'!$A$2:$A$23<=DATEVAL("28/01/2010"))*'C:\Documents and Settings\stage.DOMAINE\Bureau\Aurélien\gestion Atelier\CHRISTOPHE\[JOURNAL ENTRETIENS.xls]11ANV29'!$E$2:$E$23).

j'ai fais edition puis remplacer pui rechercher 01/2010 puis remplacer par 02/2010 puis regarder dans formule.puis je sélectionne ma cellule puis je fais remplacer et excel me mai "ne trouve pas de correspondance" sa devré marché pourtant?

bzh29 · 2 Décembre 2009

Re : comen eviter de devoir modifié 3600 formule une par une?

ENFAITE C'EST BON SA MARCHE!!!! j'chui tro heureux!!!! Merci a Tous!!!!! biz

comen eviter de devoir modifié 3600 formule une par une?

bzh29

Guest

hoerwind

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

bzh29

Guest

bzh29

Guest

Discussions similaires

comen eviter de devoir modifié 3600 formule une par une?

bzh29

Guest

hoerwind

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

bzh29

Guest

bzh29

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency