XL pour MAC Créer des index pour déplacement rapide sur la même feuille

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Octobre 2022

• #2

Bonjour @CM1090 ,

Et un petit fichier exemple, c'est trop demandé ?

edit : bonjour @Lolote83 .

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 25 Octobre 2022

• #3

Bonjour @CM1090 ,
Je ne sais pas si je pourai t'aider, mais une chose est sûre, sans fichier joint (sans données confidentielles) d'autres tourneront la page car il est difficile de donner une réponse actuellement
Cordialement
@+ Lolote83

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #4

Bonjour le fil

Mon calendrier va de 2022 à 2032 (colonnes). Je souhaiterais pouvoir accéder en 2022 comme en 2032 ou 2028

Cliquez pour agrandir...

[l'instant Nostradamus]
En 2032, Excel sera un vieux souvenir.
En 2028, l'informatique sera revenue aux tablettes d'argile.
[/l'instant Nostradamus]

@CM1090
Mais pour le présent, je plussoie!
Fais péter, le fichier exemple

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2022

• #5

Bonjour chacune, chacun et tous

Hier j'ai participé à ça qui pourrait répondre en partie, si j'ai bien compris.

Bonne nuit chacune, chacun et tous

 

Vote positif 0 Vote négatif

C

CM1090

XLDnaute Nouveau

• 25 Octobre 2022

• #6

Hahahaha @Staple1600 !
A la demande générale, voici un bout de fichier !

 

Pièces jointes

• Ex Calendrier.xlsm

  136.5 KB · Affichages: 11

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2022

• #7

Re,

J'ai ouvert le fichier, ça ressemble bien à ce que j'ai fait hier, essayez de l'adapter.

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #8

@Hasco
Ce que vous avez fait hier, c'est votre vie privée, Monsieur HASCO
Mais pour nous souhaiter la bonne nuit à 16h41, j'imagine bien de quoi votre hier a été peuplé.
Je vous prie d'agréer, Monsieur, mes requêtes puissantes les plus avancées (merci l'éditeur)

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2022

• #9

Staple1600 à dit:

Je vous prie d'agréer, Monsieur

Cliquez pour agrandir...

J'agrée, j'agrée Monsieur L'agrafe mais c'est bien parce que c'est vous.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #10

Re

J'ai ouvert le fichier
Je n'aurais pas dû.

Car un cri d'effroi est sorti d'en dedans de moi.
(Quand j'ai vu les 25 modules dans le projet VBA )

[Pour infos]
Dans le module2, il y a un intru
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$8" Then copie (Target)
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #11

Re

Un dernier conseil (pour la route)
Je dois partir quérir quelques nourritures et boissons
Eviter autant que faire se peut les Select et Activate
Exemple: une de tes macros sans Select

VB:

Sub Delta()
' Delta Macro | Calcul Delta devis-facture
With Range("V11")
    .FormulaR1C1 = "=IF(RC[-4],RC[-4]-RC[-1],0)"
    .NumberFormat = "#,##0.00 [$CHF-fr-CH];[Red]-#,##0.00 [$CHF-fr-CH];""Pas de facture !"";@"
End With
End Sub

 

Vote positif 0 Vote négatif

C

CM1090

XLDnaute Nouveau

• 25 Octobre 2022

• #12

Désolé pour la multitude de macros ... ça fait partie d'autres choses ... (mon côté organisé ...).

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2022

• #13

Re,

Et où en êtes-vous de votre demande, vous avez essayé quelque chose sur la base du lien donné en post#5

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #14

Re

Ca y je me suis ressaisi
J'ai bu deux verveines corsées

Mais c'est plus simple quand le fichier exemple ne contient que le nécessaire pour illustrer le problème rencontré.

A présent, je laisse mes petits camarades de jeu prendre le relais

(Faut que j'aille aux commissions, avec mon petit caddie à roulettes)
Oui c'est ma part du colibri pour la planète.

 

Dernière édition: 25 Octobre 2022

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Octobre 2022

• #15

Bonsoir à @CM1090 ,
Bonsoir @Lolote83, @Staple1600 (parti faire ses commissions), @Hasco (déjà couché) ,

Un fichier simplifié et remanié car une présentation du calendrier qui ne me convenait pas :

• tous les modules ont été supprimés (fichier plus concis et suffisant pour répondre à la demande)
• le calendrier a été un peu réorganisé pour qu'au niveau de chaque colonne on voit précisément l'année, le mois, le type de jour et le numéro du jour ainsi que le numéro de semaine.
• des MFC (for peu) colorent les en-têtes du calendrier de telle sorte que chacun des blocs (année / mois / semaine) ait une couleur différente du bloc adjacent

Le principe : à partir de l'année et du mois, on calcule le décalage à faire par rapport à la colonne de base K.

L'année sera saisie à la main (2 ou 4 chiffres) ou sélectionnée dans la liste déroulante (2 ou 4 chiffres)
Le mois sera saisi à la main (de 1 à 12) ou sélectionné dans la liste déroulante.

Le code dans le module de la feuille est :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d
   If Not Intersect(Target, Range("i3:i4")) Is Nothing Then
      d = DateSerial(2000 + (Range("i3") Mod 100), Range("i4"), 1) - Range("k11")
      If d >= 0 Then Application.Goto Range("k1").Offset(, d), True
   End If
End Sub

 

Pièces jointes

• CM1090- Calendrier- v1a.xlsm

  49.1 KB · Affichages: 3

Dernière édition: 25 Octobre 2022

Vote positif 0 Vote négatif