Des dates encore des dates

[LeSansNom]

Bonjour a tous et à toutes,

Je souhaite créer un classeur avec les caractéristiques suivantes :

1. Ouverture du classeur
2. La feuille 1 en "A2" trouver la date du jour
3. Le lendemain on ouvre le classeur de nouveau et en "A3" s'inscrit la date du jour tout en gardant la date d'hier en "A2".
Ainsi de suite Mais la feuille 1 ne peut enregistrer de nouvelles dates au delà de la fin d'un mois et dans ce cas il faut basculer sur la feuille2 pour creer le même processus avec le nouveau mois tout en nommant les feuilles avec le mois correspondant ...

Ouffff j'espère que j'ai été clair, je vais abuser un peu si vous pouvez mettre quelques commentaires pour expliquer les processus les plus complexes histoire que je ne meur pas idiot.

😎😎

 

[phlaurent55]

Re : Des dates encore des dates

Bonjur lesansnom,

voir fichier joint

pour les explications, je reviens demain ......trop occupé en ce moment

à+
Philippe

 

[LeSansNom]

Re : Des dates encore des dates

Merci Phlaurent55, pour ta rapidité mais ton fichier ne correspond pas trop à mon exemple. il s'affiche sur feuille 5 avec deux fois la date du jour sans nommer la feuille correspondante. Je continue à me triturer le cerveau de mon côté , peut être vais avoir un éclair de génie Hummm Hummm

 

[phlaurent55]

Re : Des dates encore des dates

@ car............. ( le requin)

bonsoir
salutations phlaurent55🙂

@phlaurent55
juste pour t’embêter😀🙄
😕 pas de déclarations de variables 😕

c'est vrai que je n'en met pratiquement jamais .................
................... je vais essayer de me corriger 😱

à+
Philippe

 

[phlaurent55]

Re : Des dates encore des dates

Re,

peut être vais avoir un éclair de génie

le premier éclair qui aurait du te venir c'est tout d'abord de renommer les feuilles Janvier, Février, M ...................

il s'affiche sur feuille 5 avec deux fois la date du jour

Feuille 5, c'est parce qu'on est en mai
et deux fois la date (et l'heure):
pour la première c'est à l'heure où j'ai ouvert le fichier
pour la seconde, cet à l'heure où tu as ouvert le fichier

à+
Philippe

 

[LeSansNom]

Re : Des dates encore des dates

Re,
le premier éclair qui aurait du te venir c'est tout d'abord de renommer les feuilles Janvier, Février, M ................... Feuille 5, c'est parce qu'on est en mai
et deux fois la date (et l'heure):
pour la première c'est à l'heure où j'ai ouvert le fichier
pour la seconde, cet à l'heure où tu as ouvert le fichier

à+
Philippe

C'est pas un éclair c'est un coup de foudre qu'il me faut.

Merci

 

[Robert]

Re : Des dates encore des dates

Bonsoir le fil, bonsoir le forum,

En pièce jointe un fichier commenté avec la macro événementielle Open dans le composant ThisWorkbook. La macro se déclenche à l'ouverture du classeur.

 

[LeSansNom]

Re : Des dates encore des dates

Bonsoir le fil, bonsoir le forum,

En pièce jointe un fichier commenté avec la macro événementielle Open dans le composant ThisWorkbook. La macro se déclenche à l'ouverture du classeur.

Wooow super boulot merci à vous, je vais étudier ta démarche Robert et tenter d'en tirer enseignement

 

[LeSansNom]

Re : Des dates encore des dates

Robert,

Juste une question je vois souvent ce terme Range("A65536") pourquoi définir jusqu'a 65536 désolé c'est peut être une question de novice mais ça me turlupine 😛

 

[phlaurent55]

Re : Des dates encore des dates

Re,
Bonjour Robert, le forum

Juste une question je vois souvent ce terme Range("A65536") pourquoi définir jusqu'a 65536 désolé c'est peut être une question de novice mais ça me turlupine

65536 est le nombre de lignes d'une feuille dans la version Excel 2003
Pour la version 2007 il y en a 1.048.576

concernant les colonnes:
256 pour la version 2003
16384 pour la version 2007


voir en pièce jointe une autre version

à+
Philippe

 

[Robert]

Re : Des dates encore des dates

Bonjour le fil, bonjour le forum,

pour compléter les explications de Philippe, je dirais que pour atteindre la dernière cellule éditée d'une colonne on peut :
• Sélectionner la première cellule éditée de la colonne de la colonne, appuyer sur la touche [Fin], puis sur la Flèche vers le bas. Ce qui se traduit en VBA par :

Range("A1").End(xlDown).Select

l'inconvénient c'est que, s'il y a une cellule vide au milieu, ce n'est pas la dernière cellule éditée de la colonne qui va être sélectionnée mais celle juste avant le trou... on peut alors :
• Sélectionner la derniere cellule de la colonne, appuyer sur la touche [Fin], puis sur la Flèche vers le haut. Ce qui se traduit en VBA par :

Range("A65536").End(xlup).Select

C'est pour cela que tu retrouves dans beaucoup de code fait sous Excel 2003 ce fameux 65536... Ajourd'hui pour être compatible avec les différentes versions tu risques de trouver :

Cells(Application.Rows.Count, 1).End(xlUp).Select

où 1 est le numéro de colonne à adapter...

 

[LeSansNom]

Re : Des dates encore des dates

Merci beaucoup à vous deux ça devient plus limpide. J'avais effectivement regardé si cela correspondait à la totatlié des cellules dans une colone mais tournant sous Excel 2011 j'arrivais à 10 048 576 comme celle de 2007 si je ne me trompe pas, d'ou mon interrogation, en revenche je note le :

Cells(Application.Rows.Count, 1).End(xlUp).Select

Encore merci pour votre réactivité et votre compétence