Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Date dans cellule, ou se trouve le curseur

Date dans cellule, ou se trouve le curseur

8 réponses
Avatar
DC
Bonjour à tous,

J'aimerais avec une macro, pouvoir en l'éxécutant mettre la date du jour au
format " 31 octobre 2005 " dans la cellule ou se trouve le curseur, (
adresse relative )

Et ensuite déplacer le curseur, de 2 cellules à gauche et 5 cellules vers le
bas.........( fin de la macro ),

Salutations!.............Merci d'avance.............DC
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
jb
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB
Avatar
DC
Bonjour à tous........................Bonjour jb,
'---------------------------
Sub Date_du_Jour()

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

End Sub
'----------------------------
La cellule en question reste blanche, ( pas de date ),

par contre le cuseur se déplace bien en fin de macro,

Cordialement!..............Merci d'avance.............DC

"jb" a écrit dans le message de news:

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB



Avatar
jb
Je pensais que la date était dèjà présente:

Sub Date_du_Jour()
ActivecellÚte ' date du jour ou Now pour
date/heure
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select
End Sub

JB
Avatar
AV
Sub zzz()
With ActiveCell
.Value = Format(Date, "dd mmmm yyyy")
.Offset(5, -2).Select
End With
End Sub

AV
Avatar
ChrisV
Bonjour DC,

Sub Date_du_Jour()
On Error Resume Next
With ActiveCell
.Value = Format(Date, "dd mmmm yyyy")
.Offset(5, -2).Select
End With
End Sub


ChrisV


"DC" a écrit dans le message de news:
43661885$0$27408$
Bonjour à tous........................Bonjour jb,
'---------------------------
Sub Date_du_Jour()

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

End Sub
'----------------------------
La cellule en question reste blanche, ( pas de date ),

par contre le cuseur se déplace bien en fin de macro,

Cordialement!..............Merci d'avance.............DC

"jb" a écrit dans le message de news:

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB







Avatar
DC
Bonjour à tous.............Bonjour.... jb.......AV........ChrisV,

Merci à vous tous pour vos réponses, rapides et positives,

J'ai choisi la solution de jb, pour une raison complémentaire,

Je peux utiliser cette date, format "31 octobre 2005" dans ce classeur, et
la recopier, format "31/10/05" dans un autre classeur de récap,

Autrement le copier se fait, format " 31 octobre 2005 " et çà pose
problème...........Bonne journée........Merci à vous trois...!!

Salutations!..............Merci d'avance.............DC


ChrisV" a écrit dans le message de news:

Bonjour DC,

Sub Date_du_Jour()
On Error Resume Next
With ActiveCell
.Value = Format(Date, "dd mmmm yyyy")
.Offset(5, -2).Select
End With
End Sub


ChrisV


"DC" a écrit dans le message de news:
43661885$0$27408$
Bonjour à tous........................Bonjour jb,
'---------------------------
Sub Date_du_Jour()

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

End Sub
'----------------------------
La cellule en question reste blanche, ( pas de date ),

par contre le cuseur se déplace bien en fin de macro,

Cordialement!..............Merci d'avance.............DC

"jb" a écrit dans le message de news:

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB











Avatar
ChrisV
Re,

J'ai choisi la solution de jb...


No problemo ! ;-)
Essaie seulement de lancer la macro alors que la cellule active se trouve en
colonne A ou B et/ou dans n'importe quelle colonne en ligne 65532...

;-)


ChrisV


"DC" a écrit dans le message de news:
436628bf$0$7870$
Bonjour à tous.............Bonjour.... jb.......AV........ChrisV,

Merci à vous tous pour vos réponses, rapides et positives,

J'ai choisi la solution de jb, pour une raison complémentaire,

Je peux utiliser cette date, format "31 octobre 2005" dans ce classeur, et
la recopier, format "31/10/05" dans un autre classeur de récap,

Autrement le copier se fait, format " 31 octobre 2005 " et çà pose
problème...........Bonne journée........Merci à vous trois...!!

Salutations!..............Merci d'avance.............DC


ChrisV" a écrit dans le message de news:

Bonjour DC,

Sub Date_du_Jour()
On Error Resume Next
With ActiveCell
.Value = Format(Date, "dd mmmm yyyy")
.Offset(5, -2).Select
End With
End Sub


ChrisV


"DC" a écrit dans le message de news:
43661885$0$27408$
Bonjour à tous........................Bonjour jb,
'---------------------------
Sub Date_du_Jour()

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

End Sub
'----------------------------
La cellule en question reste blanche, ( pas de date ),

par contre le cuseur se déplace bien en fin de macro,

Cordialement!..............Merci d'avance.............DC

"jb" a écrit dans le message de news:

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB















Avatar
DC
Bonsoir à tous............................Bonsoir....ChrisV

J'ai eu du mal à comprendre ou tu voulais en venir, mais aprés plusieur
essais, je crois avoir compris,

C'est la partie de déplacement du curseur, à qui il faut l'espace
néscessaire pour que la macro s'éxécute complètement,

Mais dans mon cas çà ne pose pas de problème,

Merci...!..... de m'instruire........çà aide bien...!!

Cordialement..........encore un grand Merci...!............DC

"ChrisV" a écrit dans le message de news:

Re,

J'ai choisi la solution de jb...


No problemo ! ;-)
Essaie seulement de lancer la macro alors que la cellule active se trouve
en colonne A ou B et/ou dans n'importe quelle colonne en ligne 65532...

;-)


ChrisV


"DC" a écrit dans le message de news:
436628bf$0$7870$
Bonjour à tous.............Bonjour.... jb.......AV........ChrisV,

Merci à vous tous pour vos réponses, rapides et positives,

J'ai choisi la solution de jb, pour une raison complémentaire,

Je peux utiliser cette date, format "31 octobre 2005" dans ce classeur,
et la recopier, format "31/10/05" dans un autre classeur de récap,

Autrement le copier se fait, format " 31 octobre 2005 " et çà pose
problème...........Bonne journée........Merci à vous trois...!!

Salutations!..............Merci d'avance.............DC


ChrisV" a écrit dans le message de news:

Bonjour DC,

Sub Date_du_Jour()
On Error Resume Next
With ActiveCell
.Value = Format(Date, "dd mmmm yyyy")
.Offset(5, -2).Select
End With
End Sub


ChrisV


"DC" a écrit dans le message de news:
43661885$0$27408$
Bonjour à tous........................Bonjour jb,
'---------------------------
Sub Date_du_Jour()

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

End Sub
'----------------------------
La cellule en question reste blanche, ( pas de date ),

par contre le cuseur se déplace bien en fin de macro,

Cordialement!..............Merci d'avance.............DC

"jb" a écrit dans le message de news:

Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB