Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit propramme pour insérer automatiquement une date statique lors d'une entrée dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple) si je veux qu'elles aient la même propriété d'afficher la date statique automatiquement lorsque je fais une entrée dans leur cellule?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour MichelJ Pardon d'avance à AV pour avoir répondu, mais je ne te vois pas ce matin :-) Voici une manière de procéder afin d'intéger tout changement intervenu dans les plages B1 à B25 ou D1 à D32 :
Private Sub Worksheet_Change(ByVal zz As Range) If Not Intersect(zz, Range("B1:B25")) Is Nothing _ Or Not Intersect(zz, Range("D1:D32")) Is Nothing Then Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End If End Sub
Cordialement Pascal
"MichelJ" a écrit dans le message de news:
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique automatiquement lorsque je fais une entrée dans leur cellule?
Merci encore!
Bonjour MichelJ
Pardon d'avance à AV pour avoir répondu, mais je ne te vois pas ce matin :-)
Voici une manière de procéder afin d'intéger tout changement intervenu dans
les plages B1 à B25 ou D1 à D32 :
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, Range("B1:B25")) Is Nothing _
Or Not Intersect(zz, Range("D1:D32")) Is Nothing Then
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End If
End Sub
Cordialement
Pascal
"MichelJ" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1B1327D4-8419-4FBB-A80E-D7C28150DD02@microsoft.com...
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit
propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais
que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique
automatiquement lorsque je fais une entrée dans leur cellule?
Bonjour MichelJ Pardon d'avance à AV pour avoir répondu, mais je ne te vois pas ce matin :-) Voici une manière de procéder afin d'intéger tout changement intervenu dans les plages B1 à B25 ou D1 à D32 :
Private Sub Worksheet_Change(ByVal zz As Range) If Not Intersect(zz, Range("B1:B25")) Is Nothing _ Or Not Intersect(zz, Range("D1:D32")) Is Nothing Then Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End If End Sub
Cordialement Pascal
"MichelJ" a écrit dans le message de news:
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique automatiquement lorsque je fais une entrée dans leur cellule?
Merci encore!
ru-th
Salut
Alain étant en RTT If Intersect(zz, Union(Range("b1:b25"), Range("d1:d25"))) Is Nothing Then Exit Sub (sur 1 seule ligne) a+ rural thierry
"MichelJ" a écrit dans le message de news:
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique automatiquement lorsque je fais une entrée dans leur cellule?
Merci encore!
Salut
Alain étant en RTT
If Intersect(zz, Union(Range("b1:b25"), Range("d1:d25"))) Is Nothing Then
Exit Sub
(sur 1 seule ligne)
a+
rural thierry
"MichelJ" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1B1327D4-8419-4FBB-A80E-D7C28150DD02@microsoft.com...
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit
propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais
que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique
automatiquement lorsque je fais une entrée dans leur cellule?
Alain étant en RTT If Intersect(zz, Union(Range("b1:b25"), Range("d1:d25"))) Is Nothing Then Exit Sub (sur 1 seule ligne) a+ rural thierry
"MichelJ" a écrit dans le message de news:
Salut AV,
Vous m'avez gentiment créé (merci!!!) le 12 janvier dernier un petit propramme pour insérer automatiquement une date statique lors d'une entrée
dans une cellule. C'est le programme suivant:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
J'ai essayé ce programme et il fonctionne bien pour la cellule A1. Mais que puis-je faire pour d'autres cellules (B1 à B25 et D1 à D32 par exemple)
si je veux qu'elles aient la même propriété d'afficher la date statique automatiquement lorsque je fais une entrée dans leur cellule?
Merci encore!
Clément Marcotte
Alain étant en RTT
Moi qui pensait qu'il était parti faire la sieste chez Laurent D. ;-)
Alain étant en RTT
Moi qui pensait qu'il était parti faire la sieste chez Laurent D. ;-)
Moi qui pensait qu'il était parti faire la sieste chez Laurent D. ;-)
ChrisV
Bonjour MichelJ,
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, Union(Range("b1:b25"), _ Range("d1:d25"))) Is Nothing Then Exit Sub Application.EnableEvents = False If zz.Value <> "" Then zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
ChrisV
"MichelJ" a écrit dans le message de news:
Merci pour l'information. J'ai remarqué que si j'enlève tout ce que contient la cellule (l'entrée et la date qui s'est inscrite automatiquement), la date revient. Comment
revenir à une cellule vide après avoir précédemment fait une entrée dans la cellule?
Merci!
Bonjour MichelJ,
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, Union(Range("b1:b25"), _
Range("d1:d25"))) Is Nothing Then Exit Sub
Application.EnableEvents = False
If zz.Value <> "" Then zz = zz.Value & " - " & Date
Application.EnableEvents = True
End Sub
ChrisV
"MichelJ" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: BA5EEBF4-6F05-4E5B-84C0-3DD792157534@microsoft.com...
Merci pour l'information.
J'ai remarqué que si j'enlève tout ce que contient la cellule (l'entrée et
la date qui s'est inscrite automatiquement), la date revient. Comment
revenir à une cellule vide après avoir précédemment fait une entrée dans la
cellule?
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, Union(Range("b1:b25"), _ Range("d1:d25"))) Is Nothing Then Exit Sub Application.EnableEvents = False If zz.Value <> "" Then zz = zz.Value & " - " & Date Application.EnableEvents = True End Sub
ChrisV
"MichelJ" a écrit dans le message de news:
Merci pour l'information. J'ai remarqué que si j'enlève tout ce que contient la cellule (l'entrée et la date qui s'est inscrite automatiquement), la date revient. Comment
revenir à une cellule vide après avoir précédemment fait une entrée dans la cellule?
