XL 2016 SpinButton et Plage Nommée

[AlphaOne]

Bjr le forum,
Étant novice en VBA, je cherche a créer un code qui me permettrai dans une cellule B3 de faire défiler une plage nommé (disons "Liste") a l'aide d'un SpinButton ?
Possible ?
Bye

 

[danielco]

Bonjour,
Pourquoi une macro ? Dans le classeur joint, j'ai utilisé la cellule B2 comme cellule liée.
Daniel

 

[job75]

Bonjour AlphaOne, danielco,

Le code du SpinButton :

Private Sub SpinButton1_Change()
Dim s As Shape
[B3].Select
For Each s In Me.Shapes
    If s.TopLeftCell.Address = ActiveCell.Address Then s.Delete
Next
If SpinButton1 = 0 Then Exit Sub
[Liste].Cells(SpinButton1).CopyPicture
Paste
ActiveCell.Activate
End Sub

A+

 

[job75]

Pour faire fonctionner la toupie dans l'autre sens utiliser :

Private Sub SpinButton1_Change()
Dim s As Shape
[B3].Select
For Each s In Me.Shapes
    If s.TopLeftCell.Address = ActiveCell.Address Then s.Delete
Next
SpinButton1.Max = [Liste].Count
If SpinButton1 = SpinButton1.Max Then Exit Sub
[Liste].Cells(SpinButton1.Max - SpinButton1).CopyPicture
Paste
ActiveCell.Activate
End Sub

 

[job75]

Avec mes fichiers précédents on remarquera que si l'on exécute la commande Coller par Ctrl+V la dernière image copiée se colle sur la cellule active.

Pour éviter ce collage il faut vider le presse-papiers :

Private Sub SpinButton1_Change()
Dim s As Shape
[B3].Select
For Each s In Me.Shapes
    If s.TopLeftCell.Address = ActiveCell.Address Then s.Delete
Next
SpinButton1.Max = [Liste].Count
If SpinButton1 = SpinButton1.Max Then Exit Sub
[Liste].Cells(SpinButton1.Max - SpinButton1).CopyPicture
Paste
ActiveCell.Activate
[A1].Copy [A1] 'vide le presse-papiers
End Sub

 

[AlphaOne]

Bonjour à Tous
merci pour ces codes, cependant, Job, pourquoi utilises tu CopyPicture et shapes ? ma liste ne contient que du texte ? peux tu faire sans ? basic ?

 

[job75]

Bonjour,

peux tu faire sans ? basic ?

Avec les Shapes les formats sont copiés.

Si vous n'en voulez pas utilisez la solution de danielco.

A+

 

[Goose]

Merci mais peut-on faire sans les formats avec du VBA ?

 

[job75]

Hello Goose,

Merci mais peut-on faire sans les formats avec du VBA ?

Comme l'a dit danielco dans ce cas pas besoin de VBA mais bon :

Private Sub SpinButton1_Change()
[B3].Select
SpinButton1.Max = [Liste].Count
ActiveCell = ""
If SpinButton1 < SpinButton1.Max Then ActiveCell = [Liste].Cells(SpinButton1.Max - SpinButton1)
End Sub

A+

 

[AlphaOne]

Super ce code, merci !! dernière chose, peut-on inverser le spinbutton de façon a faire défiler à partir de la flèche du haut ?

 

[job75]

J'avais fait l'inversion entre le post #3 et le post #4 mais puisque vous n'en voulez pas :

Private Sub SpinButton1_Change()
[B3].Select
SpinButton1.Max = [Liste].Count
If SpinButton1 Then ActiveCell = [Liste].Cells(SpinButton1) Else ActiveCell = ""
End Sub

 

[AlphaOne]

C'est exactement ça merci !!