si je cr=E9=E9 un tableau avec trois colonnes: N=B0 de=20
programme; exp=E9diteur; date r=E9ception... comment=20
incr=E9menter automatiquement les deux derniers champs en=20
fonction de mon premier ?
Ou comment faire apparaitre la date de saisie au moment=20
ou des donn=E9es sont saisies dans la premiere colonne ?
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
Philippe.R
Bonjour Virgil,
Je suppose la saisie en colonne A et la date attendu en colonne C.
Dans un module ordinaire :
Sub datesaisie() ActiveCell.Offset(0, 2) = Date 'remplacer 2 par 3 pour la colonne D... End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a:a")) Is Nothing Then 'remplacer a par la lettre de la colonne de saisie datesaisie End If End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Virgil" a écrit dans le message de news:379001c4298e$9a95a610$ si je créé un tableau avec trois colonnes: N° de programme; expéditeur; date réception... comment incrémenter automatiquement les deux derniers champs en fonction de mon premier ?
Ou comment faire apparaitre la date de saisie au moment ou des données sont saisies dans la premiere colonne ?
merci d'avance
Bonjour Virgil,
Je suppose la saisie en colonne A et la date attendu en colonne C.
Dans un module ordinaire :
Sub datesaisie()
ActiveCell.Offset(0, 2) = Date
'remplacer 2 par 3 pour la colonne D...
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
'remplacer a par la lettre de la colonne de saisie
datesaisie
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Virgil" <virgildouine@yahoo.fr> a écrit dans le message de
news:379001c4298e$9a95a610$a601280a@phx.gbl...
si je créé un tableau avec trois colonnes: N° de
programme; expéditeur; date réception... comment
incrémenter automatiquement les deux derniers champs en
fonction de mon premier ?
Ou comment faire apparaitre la date de saisie au moment
ou des données sont saisies dans la premiere colonne ?
Je suppose la saisie en colonne A et la date attendu en colonne C.
Dans un module ordinaire :
Sub datesaisie() ActiveCell.Offset(0, 2) = Date 'remplacer 2 par 3 pour la colonne D... End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a:a")) Is Nothing Then 'remplacer a par la lettre de la colonne de saisie datesaisie End If End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Virgil" a écrit dans le message de news:379001c4298e$9a95a610$ si je créé un tableau avec trois colonnes: N° de programme; expéditeur; date réception... comment incrémenter automatiquement les deux derniers champs en fonction de mon premier ?
Ou comment faire apparaitre la date de saisie au moment ou des données sont saisies dans la premiere colonne ?
