positionnement automatique sur date du jour

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Juin 2008

• #2

Re : positionnement automatique sur date du jour

Bonjour

un exemple ci-joint

 

Pièces jointes

• Classeur1.xls

  35 KB · Affichages: 89
• Classeur1.xls

  35 KB · Affichages: 93
• Classeur1.xls

  35 KB · Affichages: 93

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 3 Juin 2008

• #3

Re : positionnement automatique sur date du jour

Bonjour,

Vois dans le bas à gauche de cette feuille.
Sous le premier lien il y a une macro de JB (dernier message).
Ouvre la pièce jointe et modifie une des dates en celle d'aujourd'hui.
Menu Outils / Macros / auto_open
Vois le résultat.

abcd

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2008

• #4

Re : positionnement automatique sur date du jour

Bonjour à tous,

Un peu plus court :

Code:

Private Sub Workbook_Open()
Cells(Application.Match(Date * 1, [A1:A400], 1), 1).Select
End Sub

A+

 

Pièces jointes

• Ouvre sur Date.zip

  8.7 KB · Affichages: 63

Vote positif 0 Vote négatif

2

2frey

XLDnaute Junior

• 3 Juin 2008

• #5

Re : positionnement automatique sur date du jour

Encore mille merci ,

Vous avez de nouveau fait de mes reves une réalité ...

comme d'habitude ...

Bonne journée a vous.

 

Vote positif 0 Vote négatif

2

2frey

XLDnaute Junior

• 3 Juin 2008

• #6

Re : positionnement automatique sur date du jour

Oups , de retour

J'essai de tester vos codes sur mon planning mais cela ne passe pas ..et je ne sais pas d'ou ca vient ...
Je pense que c'est parce que j'ai 4 feuilles.

- Sur le code de pascal , j'ai essayé de rajouter la boucle pour les feuilles 2 , 3 et 4 mais ca passe pas ...

- Sur le code de JCGL , je ne connait pas la modif a faire pour que ce code puisse s'appliquer a toutes mes feuilles

Désolé de vous embeter encore

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2008

• #7

Re : positionnement automatique sur date du jour

Bonjour à tous,

Place la ligne de code dans le module de la feuille (des feuilles...)

Code:

Private Sub Worksheet_Activate()
Cells(Application.Match(Date * 1, [A1:A400], 1), 1).Select
End Sub

A chaque activation d'une feuille le code se déclenchera

A+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Juin 2008

• #8

Re : positionnement automatique sur date du jour

Re

Mon code modifié

 

Pièces jointes

• Classeur1.xls

  62 KB · Affichages: 75
• Classeur1.xls

  62 KB · Affichages: 88
• Classeur1.xls

  62 KB · Affichages: 83

Vote positif 0 Vote négatif

2

2frey

XLDnaute Junior

• 3 Juin 2008

• #9

Re : positionnement automatique sur date du jour

merci ...ca marche a merveille ...

 

Vote positif 0 Vote négatif