Date du jour pour référence

Bonsoir le forum,

Encore besoin de vous, un petit fichier joint avec les explications.

Merci de votre aide

Cordialement

Gérard

31forum2.zip (4.02 Ko)

Bonjour,

regarde les formules en E10 et E11 et dis moi si j'ai bien compris ton besoin.

Amicalement,

Elfi

25forum2-2.zip (4.08 Ko)

Bonjour plabrousse ,

Merci pour ton aide, mais ces un peut plus compliqué, je te rejoint le fichier

Amicalement,

Gérard

21forum2-3.zip (6.57 Ko)

Bonjour,

clique droite sur l'onglet puis choisis "visualiser le code". Colle le code ci-dessous dans la fenetre :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B65536").End(xlUp)) Is Nothing Then
Target.Offset(0, 3) = Format(Now, "dd/mm/yyyy")
End If
End Sub

Amicalement

Rebonjour, avec mes excuses,

je me disais bien aussi que c'était trop simple.

Amicalement,

Elfi

Bonsoir Dan, Plabrousse,

Merci pour ton code exactemnt cela, mais quand je veux le transposer sur ma vrai feuille de mon projet à rien ne vas plus ,il y aurait-il ne petite astuce que je n'ai pas capté.

Merci encore pour ton aide

Amicalement

Gérard

Bonsoir

Le code en place sans le fichier joint

un cas possible d'erreur, tu as une ligne remplie sous ton tableau.

Cordialement

25forum2-3.zip (9.03 Ko)

Bonsoir Amadéus,

Exact, alors est-il possible de lui donner un point de départ à ce code exemple B9, cela m'éviterais de refaire toutes mes feuilles en gros une trentaine.

Vous êtes tous vraiment formidable,

merci pour ton analyse

Gérard

Re,

PAs sur d'avoir compris ... peut être en changeant cette ligne dans le code ?

If Not Intersect(Target, Range("B9:B" & Range("B65536").End(xlUp))) Is Nothing Then

A te relire

Bonjour

Peut-être en définissant la plage en colonne D?

Cordialement

14forum2-4.zip (7.22 Ko)

Bonsoir Dan, Amadéus,le Forum,

Merci pour vos codes qui me vont trés bien, pour fignoler la 1er partie,je vous joint 2 fichiers qui sont dans le même dossier,(je sais pas si c'est possible d'evoyer un dossier)je pense que vous devraient refaire les chemins mais ça vous maitriser mieux que moi!!!!

Voilà est-il possible de ne pas voire la macro se dérouler,je sais pas si je m'exprime bien, en faisant un test je pense que vous comprendraient.

Je vais créer plusieurs fichiers, là l'exemple "Tournoi de Pétanque nocturne" d'autres vont se rajouter et faudrait que tous viennent s'incrémentés dans le fichier "Hotesse".

Si vous avez quelques suggestions je suis preneur

Merci à tous

Gérard

18hotesse.zip (8.91 Ko)

Bonjour le FORUM

paludot a écrit :

Voilà est-il possible de ne pas voire la macro se dérouler

Lors de l'exécution de la macro, à l'écran, on devine la macro, manque t-il quelque chose à la macro ?

Merci de votre aide

Gérard

re,

En debut de macro mets ceci :

Application.screenupdating=False

Amicalement

Bonjour Dan,

Merci et fin de la première partie

Amicalement

Gérard

Rechercher des sujets similaires à "date jour reference"