Probléme d'ouverture et positionnement sur un tableau

Rebonjour tout le monde.

J'ai quelques petits problèmes avec un ancien fichier.

1) il s'ouvre sur la feuille "janvier" alors que j'aimerais qu'il s'ouvre sur la feuille "Saisies" et qu'il tienne compte de la feuille du mois en cours pour l'enregistrement

2) Sur la feuille "Saisies" j'aimerais qu'il se positionne automatiquement en fonction de l'heure sur
les cellules "Q5 Q6 Q7"

3) quand je type sur mois en cours dans la saisie, il se positionne toujours faux

Je remercie d'avance la personne qui aura la gentillesse de me faire cette modification dans mon fichier joint

bonjour Michel.Clausen,

vos questions sont assez vagues, donc un essai

voir macro "workbook_open" in "ThisWorkbook" et "Sheet_Activate" dans le module de "Saisies"

Ça va déjà mieux mais :

Quand j'ouvre le fichier, il s'ouvre sur la feuille février, mais j'aimerais qui il s'ouvre sur la feuille saisie
lors de l'enregistrement, il n'enregistre pas le poids et commentaire

Merci BsAiV

re,

un nouveau essai

Bonjour,

En ce qui me concerne, lorsque j'ouvre ton ficher iil s'ouvre bien sur la feuille "Saisies"
Et quand je clique sur "Mois en cours", j'ouvre bien le mois en cours
Donc je ne comprends pas très bien le problème

Voilà le résultat le calcul journalier est c

omplètement faaux maintenant

re,

je n'ai aucune idée comment ce fichier est supposé de fonctionner, donc j'ai fait un proposition, apparament faux, donc, il faut me donner l'explication.

Voila la dernière version que j'utilise.

La relation entre la saisie des cases Q6-7-8 fonctionne avec la table Médecin

Par contre l'application s'ouvre toujours sur la feuille JANVIER alors qu'elle devrait s'ouvrir

1) sur la feuille février

2) positionnement de la saisie dans la table calcul journalier

Jusqu'à 9:00 en "Q6" a partir de midi en "Q7" et a partir de 19:00 en Q8

J'avais un code comme cela dans ma dernière version

Private Sub GoCellDay()
Dim C As String

With ActiveSheet
' Vérifiez l'heure pour définir la cellule cible
If Time < .[I3] Then
C = "Q6"
ElseIf Time < .[K3] Then
C = "Q7"
Else
C = "Q8"
End If

' Sélectionnez la cellule directement en utilisant Range
.Range(C).Select
End With
End Sub

Il semble que c'est le code dans le worlbook qui a des problèmes

EDIT Modo : Comme déjà signalé dans un autre post, merci de poster vos codes en cliquant au préalable sur l'icone </> dans la barre de menu.

Merci, ça commence à fonctionner.

Les saisies avec le tableau fonctionnent maintenant

Problème

À l'ouverture du fichier, toujours pas sur la feuille saisie
Phénomène bizarre Quand j'ouvre le fichier, il s'ouvre une milliseconde sur la feuille saisie et commute directement sur février

Quand je clique sur "mois en cours" sur la feuille saisie, ça ne fonctionne pas. (je ne sais pas où se trouve le code)
il s'ouvre toujours sur janvier

Il n'enregistre pas "commentaires".

soyons sérieux,

en ouvrant le fichier, le but était d'activer la feuille du mois, non ?

et quand on active la feuille "Saisies" qu'on sélectionne une cellule de Q6:Q8 dépendant de l'heure.

Il n'y a pas un bouton "Mois en cours" dans "Saisies", juste la cellule V3 avec un lien vers "janvier"

Bon, vous voulez dire le bouton "enregistrer" ?

Non dans la pratique quand on oeuvre le fichier c,est pour saisir le taux de glycemic. On va dans le mois en cord pour voir les statitiques

remplacer "Workbook_open" dans Thisworkbook avec ceci

Private Sub Workbook_Open()
     With Sheets("Saisies")
          If StrComp(ActiveSheet.Name, .Name, 1) = 0 Then Sheets(2).Activate     'choisir la 2eme feuille (pour provoquer les évenements
          .Activate                          'pour finalement choisir "Saisies"
     End With
End Sub

Super, c'est parfait comme ça Merci encore