OVH Cloud OVH Cloud

Une Macro SVP

7 réponses
Avatar
Cinémas Décavision
Bonjour les PROS d'EXCEL 2000.

Pourriez-vous me dire comment créer la formule d'une macro :

Lorsque je change la somme dans une cellule la date apparait (date du jour
du changement) car dans ma colonne certaines sommes doivent rester au jour
de leur création, les autres modif sont à dater.

Merci à tout le group de News... Formidable.

J'espère que vous m'avez compris ....

7 réponses

Avatar
jps
comprends pas trop car n'ai pas une décavision mais bon, je tente :
si tu as mis la date du jour avec la fonction "aujourdhui" dans la cellule
A1 par ex. et si tu veux que cette date se mette en "dur", tu écris dans ta
macro :

Range("A1") = Range("A1")

ce qui équivaut à faire à la mimine un copier de la cellule A1 et par dessus
un collage spécial valeur
capich?
jps

"Cinémas Décavision" a écrit dans le message de news:
44605cf1$0$6675$
Bonjour les PROS d'EXCEL 2000.

Pourriez-vous me dire comment créer la formule d'une macro :

Lorsque je change la somme dans une cellule la date apparait (date du jour
du changement) car dans ma colonne certaines sommes doivent rester au
jour de leur création, les autres modif sont à dater.

Merci à tout le group de News... Formidable.

J'espère que vous m'avez compris ....



Avatar
Cinémas Décavision
Merci JPS, d'avoir répondu, mais je me suis mal expliqué ...

J'ai UNE colonne somme et à côté une colonne DATE
La date doit rester figée tant que la somme (cellule d'à coté) n'a pas été
modifiée

Ex. :
1684 01/05/2006 car Modifié à cette date
127 08/05/2006 car Modifié à cette date
190 08/05/2006 car Modifié à cette date
111 09/05/2006 car Modifié à cette date

Voilà Donc Si modi cellule A1 Cellule A2 met la date du jour et les autres
dates restent inchangées.

Merci d'avance à tous.

Bernard
Avatar
Stéphan DuQuébec
En supposant que A1 est la cellule contenant ta somme.

En événement Open, tu mets:

Sheets("2006").Range("Z1") = Sheets("2006").Range("A1").Value
et ainsi de suite.....

Z1 étant une colonne qui n'est pas vue de l'utilisateur.

En événement BeforeSave, tu y mets:

If Range("Z1").Value <> Range("A1").Value Then

Sheets("2006").Range("B1").Value = "Date de modification: " & Format(Date, _
" dddd dd mmmm yyyy") & " à " & Format(Time, "hh:mm")

End If

End Sub

À ce moment, dès l'enregistrement des données, toutes cellules de la colonne
A qui aura été modifiée dans la séance actuelle d'utilisation verra sa date
de modification revue pour la date du jour.

Ça convient ?
Avatar
jps
merci stéphan du québec pour le.....follow-up (j'entends déjà clément
brailler) dont j'aurais été bien incapable
c'est toi finalement qui as gagné les places de cinoche...
jps

"Stéphan DuQuébec" a écrit dans le
message de news:

En supposant que A1 est la cellule contenant ta somme.

En événement Open, tu mets:

Sheets("2006").Range("Z1") = Sheets("2006").Range("A1").Value
et ainsi de suite.....

Z1 étant une colonne qui n'est pas vue de l'utilisateur.

En événement BeforeSave, tu y mets:

If Range("Z1").Value <> Range("A1").Value Then

Sheets("2006").Range("B1").Value = "Date de modification: " & Format(Date,
_
" dddd dd mmmm yyyy") & " à " & Format(Time, "hh:mm")

End If

End Sub

À ce moment, dès l'enregistrement des données, toutes cellules de la
colonne
A qui aura été modifiée dans la séance actuelle d'utilisation verra sa
date
de modification revue pour la date du jour.

Ça convient ?


Avatar
Cinémas Décavision
Merci à tous et surtout à : Stéph. du Quebec et jps.

Bravo le groupe.

Bernard
Avatar
Stéphan DuQuébec
Bonjour jps

je te remercie du compliment mais comme je me trouve probablement à 8 000 km
du cinoche en question je te les lègue amicalement !

Ciao !


merci stéphan du québec pour le.....follow-up (j'entends déjà clément
brailler) dont j'aurais été bien incapable
c'est toi finalement qui as gagné les places de cinoche...
jps

"Stéphan DuQuébec" a écrit dans le
message de news:

En supposant que A1 est la cellule contenant ta somme.

En événement Open, tu mets:

Sheets("2006").Range("Z1") = Sheets("2006").Range("A1").Value
et ainsi de suite.....

Z1 étant une colonne qui n'est pas vue de l'utilisateur.

En événement BeforeSave, tu y mets:

If Range("Z1").Value <> Range("A1").Value Then

Sheets("2006").Range("B1").Value = "Date de modification: " & Format(Date,
_
" dddd dd mmmm yyyy") & " à " & Format(Time, "hh:mm")

End If

End Sub

À ce moment, dès l'enregistrement des données, toutes cellules de la
colonne
A qui aura été modifiée dans la séance actuelle d'utilisation verra sa
date
de modification revue pour la date du jour.

Ça convient ?







Avatar
jps
suffit qu'il y ait assez d'ouvreuses pour te conduire jusqu'à ton fauteuil,
stéphane :-)))))
jps

"Stéphan DuQuébec" a écrit dans le
message de news:
Bonjour jps

je te remercie du compliment mais comme je me trouve probablement à 8 000
km
du cinoche en question je te les lègue amicalement !

Ciao !


merci stéphan du québec pour le.....follow-up (j'entends déjà clément
brailler) dont j'aurais été bien incapable
c'est toi finalement qui as gagné les places de cinoche...
jps

"Stéphan DuQuébec" a écrit dans
le
message de news:

En supposant que A1 est la cellule contenant ta somme.

En événement Open, tu mets:

Sheets("2006").Range("Z1") = Sheets("2006").Range("A1").Value
et ainsi de suite.....

Z1 étant une colonne qui n'est pas vue de l'utilisateur.

En événement BeforeSave, tu y mets:

If Range("Z1").Value <> Range("A1").Value Then

Sheets("2006").Range("B1").Value = "Date de modification: " &
Format(Date,
_
" dddd dd mmmm yyyy") & " à " & Format(Time, "hh:mm")

End If

End Sub

À ce moment, dès l'enregistrement des données, toutes cellules de la
colonne
A qui aura été modifiée dans la séance actuelle d'utilisation verra sa
date
de modification revue pour la date du jour.

Ça convient ?