[Résolu] Lier un spin button à une plage de données se trouvant sur un autre feuille

[Gecko62]

Bonjour,

J'aimerais lier un spin button à une plage de données se trouvant sur une autre feuille du classeur (contenant uniquement des nombres entiers, dans l'ordre croissant mais non consécutifs).
à chaque clic sur l'un des deux flèches cela devrait passer à la cellule précédente voire suivante.
Je ne trouve pas la solution.

Les valeurs min et max doivent aussi être fixées de manière dynamique en fonction du contenu de la plage de cellules

Dans le fichier joint la cellule liée au SpinButton est la cellule G1 de la feuille AfficheFiche

La plage de données à associer se trouve dans la colonne AE (cellules bleues) de la feuille Accueil

Un grand merci pour votre aide

 

[pierrejean]

Re : Lier un spin button à une plage de données se trouvant sur un autre feuille

Bonjour Gecko62

Modifier la cellule liée au Compteur (par exemple L1) et mettre la macro suivante dans un Module

Sub Compteur1_QuandChangement()
Range("G1") = Sheets("Accueil").Range("AE" & ActiveSheet.Range("L1"))
End Sub

 

[Modeste geedee]

Re : Lier un spin button à une plage de données se trouvant sur un autre feuille

Bonsour®
un spinbutton ne peut contenir qu'une séquence de nombre à pas fixe
pour obtenir une liste de nombres à pas variés il faut faire une indexation sur cette liste
ou bien
alimenter une listboxe contenant ces nombres variables

nb:
à mon sens le N° de fiche doit être généré ou calculé lors de la création ou ajout de fiche
utiliser une définition dynamique des plages nommées via l'instruction DECALER ( en VBA .offset)
il est inutile de formater 6000 lignes à l'avance !!!
ton fichier y gagnera en taille et temps d'exécution...

 

[Gecko62]

Re : Lier un spin button à une plage de données se trouvant sur un autre feuille

Un grand merci à PierreJean,

la solution proposée fonctionne parfaitement sans que j'ai compris ce quelle fait exactement

Une fois encore merci à vous deux pour votre réactivité

Bien cordialement

 

[pierrejean]

Re : [Résolu] Lier un spin button à une plage de données se trouvant sur un autre feu

Re

pour une limitation automatique
mettre dans le module de la feuille AfficherFiche

Private Sub Worksheet_Activate()
 nb = Sheets("Accueil").Range("AE" & Rows.Count).End(xlUp).Row
 ActiveSheet.Shapes("Spinner 1").Select
 Selection.Max = nb
End Sub