formule pour copier la date sur plusieurs feuilles

Marsh Posté le 17-11-2011 à 14:02:14

Bonjour, je cherche une formule pour copier automatiquement la date qui se se trouve en cellule A1 de la feuille 1 sur les 30 autres feuilles en cellule A1.

ex: feuille 1, cellule A1: 01-09-2011
feuille 2, cellule A1: 02-09-2011
.......

merci

Marsh Posté le 17-11-2011 à 14:02:14

Marsh Posté le 17-11-2011 à 15:26:29

Sur la feuille 2 et les autres, dans la cellule devant recevoir la date, écrire :

=Feuil1!A1

Marsh Posté le 17-11-2011 à 15:51:39

c'est gentil mais j'ai 200 feuilles ou mettre la date et je voulais une formule à ne mettre que dans la 1ère feuille et qui mette à jour les autres automatiquement..
merci quant même ;-)

Marsh Posté le 17-11-2011 à 16:12:31

Salut, à tester

Option Explicit

Sub Tst()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then
Ws.Range("A1" ) = "=Feuil1!A1"
End If
Next Ws
End Sub

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 17-11-2011 à 16:20:45

merci, mais je cherche à faire cela avec une formule et non un code vba.

ça ce complique ;-)

Marsh Posté le 17-11-2011 à 16:25:48

je voudrai sélectionner toutes mes feuilles, et mettre une formule dans A1, je l'ai fait avec ='feuil1'!A1+1, mais avec la sélection ça ne fonctionne pas.

Marsh Posté le 17-11-2011 à 16:38:36

Salut,curieux je ne sais pas comment tu te débrouilles mais ici en sélectionnant les feuilles idoines et en saisissant la formule =Feuil1!A1 dans A1 de feuil2 cela fonctionne, et reporte la date dans les feuilles sélectionnées

Message édité par kiki29 le 17-11-2011 à 16:41:57

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *