Le 13 janvier dernier, ChrisV et AV m'ont gentilment proposé des petits programmes pour faire inscrire une date statique automatiquement après qu'une entrée dans une cellule ait été faite. Puisque je ne connais pas la programmation, je ne sais pas quoi faire sur Excel avec ces petits programmes. Comment les insérer (les faire fonctionner) dans Excel?
Merci pour les détails...
PS: Voici un exemple de programme proposé par ChrisV
Dans la feuille de code de l'onglet concerné...
En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles
indiquer la date en B1
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub
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
michdenis
Bonsoir Michel,
Choisis la feuille où tu veux insérer une de façon automatique.
Un clic droit sur l'onglet de la feuille choisie
Dans le menu contextuel, sélectionne l'item "Visualiser le code"
Une nouvelle fenêtre (page blanche) s'ouvrira.
Fais un copier-coller de la procédure que tu as soumis.
Reviens à ta feuille de calcul.
Maintenant, si tu tapes quelque chose dans la cellule A1 de la feuille, la date du jour s'inscrira en B1
Voilà,
Salutations!
"MichelJ" a écrit dans le message de news: Salut,
Le 13 janvier dernier, ChrisV et AV m'ont gentilment proposé des petits programmes pour faire inscrire une date statique automatiquement après qu'une entrée dans une cellule ait été faite. Puisque je ne connais pas la programmation, je ne sais pas quoi faire sur Excel avec ces petits programmes. Comment les insérer (les faire fonctionner) dans Excel?
Merci pour les détails...
PS: Voici un exemple de programme proposé par ChrisV Dans la feuille de code de l'onglet concerné... En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles indiquer la date en B1
Private Sub Worksheet_Change(ByVal target As Range) Application.EnableEvents = False If target.Address = "$A$1" And target <> "" Then _ target.Offset(0, 1) = Format(Date, "dd/mm/yyyy") Application.EnableEvents = True End Sub
Bonsoir Michel,
Choisis la feuille où tu veux insérer une de façon automatique.
Un clic droit sur l'onglet de la feuille choisie
Dans le menu contextuel, sélectionne l'item "Visualiser le code"
Une nouvelle fenêtre (page blanche) s'ouvrira.
Fais un copier-coller de la procédure que tu as soumis.
Reviens à ta feuille de calcul.
Maintenant, si tu tapes quelque chose dans la cellule A1 de la feuille, la date du jour s'inscrira en B1
Voilà,
Salutations!
"MichelJ" <mi.j@laposte.net> a écrit dans le message de news:2AE488EF-6F84-42E5-831C-E7A324E70F85@microsoft.com...
Salut,
Le 13 janvier dernier, ChrisV et AV m'ont gentilment proposé des petits programmes pour faire inscrire une date statique
automatiquement après qu'une entrée dans une cellule ait été faite. Puisque je ne connais pas la programmation, je ne sais
pas quoi faire sur Excel avec ces petits programmes. Comment les insérer (les faire fonctionner) dans Excel?
Merci pour les détails...
PS: Voici un exemple de programme proposé par ChrisV
Dans la feuille de code de l'onglet concerné...
En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles
indiquer la date en B1
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" And target <> "" Then _
target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
Application.EnableEvents = True
End Sub
Choisis la feuille où tu veux insérer une de façon automatique.
Un clic droit sur l'onglet de la feuille choisie
Dans le menu contextuel, sélectionne l'item "Visualiser le code"
Une nouvelle fenêtre (page blanche) s'ouvrira.
Fais un copier-coller de la procédure que tu as soumis.
Reviens à ta feuille de calcul.
Maintenant, si tu tapes quelque chose dans la cellule A1 de la feuille, la date du jour s'inscrira en B1
Voilà,
Salutations!
"MichelJ" a écrit dans le message de news: Salut,
Le 13 janvier dernier, ChrisV et AV m'ont gentilment proposé des petits programmes pour faire inscrire une date statique automatiquement après qu'une entrée dans une cellule ait été faite. Puisque je ne connais pas la programmation, je ne sais pas quoi faire sur Excel avec ces petits programmes. Comment les insérer (les faire fonctionner) dans Excel?
Merci pour les détails...
PS: Voici un exemple de programme proposé par ChrisV Dans la feuille de code de l'onglet concerné... En supposant que la saisie se fasse en A1 de la Feuil1! et que tu veuilles indiquer la date en B1
Private Sub Worksheet_Change(ByVal target As Range) Application.EnableEvents = False If target.Address = "$A$1" And target <> "" Then _ target.Offset(0, 1) = Format(Date, "dd/mm/yyyy") Application.EnableEvents = True End Sub
