Faire apparaître la date dans une cellule dans Excel 2003
Résolu/Fermé
Black23
Messages postés
5
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
7 octobre 2013
-
3 oct. 2013 à 06:40
Black23 Messages postés 5 Date d'inscription jeudi 3 octobre 2013 Statut Membre Dernière intervention 7 octobre 2013 - 7 oct. 2013 à 00:47
Black23 Messages postés 5 Date d'inscription jeudi 3 octobre 2013 Statut Membre Dernière intervention 7 octobre 2013 - 7 oct. 2013 à 00:47
A voir également:
- Faire apparaître la date dans une cellule dans Excel 2003
- Aller à la ligne dans une cellule excel - Guide
- Apparaitre hors ligne instagram - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
8 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 3/10/2013 à 07:25
Modifié par Mike-31 le 3/10/2013 à 07:25
Bonjour,
En supposant que ta date est en A1,
=MOIS(A1)
pour ta demande, si tu veux le mois en cours en fonction du contenu de la cellule A1
=SI(A1<>"";MOIS(AUJOURDHUI());"")
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
En supposant que ta date est en A1,
=MOIS(A1)
pour ta demande, si tu veux le mois en cours en fonction du contenu de la cellule A1
=SI(A1<>"";MOIS(AUJOURDHUI());"")
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
3 oct. 2013 à 07:48
3 oct. 2013 à 07:48
Bonjour
Salut Mike
je te laisse la réponse tu es meilleur que moi pour ça, mais je crois que le demandeur veut enregistrer la date à laquelle une donnée est entrée, c'est à dire qu'il faut la figer, ce qui n'est pas possible par cette formule.
Mais j'"ai dans mes tiroirs une de tes propositions par VBA (action dans une cellule entre une date dans une autre)qui fonctionne bien.
Je laisse donc Cèsar rendre à César ce qui est à César.
Bien amicalement
Salut Mike
je te laisse la réponse tu es meilleur que moi pour ça, mais je crois que le demandeur veut enregistrer la date à laquelle une donnée est entrée, c'est à dire qu'il faut la figer, ce qui n'est pas possible par cette formule.
Mais j'"ai dans mes tiroirs une de tes propositions par VBA (action dans une cellule entre une date dans une autre)qui fonctionne bien.
Je laisse donc Cèsar rendre à César ce qui est à César.
Bien amicalement
Black23
Messages postés
5
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
7 octobre 2013
3 oct. 2013 à 14:42
3 oct. 2013 à 14:42
Bonjour à vous tous, et merci pour vos propositions. Effectivement comme l'a dit Vaucluse, J'aimerais le mois apparaise dans une cellule à chaque fois que j'entre une donnée quelconque dans une autre
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
3 oct. 2013 à 10:01
3 oct. 2013 à 10:01
Salut l'ami,
J'ai hésité, il est possible que j'ai mal interprété la demande mais attendons le retour de Black pour avoir des précisions
J'ai hésité, il est possible que j'ai mal interprété la demande mais attendons le retour de Black pour avoir des précisions
pilulle413
Messages postés
35
Date d'inscription
lundi 5 août 2013
Statut
Membre
Dernière intervention
21 février 2014
3 oct. 2013 à 10:10
3 oct. 2013 à 10:10
salut mike tu a vu m on email??
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 3/10/2013 à 16:33
Modifié par Mike-31 le 3/10/2013 à 16:33
Re,
Alors en VBA il faut être très précis, en supposant que tes valeurs sont saisies colonne A et que tu souhaite le mois en toute lettre en B, colle ce code dans le Visual Basic
pour cela clic droit sur l'onglet de ta feuille/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Format(Date, "mmmm")
Else
Target.Offset(0, 1) = ""
End If
End Sub
pour écrire un code adapté à tes besoins, donne nous la colonne de référence ainsi que la colonne dans laquelle tu souhaites avoir le mois
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Alors en VBA il faut être très précis, en supposant que tes valeurs sont saisies colonne A et que tu souhaite le mois en toute lettre en B, colle ce code dans le Visual Basic
pour cela clic droit sur l'onglet de ta feuille/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Format(Date, "mmmm")
Else
Target.Offset(0, 1) = ""
End If
End Sub
pour écrire un code adapté à tes besoins, donne nous la colonne de référence ainsi que la colonne dans laquelle tu souhaites avoir le mois
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Black23
Messages postés
5
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
7 octobre 2013
4 oct. 2013 à 05:25
4 oct. 2013 à 05:25
Hello Mike !!!
Désoolé pour les longs délais entre mes réponses. Décalage horaire.
Merci déjà pour tes réponses.
Je dois te dire que la dernière fois que j'ai fait une VBA, ça doit faire au moins 7 ans, mais je vais essayer ton code.
Le mois, je le voudrais dans la Colonne F et mes données, je vais les saisir en colonne E. Penses-Tu que ce code marcherait si je décide de saisir les données en C, D ou E ?
Merci encore
Désoolé pour les longs délais entre mes réponses. Décalage horaire.
Merci déjà pour tes réponses.
Je dois te dire que la dernière fois que j'ai fait une VBA, ça doit faire au moins 7 ans, mais je vais essayer ton code.
Le mois, je le voudrais dans la Colonne F et mes données, je vais les saisir en colonne E. Penses-Tu que ce code marcherait si je décide de saisir les données en C, D ou E ?
Merci encore
Black23
Messages postés
5
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
7 octobre 2013
4 oct. 2013 à 19:32
4 oct. 2013 à 19:32
Pitié, ne m'abandonnez pas
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
4 oct. 2013 à 19:45
4 oct. 2013 à 19:45
Bonsoir
dans la macro, pour qu'elle agisse sur la colonne F quand vous entrez une valeur en E il suffit de modifier la ligne
If Target.Column <> 1 Then Exit Sub
en
If Target.Column <> 5 Then Exit Sub
Ce N° étant le N° de colonne du champ où s'applique la valeur, la suite de macro décalant l'entrée de la date d'une cellule vers la droite
crdlmnt
dans la macro, pour qu'elle agisse sur la colonne F quand vous entrez une valeur en E il suffit de modifier la ligne
If Target.Column <> 1 Then Exit Sub
en
If Target.Column <> 5 Then Exit Sub
Ce N° étant le N° de colonne du champ où s'applique la valeur, la suite de macro décalant l'entrée de la date d'une cellule vers la droite
crdlmnt
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 396
4 oct. 2013 à 19:59
4 oct. 2013 à 19:59
... et pour inscrire le mois en F si vous entrez une valeur en C,D ou E, coller ce code
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Rw As Long
Rw = Target.Row
If Target.Column > 2 And Target.Column < 6 Then
Range("F" & Rw).Select
ActiveCell.Value = Format(Date, "mmmm")
End If
End Sub
crdlmnt
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Rw As Long
Rw = Target.Row
If Target.Column > 2 And Target.Column < 6 Then
Range("F" & Rw).Select
ActiveCell.Value = Format(Date, "mmmm")
End If
End Sub
crdlmnt
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 4/10/2013 à 22:27
Modifié par Mike-31 le 4/10/2013 à 22:27
Salut Vaucluse,
attention mon ami, si tu utilises en début de code
Application.ScreenUpdating = False
il ne faut pas oublier de rétablir les fonctions d'Excel en fin
Application.screenupdating=True
mais vu la légèreté du code cette syntaxe n'est pas nécessaire
j'écrirai le code ainsi avec la sécurité de ne pas modifier le mois en F s'il existe déjà
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rw As Long
Rw = Target.Row
If Target.Column = 5 And Target.Offset(0, 1) = "" Then
Range("F" & Rw).Value = Format(Date, "mmmm")
End If
End Sub
Cordialement
Mike-31
attention mon ami, si tu utilises en début de code
Application.ScreenUpdating = False
il ne faut pas oublier de rétablir les fonctions d'Excel en fin
Application.screenupdating=True
mais vu la légèreté du code cette syntaxe n'est pas nécessaire
j'écrirai le code ainsi avec la sécurité de ne pas modifier le mois en F s'il existe déjà
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rw As Long
Rw = Target.Row
If Target.Column = 5 And Target.Offset(0, 1) = "" Then
Range("F" & Rw).Value = Format(Date, "mmmm")
End If
End Sub
Cordialement
Mike-31
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 4/10/2013 à 19:58
Modifié par Mike-31 le 4/10/2013 à 19:58
Re,
voila, voila !
valeur saisie en colonne F mois se mettra en colonne E, colle ce code dans le Visual Basic à la place de l'ancien
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Format(Date, "mmmm")
Else
Target.Offset(0, -1) = ""
End If
End Sub
pour modifier la colonne de saisie, dans cette ligne, 6 est le numéro de ta colonne 1= colonne A, 2 colonne B donc 6 colonne 6
If Target.Column <> 6 Then Exit Sub
ici
Target.Offset(0, -1)
Target.Offset(0 est le numéro de la ligne par rapport à la cellule de saisie et -1 est la position de la colonne par rapport à la colonne de saisie donc -1 = E par rapport à F, pour mettre le mois en C par rapport à la colonne F il convient de modifier comme ceci
Target.Offset(0, -3)
et pour avoir le mois en H
Target.Offset(0, 2)
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
voila, voila !
valeur saisie en colonne F mois se mettra en colonne E, colle ce code dans le Visual Basic à la place de l'ancien
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Format(Date, "mmmm")
Else
Target.Offset(0, -1) = ""
End If
End Sub
pour modifier la colonne de saisie, dans cette ligne, 6 est le numéro de ta colonne 1= colonne A, 2 colonne B donc 6 colonne 6
If Target.Column <> 6 Then Exit Sub
ici
Target.Offset(0, -1)
Target.Offset(0 est le numéro de la ligne par rapport à la cellule de saisie et -1 est la position de la colonne par rapport à la colonne de saisie donc -1 = E par rapport à F, pour mettre le mois en C par rapport à la colonne F il convient de modifier comme ceci
Target.Offset(0, -3)
et pour avoir le mois en H
Target.Offset(0, 2)
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
4 oct. 2013 à 22:01
4 oct. 2013 à 22:01
Si tu n'arrives pas à adapter le code, pour saisir les données en colonne E et le mois en F
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Format(Date, "mmmm")
Else
Target.Offset(0, 1) = ""
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target <> "" Then
If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Format(Date, "mmmm")
Else
Target.Offset(0, 1) = ""
End If
End Sub
Black23
Messages postés
5
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
7 octobre 2013
7 oct. 2013 à 00:47
7 oct. 2013 à 00:47
Mike-31, Vaucluse, Juste pour vous dire merci. ça marche. vous m'enlevez une épine du pieds.
Merci encore
Merci encore
