Creer plusieurs toupies et liées cellules automatiquement

bonjour,

Bon je ne baisse pas les bras !

J'ai relu vos messages d'explications mais c'est vraiment flou pour moi.

J'ai donc recrée un fichier excel.

J'ai compris comment insérer une Toupie controle ActiveX

Et voilà, je bloque de nouveau. comment faire pour : (par exemple pour la cellule B2)

• clic en haut sur la toupie = +1
• clic en bas = -1
• et "glisser" pour que la toupie apparraisse dans toutes les cases !

Merci à toutes et tous .

Bonjour,

je ne vois pas la toupie dans ton fichier.

Mais tu n'as plus à en faire des copies multiples. C'est la même qui apparaitra dans la cellule sélectionnée.

Après l'avoir mise tu fais clic droit sur le nom d'onglet puis 'Visualiser le code'

Ca t'amènera directement sur le module de ta feuille dans VBE.

Dans la fenêtre de droite tu copies-colles tout ça :

Option Explicit

Private Sub SpinButton1_SpinDown()
    Me.SpinButton1.TopLeftCell = Me.SpinButton1.TopLeftCell - 1
End Sub

Private Sub SpinButton1_SpinUp()
    Me.SpinButton1.TopLeftCell = Me.SpinButton1.TopLeftCell + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:O32]) Is Nothing Then
        Me.SpinButton1.Visible = False
    Else
        Me.SpinButton1.Visible = True
        Me.SpinButton1.Top = Target.Top
        Me.SpinButton1.Left = Target.Left
    End If
End Sub

et c'est fait.

Adapte la plage où tu veux voir la toupie. <Remplacer [A1:O32] par [B2:I9] dans le code

Retourne dans Excel et ajoute l'onglet Développeur en le cochant par un clic-droit sur le ruban et 'Personnaliser le ruban'

SpinButton1 est le nom qui apparait au-dessus des n° de ligne lorsque tu sélectionnes la toupie. Pour pouvoir la sélectionner il faut passer en mode Création dans l'onglet développeur. Désélectionner ce mode pour utiliser la toupie.

eric

J'ai réussi ! Youpi !!!!!!!!!!!!!!!!!

Merci à tous !!!!

ah.......... en faite non...

Tout a très bien fonctionné. Toupie, code....

Mais lorsque que j'enregistre le fichier, je le ferme puis le réouvre je n'ai plus rien !

Il faut faire Enregistrer sous... et choisir le type *.xlsm pour conserver les macros.

eric