XL 2016 Une toupie pour les numéros de semaine

[GeoTrouvePas]

Bonjour tout le monde,

Je tourne en rond depuis quelques jours sur un problème et je me vois contraint de solliciter votre aide.

Je veux afficher dans une cellule le numéro de la semaine sous la forme "Semaine n°52 - 2016", faire varier cette donnée à l'aide du bouton Toupie et affiche la date du premier jour de cette semaine dans une 2ème cellule.

Mon plus gros soucis est que le choix de l'utilisateur ne doit pas pouvoir dépasser une date mini et une date maxi.

Sauriez vous comment procéder ?

Je vous remercie par avance de votre aide et je joins un petit fichier test.

 

[Efgé]

Bonjour GeoTrouvePas

Une proposition en utilisant les propriété de la toupie et une formule.

Cordialement

 

[GeoTrouvePas]

Merci pour ton aide Efgé !

La partie numéro de semaine et date correspondante ont l'air de fonctionner parfaitement.
Le seul soucis c'est que le blocage en fonction des dates limites ne semble pas marcher.

 

[Efgé]

Re
Les min et max sont bloqués dans les propriétés de la toupie.
Si tu veux le faire dynamiquement on peux choisir

soit de la faire au changement de dates en B1 et B2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Or Target.Address <> "$B$2" Then Exit Sub
With Me.SpinButton1
  .Min = CLng(Range("$B$1"))
  .Max = CLng(Range("$B$2"))
End With
End Sub

soit au moment ou l'on clic sur la toupie.

Private Sub SpinButton1_GotFocus()
With SpinButton1
  .Min = CLng(Range("$B$1"))
  .Max = CLng(Range("$B$2"))
End With
End Sub

Les codes (un des deux ou les deux) sont a mettre dans le module de la feuille concernée.

Cordialement

 

[GeoTrouvePas]

Toutes mes excuses, je n'avais pas vu.
Les bornes ne seront pas modifiées régulièrement, je peux donc me permettre de les saisir directement dans les proriétés de la toupie.

Un grand merci pour ton aide