1 Colonne par jour

[Phil 45]

Bonjour


J'expose le probleme :

Au bureau nous utilisons un fichier d'environ 50 onglets. Chaque onglet concerne un produit. Sur chaque page figure, le produit, un colonne avec les utilisateurs, et 31 colonnes correspondantes aux jours du mois.

Ce ne sont pas toujours les mêmes personnes qui utilisent le fichier, donc pas tous trés à l'aise avec l'outil informatique, et encore moins avec Excel

J'aimerai savoir, s'il est possible lors de l'ouverture du classeur que, quelque soit l'onglet, on arrive sur la colonnecorrespondant au jour. ( colonne du 17 si nous somme le 17 fevier)

J'ignore si c'est possible, mais j'ai vu tellement de choses extraordinaires ici que je me permet de m'en remettre aux experts du forum

Merci de ragarder mon petit problème

 

[Dranreb]

Re : 1 Colonne par jour

Bonjour,

J'aimerai savoir, s'il est possible lors de l'ouverture du classeur que, quelque soit l'onglet, on arrive sur la colonnecorrespondant au jour. ( colonne du 17 si nous somme le 17 fevier)

J'ignore si c'est possible, mais j'ai vu tellement de choses extraordinaires ici que je me permet de m'en remettre aux experts du forum

Oui c'est possible.
Piste: les évènements de ThisWorkbook.

 

[tbft]

Re : 1 Colonne par jour

Bonjour tout le monde

J'ajouterai

private sub Workbook_Open()
  'activation de la feuille
  Worksheet("nom de la feuille").Activate
  'selection de la cellule dans la feuille
  ActiveSheet.cells(numero_de_la_ligne, numero_de_la_colonne).Activate

Il reste a savoir comment déterminer le nom de la feuille et les coordonnées de la cellule à activer. Je n'ai pas compris comment l'on devait faire...désolé.

 

[JCGL]

Re : 1 Colonne par jour

Bonjour à tous,

Dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_Open()
With Sheets("Mois")
.Cells(7, CDbl(Format(Date, "dd")) + 1).Select
End With
End Sub

Ta ligne de Date en ligne de 6.
La cellule sélectionnée sera en ligne 7

A+ à tous

 

[Dranreb]

Re : 1 Colonne par jour

Bonjour tbft et JCGL.
Comme le confirment vos exemples, j'avais donc bien indiqué où il fallait aller apprendre à pêcher.

 

[Phil 45]

Re : 1 Colonne par jour

merci à tous de toutes vos informations je test ça lundi au bureau et je vous tiens informé

 

[Staple1600]

Re : 1 Colonne par jour

Bonjour à tos

JCGL: j'ai compris qu'il y avait 50 onglets
avec des colonnes dates dans chaque

Me trompe-je ?

 

[JCGL]

Re : 1 Colonne par jour

Bonjour à tous,
Salut l"Agrafe,

Tu as entièrement raison. Mais, et tu es le premier à le faire remarquer..., sans fichier la tentative de réponse est forcément générique.

Ceci dans le ThiWorkBook devrait convenir (donc à l'activation d'une feuille) :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveSheet.Cells(7, CDbl(Format(Date, "dd")) + 1).Select
End Sub

A++
A+ à tous