Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

[Niouf]

Bonjour,

Je souhaite faire défiler des valeurs à partir d'une "liste" (Voir sur ma feuille 2) à partir d'une Toupie. (Voir fichier joint)
Et surtout, je veux que ces valeurs défilent dans une case B6 sur ma feuille 1.

Cela est-il possible ? Avec ou sans toupie ? Mais en conservant l'idée que ma valeur en case B6 doit pouvoir être utilisé dans un calcul.

Merci d'avance !

 

[R@chid]

Re : Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

Bonsoir,
Oui c'est possible, avec une liste de validation..
Voir PJ
@ + +

 

[job75]

Re : Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

Bonsoir Niouf, R@chid,

Avec une toupie pourquoi pas ?

Fichier joint.

Bonne nuit.

 

[job75]

Re : Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

Bonjour Niouf, R@chid, le forum,

Pour faire défiler les valeurs en B6 on peut aussi utiliser le clic droit ou le double-clic.

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B6]) Is Nothing Then Exit Sub
Dim i As Variant
Cancel = True
i = Application.Match([B6], [Liste], 0)
If IsError(i) Then i = 0
If i = [Liste].Count Then i = 0
[B6] = [Liste].Cells(i + 1)
End Sub

Le fichier doit être enregistré en .xls ou en .xlsm (qui accepte les macros).

A+

 

[job75]

Re : Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

Re,

On peut aussi utiliser les touches <Entrée> ou <Bas> :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'touches <Entrée> ou <Bas>
If Intersect(Target, [B7]) Is Nothing Then Exit Sub
Dim i As Variant
[B6].Select
i = Application.Match([B6], [Liste], 0)
If IsError(i) Then i = 0
If i = [Liste].Count Then i = 0
[B6] = [Liste].Cells(i + 1)
End Sub

Inconvénient : la cellule B7 ne peut plus être sélectionnée 🙄

Fichier (2).

A+

 

[Niouf]

Re : Faire défiler des valeurs extraites d'une liste à l'aide d'une toupie

Merci à tous !

Je n'en demandais pas tant 😀

Ça correspond parfaitement à ce que je voulais faire.