Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Code de Feuille (macro)

Code de Feuille (macro)

11 réponses
Avatar
Daniel Campion
Bonjour à Tous.......( question de débutant )

Sous Windows XP familiale et Excel 2000

Est-ce possible de rentrer 1 valeur en colonne M et avoir la date du jour en
colonne O qui s'inscrit et ceci sur n'importe qu'elle ligne.

J'ai entendu parler de code feulle ( comment faire! )

Merci d'avance de vos réponses........?

Salutations....................Daniel Campion
Signaler un problème avec ce contenu

10 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
1 2
Avatar
LSteph
Bonjour Daniel,
clic droit sur onglet de la feuille ..visualiser code Coller ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then _
Target.Offset(0, 2) = Format(Now, "dd/mm/yyyy")

End Sub

'lSteph
"Daniel Campion" a écrit dans le message de news:
42ff6598$0$1209$
Bonjour à Tous.......( question de débutant )

Sous Windows XP familiale et Excel 2000

Est-ce possible de rentrer 1 valeur en colonne M et avoir la date du jour
en colonne O qui s'inscrit et ceci sur n'importe qu'elle ligne.

J'ai entendu parler de code feulle ( comment faire! )

Merci d'avance de vos réponses........?

Salutations....................Daniel Campion





Avatar
Daniel Campion
Bonsoir L.Steph.........

Formidable.? le code feuille a fonctionné du premier coup

J'avoue avoir jeté cette bouteille à la mer sans trop y croire, mais là, une
réponse positive et si rapidement,
chapeau pour vous Tous et particulièrement à L.Steph.

Cordialement.........Un Grand Merci.!......Daniel Campion


"Daniel Campion" a écrit dans le message de news:
42ff6598$0$1209$
Bonjour à Tous.......( question de débutant )

Sous Windows XP familiale et Excel 2000

Est-ce possible de rentrer 1 valeur en colonne M et avoir la date du jour
en colonne O qui s'inscrit et ceci sur n'importe qu'elle ligne.

J'ai entendu parler de code feulle ( comment faire! )

Merci d'avance de vos réponses........?

Salutations....................Daniel Campion





Avatar
Daniel Campion
Bonjour à Tous.............

Le format de date se présente comme ceci : 14/08/05
J'aimerais comme présentation : 14 Aout 2005

Est-ce possible d'ajouter cette fonction au code feuille, pour éviter le
formatage de toute la colonne O

Cordialement..........Merci d'avance......Daniel Campion


"Daniel Campion" a écrit dans le message de news:
430050cd$0$22299$
Bonsoir L.Steph.........

Formidable.? le code feuille a fonctionné du premier coup

J'avoue avoir jeté cette bouteille à la mer sans trop y croire, mais là,
une
réponse positive et si rapidement,
chapeau pour vous Tous et particulièrement à L.Steph.

Cordialement.........Un Grand Merci.!......Daniel Campion


"Daniel Campion" a écrit dans le message de news:
42ff6598$0$1209$
Bonjour à Tous.......( question de débutant )

Sous Windows XP familiale et Excel 2000

Est-ce possible de rentrer 1 valeur en colonne M et avoir la date du jour
en colonne O qui s'inscrit et ceci sur n'importe qu'elle ligne.

J'ai entendu parler de code feulle ( comment faire! )

Merci d'avance de vos réponses........?

Salutations....................Daniel Campion









Avatar
LSteph
Bonjour,

dans le code Remplace
Format(Now, "dd/mm/yyyy")
par
Format(Now, "dd mmmm yyyy")


a+

lSteph

"Daniel Campion" a écrit dans le message de news:
43005544$0$20253$
Bonjour à Tous.............

Le format de date se présente comme ceci : 14/08/05
J'aimerais comme présentation : 14 Aout 2005

Est-ce possible d'ajouter cette fonction au code feuille, pour éviter le
formatage de toute la colonne O

Cordialement..........Merci d'avance......Daniel Campion


"Daniel Campion" a écrit dans le message de news:
430050cd$0$22299$
Bonsoir L.Steph.........

Formidable.? le code feuille a fonctionné du premier coup

J'avoue avoir jeté cette bouteille à la mer sans trop y croire, mais là,
une
réponse positive et si rapidement,
chapeau pour vous Tous et particulièrement à L.Steph.

Cordialement.........Un Grand Merci.!......Daniel Campion


"Daniel Campion" a écrit dans le message de news:
42ff6598$0$1209$
Bonjour à Tous.......( question de débutant )

Sous Windows XP familiale et Excel 2000

Est-ce possible de rentrer 1 valeur en colonne M et avoir la date du
jour en colonne O qui s'inscrit et ceci sur n'importe qu'elle ligne.

J'ai entendu parler de code feulle ( comment faire! )

Merci d'avance de vos réponses........?

Salutations....................Daniel Campion













Avatar
AV
J'aimerais comme présentation : 14 Aout 2005


Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 13 Then Exit Sub
zz(1, 3) = Application.Proper(Format(Now, "dd mmmm yyyy"))
End Sub

AV

Avatar
michdenis
Bonjour AV,

| Application.Proper(Format(Now, "dd mmmm yyyy"))

Ceci provoque un affichage de la date à gauche de la cellule comme si c'était du texte ...
ce n'est qu'un léger détail !!!
Et qu'est-ce qui se passe si tu fais un double-clic dans la cellule ? Quoi ?

;-))


Salutations!




"AV" a écrit dans le message de news:
J'aimerais comme présentation : 14 Aout 2005


Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 13 Then Exit Sub
zz(1, 3) = Application.Proper(Format(Now, "dd mmmm yyyy"))
End Sub

AV

Avatar
AV
Ceci provoque un affichage de la date à gauche de la cellule comme si c'était
du texte ...

Ben voui c'est du texte car Proper est une fonction de texte mais comme le Mr a
l'air de vouloir une majuscule au nom du mois ....

Et qu'est-ce qui se passe si tu fais un double-clic dans la cellule ? Quoi ?
Pfff....C'est quoi un double-clic ?

Faut appuyer sur quel bouton ?

AV

Avatar
michdenis
Bonjour AV,


| C'est quoi un double-clic

Dans l'expression suivante de l'événement de la feuille de calcul
Worksheet_BeforeDoubleClick

DoubleClick -> ça te dit quelque chose ? ;-)

Et bien, si tu appliques cela à la cellule qui a reçu ledit format, elle ne le conserve pas.

Il faudrait avoir recours à ceci :

'------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String

If zz.Column <> 13 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True

End Sub
'------------------------------

Voilà !


Salutations!







"AV" a écrit dans le message de news: eFZh$
Ceci provoque un affichage de la date à gauche de la cellule comme si c'était
du texte ...

Ben voui c'est du texte car Proper est une fonction de texte mais comme le Mr a
l'air de vouloir une majuscule au nom du mois ....

Et qu'est-ce qui se passe si tu fais un double-clic dans la cellule ? Quoi ?
Pfff....C'est quoi un double-clic ?

Faut appuyer sur quel bouton ?

AV

Avatar
Daniel Campion
Bonsoir à Tous...........

Messieurs, Je vous remercie de vos réponses si instructives et après, vous
avoir lu tous les trois et fait des essais, j'ai l'impression que je vais
adopter la version de Mr. michdenis car effectivement, le commentaire de Mr.
AV sur la majuscule me convient parfaitement et fonctionne trés bien dans le
code feuille.

Cordialement........Grand Merci à Tous et particulièrement à vous
trois........Daniel Campion


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

Bonjour AV,


| C'est quoi un double-clic

Dans l'expression suivante de l'événement de la feuille de calcul
Worksheet_BeforeDoubleClick

DoubleClick -> ça te dit quelque chose ? ;-)

Et bien, si tu appliques cela à la cellule qui a reçu ledit format, elle
ne le conserve pas.

Il faudrait avoir recours à ceci :

'------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String

If zz.Column <> 13 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True

End Sub
'------------------------------

Voilà !


Salutations!







"AV" a écrit dans le message de news:
eFZh$
Ceci provoque un affichage de la date à gauche de la cellule comme si
c'était
du texte ...

Ben voui c'est du texte car Proper est une fonction de texte mais comme le
Mr a
l'air de vouloir une majuscule au nom du mois ....

Et qu'est-ce qui se passe si tu fais un double-clic dans la cellule ?
Quoi ?
Pfff....C'est quoi un double-clic ?

Faut appuyer sur quel bouton ?

AV






Avatar
AV
DoubleClick -> ça te dit quelque chose ? ;-)
Heu...non ..pas du tout mais je n'ai pas encore fini mes révisions !


Et bien, si tu appliques cela à la cellule qui a reçu ledit format, elle ne le
conserve pas.


Si, si elle le conserve !
.......................
Ha, au fait, je t'avais pas dit : dans le module de la feuille j'ai ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If zz.Column = 15 Then Cancel = True
End Sub
;-)
AV

1 2