La même valeur

G

galopin01

XLDnaute Occasionnel

• 27 Février 2005

• #2

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 ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Février 2005

• #4

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Février 2005

• #5

Re...

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 27 Février 2005

• #6

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 😉

 

Vote positif 0 Vote négatif

L

Lolo5555Fr

Guest

• 27 Février 2005

• #7

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

 

Vote positif 0 Vote négatif