La même valeur

[Lolo5555Fr]

Bonjour, le forum
J'ai un petit probleme . Je veux mettre une date dans une cellule,jusque là ,il y a pas de probleme 😉
Mais je souhaite que cette valeur soit inscrite sur toutes les feuilles du classeurs (il y a beaucoup de feuilles) dans une cellule .
Donc si quelqu'un peut m'aider pour trouver une macro qui automatise ce 'copier/coller' ....en fait le probleme vient du nombre de feuilles dans le classeur
Je vous remercie d'avance.....

 

[galopin01]

Bonjour,
Une macro à coller dans le module de feuille qui initialise ta prise de date.
Dans mon exemple, c'est la cellule A1 qui 'date'

Private Y As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Y Then Y = True
If Not Intersect(Target, Range('A1')) Is Nothing Then
For Each O In Worksheets()
O.Range('A1').FormulaR1C1 = Target.Value
Next
End If
Y = False
End Sub

Ok ?

 

[PascalXLD]

Bonjour

Si tu veux simplement mettre la date sur toutes tes feuilles, tu peux aussi simplement sélectionner toutes tes feuilles (clic droit sur un onglet et sélectionner tout) puis tu mets ta date dans ta cellule tu dissocies les feuilles (clic droit dissocier) et le tour est joué

Bonne journée

Message édité par: Pascal76, à: 27/02/2005 09:06

 

[JeanMarie]

Bonjour

Autre possibilité, sans l'usage de macro, en sélectionnant toutes les feuilles, puis en tapant la date dans la cellule, celle ci sera reportée sur toutes les feuilles.

Pour sélectionner toutes les feuilles
1) clique sur l'onglet de la première feuille,
2) appuye sur la touche Shift,
3) et clique sur l'onglet de la dernière feuille.

Dans le même ordre d'idée, en ne sélectionnant que les feuilles de report, et en indiquant =Feuille1!A1, tu n'auras plus à faire la manip.

@+Jean-Marie

 

[JeanMarie]

Re...

Sorry Pascal, je n'avais pas raffraichi, passe un bon dimanche

@+Jean-Marie

 

[Eric C]

Bonjour le forum
Bonjour Galopin01, bonjour Pascal & bonjour Jean-Marie

Bon je ne vais pas y aller de mon code, Galopin m'a devancé.
Je voulais juste remercier Pascal pour son astuce avec dissocier que je ne connaisssais pas.
Pourquoi faire simple quand on peut faire compliqué.....

Bon dimanche à toutes & à tous.
@ + Eric C 😉

 

[Lolo5555Fr]

Un grand merci à vous ,
Il est vrai que vu comme ça, il y a DES solutions .
Encore merci et bon dimanche à vous .