Date dans cellule, ou se trouve le curseur

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jb
Le #3244791
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB
DC
Le #3244551
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"
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB



jb
Le #3244531
Je pensais que la date était dèjà présente:

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

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

AV
ChrisV
Le #3244501
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" 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"
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB







DC
Le #3244351
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"
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" 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"
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB











ChrisV
Le #3244301
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" 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"
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" 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"
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB















DC
Le #3243981
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"
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" 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"
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" 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"
Activecell.NumberFormat = "dd mmmm yyyy"
Activecell.offset(5,-2).Select

JB



















Publicité
Poster une réponse
Anonyme