bouton sur chaque feuille

[Philo]

bonjour
et il possible de mettre un bouton sur chaque feuille de janvier a décembre de lui attribuer une macro pour pouvoir cliquer dessus pour afficher la feuille recap annuel et d'avoir un bouton sur cette feuille (recap annuelle)pour revenir sur sur la feuille sur laquelle on a cliquer j’espère que je suis claire dans mes explication

merci par avance de se que vous pouvez faire et j'espere que cela est possble
PS je suis debutant

Amicalement

 

[phlaurent55]

Re : bouton sur chaque feuille

Bonjour Philo,

ton fichier en retour
j'ai mis un lien hypertexte sur chaque feuille de Janvier à Décembre

je te laisse découvrir le reste

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

tres beau travail
merci mais je voudrais que cette feuille recapitulatif annuelle reste masquer

 

[phlaurent55]

Re : bouton sur chaque feuille

Re,

voici fait

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

Un Très MERCI, RESPECT phlaurent55

 

[Philo]

Re : bouton sur chaque feuille

La je suis sur le bon fil
Erratum: c'est normal que sur n'importe quel feuille des que je fait un clics droit (je ne parle pas de se que tu as fait) je n'ai rien qui se passe et des que je suis sur ma feuille Récapitulatif Annuel et que je me deplacer avec les fleche du claviers quand j'arrive dans la cellule ou tu as ecrit clic ici automatiquement je retourne sur la feuille du mois ou j'etait

 

[phlaurent55]

Re : bouton sur chaque feuille

c'est normal que sur n'importe quel feuille des que je fait un clics droit (je ne parle pas de se que tu as fait) je n'ai rien qui se passe

tu peux corriger comme ceci:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F1")) Is Nothing Then
Cancel = True
    If Sh.Name <> "Paramètre" And Sh.Name <> "Récapitulatif Annuel" Then
    Sheets("Récapitulatif Annuel").[A1] = Sh.Name
    Sheets("Récapitulatif Annuel").Visible = -1
    Sheets("Récapitulatif Annuel").Select
    Sheets("Récapitulatif Annuel").Range("B1").Select
    End If
End If
End Sub

la ligne Cancel = True doit se trouver après "If Not Intersect(............

et des que je suis sur ma feuille Récapitulatif Annuel et que je me deplacer avec les fleche du claviers quand j'arrive dans la cellule ou tu as ecrit clic ici automatiquement je retourne sur la feuille du mois ou j'etait

dans l'état actuel, c'est normal mais tu peux remplacer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E19")) Is Nothing Then
feuille = [A1]
Sheets(feuille).Select
Sheets("Récapitulatif Annuel").Visible = 2
End If
End Sub

par:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E19")) Is Nothing Then
feuille = [A1]
Sheets(feuille).Select
Sheets("Récapitulatif Annuel").Visible = 2
End If
End Sub

il faudra alors faire un double-clic sur la cellule pour revenir à la feuille précédente

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

Je ne veut pas abusé mais tu peut me faire la modification

 

[phlaurent55]

Re : bouton sur chaque feuille

Re,

voici le fichier avec les modifs demandées
le retour à la feuille précédents se fait maintenant par double-clic

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

Merci encore une fois très beau travail et puis je suis preneur de toutes évolution, exemple page d'accueil avez des case a rempli avec date , kms, temps a r entrer et que sa s'inscrive sur le mois en cour

 

[phlaurent55]

Re : bouton sur chaque feuille

Re,

............... je suis preneur de toutes évolution, exemple page d'accueil avez des case a rempli avec date , kms, temps a r entrer et que sa s'inscrive sur le mois en cour

voilà, c'est fait

1 faire le choix de la date
2 saisir les km et valider par "ENTER"
3 saisir les heures et valider par "ENTER"
4 saisir les minutes et valider par "ENTER"
5 même chose pour les secondes
6 choisir l'option "Solo" ou "Club"

si heures=0 ou min=0 ou sec=0 faire simplement "ENTER"
par manque de temps je n'ai pas fait de contrôle sur la saisie des valeurs (minutes et secondes strictement inférieures à 60 et jamais inférieures à zéro)
je te laisse achever le boulot

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

super c'est se que je voulais il reste juste deux petites chose quand je rentre mes kms exemple 52,700 dans mon tableau ca me marque 52700,000 et dans mes Kms /h c'est pareille au lieu de 23,81 sa me marque 23805,25
et autre chose peut tu me le modifier que je puisse naviguer dans les autres feuille et quand je retourne sur l'onglet accueil que je puisse l'afficher pour entrer d'autre donner merci de se que tu pourras me faire

 

[phlaurent55]

Re : bouton sur chaque feuille

Re,

ton fichier en retour
en bonus, les tests d'entrées correctes
il ne faut pas utiliser la virgule mais le point décimal ( 57.200 et pas 57,200)

à+
Philippe

 

[Philo]

Re : bouton sur chaque feuille

Merci mais quand je rentre un oubli par exemple est il possible de pouvoir trier automatiquement et de mettre un les dates dans l'ordre chronologiques si tu voit se que je veut dire est je pense qu'apres mon tableau sera terminer avec un tres tres grand remerciement pour le travail que tu as porter a mon proges

 

[Philo]

Re : bouton sur chaque feuille

HOUPS VA FAIRE UN TOUR DANS MA FEUILLE RECAPITULATIF ANNUEL JE N'AI PLUS DE DONNER( Temps Parcours ANNUEL, Moyennes ANNUELLES, JE N'AI PLUS LE TOTALE DE MES KMS SOLO ET CLUB