J'aimerais que la date du jour s'affiche lorsque j'inscris quelques choses dans une cellule
ex:
colonne a: 250.00$ colonne b: date du jour s'affiche- la colonne b est relié à la colonne a
Merci à l'avance Salut,
Mets cette formule dans chacune des cellules de la colonne B : =SI(A2<>"";AUJOURDHUI();"") et appliques un format de date à la colonne B
Le Nordiste
Dans le module de feuille :
Sub Worksheet_Change ( ByVal Target as range) ... range("B" & Target.row).Formula = Now() ...
Va mettre dans la cellule B de même ligne que la cellule modifiée la date du jour. Fonctionne quelque soit la cellule de la ligne où il y a un changement.
Le Nordiste.
Dans le module de feuille :
Sub Worksheet_Change ( ByVal Target as range)
...
range("B" & Target.row).Formula = Now()
...
Va mettre dans la cellule B de même ligne que la cellule modifiée la
date du jour.
Fonctionne quelque soit la cellule de la ligne où il y a un
changement.
Sub Worksheet_Change ( ByVal Target as range) ... range("B" & Target.row).Formula = Now() ...
Va mettre dans la cellule B de même ligne que la cellule modifiée la date du jour. Fonctionne quelque soit la cellule de la ligne où il y a un changement.
Le Nordiste.
Ardus Petus
Ne pas oublier: Application.enableEventsúlse <ton code> Application.EnableEvents=True
Cordialement, -- AP
"Le Nordiste" a écrit dans le message de news:
Dans le module de feuille :
Sub Worksheet_Change ( ByVal Target as range) ... range("B" & Target.row).Formula = Now() ...
Va mettre dans la cellule B de même ligne que la cellule modifiée la date du jour. Fonctionne quelque soit la cellule de la ligne où il y a un changement.
Le Nordiste.
Ne pas oublier:
Application.enableEventsúlse
<ton code>
Application.EnableEvents=True
Cordialement,
--
AP
"Le Nordiste" <jean-paul.bataille@cegetel.fr> a écrit dans le message de
news: 1149601319.472273.325730@c74g2000cwc.googlegroups.com...
Dans le module de feuille :
Sub Worksheet_Change ( ByVal Target as range)
...
range("B" & Target.row).Formula = Now()
...
Va mettre dans la cellule B de même ligne que la cellule modifiée la
date du jour.
Fonctionne quelque soit la cellule de la ligne où il y a un
changement.
Ne pas oublier: Application.enableEventsúlse <ton code> Application.EnableEvents=True
Cordialement, -- AP
"Le Nordiste" a écrit dans le message de news:
Dans le module de feuille :
Sub Worksheet_Change ( ByVal Target as range) ... range("B" & Target.row).Formula = Now() ...
Va mettre dans la cellule B de même ligne que la cellule modifiée la date du jour. Fonctionne quelque soit la cellule de la ligne où il y a un changement.
Le Nordiste.
JB
Bonjour,
Met l'heure de saisie en commentaire dans la cellule de saisie:
http://cjoint.com/?ghinf0VBvg
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False On Error Resume Next Target.AddComment Target.Comment.Text Text:=CStr(Now) Target.Comment.Visible = True Target.Comment.Shape.Select Selection.AutoSize = True Target.Comment.Visible = False On Error GoTo 0 Application.EnableEvents = True End If End Sub
Cordialement JB
J'aimerais que la date du jour s'affiche lorsque j'inscris quelques choses dans une cellule
ex:
colonne a: 250.00$ colonne b: date du jour s'affiche- la colonne b est relié à la colonn e a
Merci à l'avance
Bonjour,
Met l'heure de saisie en commentaire dans la cellule de saisie:
http://cjoint.com/?ghinf0VBvg
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
On Error Resume Next
Target.AddComment
Target.Comment.Text Text:=CStr(Now)
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0
Application.EnableEvents = True
End If
End Sub
Cordialement JB
J'aimerais que la date du jour s'affiche lorsque j'inscris quelques choses
dans une cellule
ex:
colonne a: 250.00$
colonne b: date du jour s'affiche- la colonne b est relié à la colonn e a
Met l'heure de saisie en commentaire dans la cellule de saisie:
http://cjoint.com/?ghinf0VBvg
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False On Error Resume Next Target.AddComment Target.Comment.Text Text:=CStr(Now) Target.Comment.Visible = True Target.Comment.Shape.Select Selection.AutoSize = True Target.Comment.Visible = False On Error GoTo 0 Application.EnableEvents = True End If End Sub
Cordialement JB
J'aimerais que la date du jour s'affiche lorsque j'inscris quelques choses dans une cellule
ex:
colonne a: 250.00$ colonne b: date du jour s'affiche- la colonne b est relié à la colonn e a
Merci à l'avance
Le Nordiste
Bien vu Ardus Petus,
sinon on entre dans une boucle sans fin : je modifie une cellule, la macro '_change' se lance et modifie la cellule 'date de modif' qui va lancer la macro '_change' et ainsi de suite...
Le Nordiste
Bien vu Ardus Petus,
sinon on entre dans une boucle sans fin :
je modifie une cellule,
la macro '_change' se lance et modifie la cellule 'date de modif'
qui va lancer la macro '_change' et ainsi de suite...
sinon on entre dans une boucle sans fin : je modifie une cellule, la macro '_change' se lance et modifie la cellule 'date de modif' qui va lancer la macro '_change' et ainsi de suite...