1 Colonne par jour

Phil 45 · 18 Février 2011

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 · 18 Février 2011

Re : 1 Colonne par jour

Bonjour,

Phil 45 à dit:
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 · 18 Février 2011

Re : 1 Colonne par jour

Bonjour tout le monde

J'ajouterai

Code:

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 · 18 Février 2011

Re : 1 Colonne par jour

Bonjour à tous,

Dans le ThisWorkBook :

Code:

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 · 18 Février 2011

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 · 19 Février 2011

Re : 1 Colonne par jour

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

Staple1600 · 19 Février 2011

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 · 19 Février 2011

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) :

VB:

Option Explicit

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

A++
A+ à tous

1 Colonne par jour

Phil 45

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

tbft

XLDnaute Accro

JCGL

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Phil 45

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Discussions similaires