Creer plusieurs toupies et liées cellules automatiquement Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Emigsin
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 janvier 2020
Version d'Excel : 2010

Message par Emigsin » 6 janvier 2020, 12:03

Bonjour,

Sauf erreur de ma part, je n'ai pas trouvé la réponse à ma question dans le forum.

Je sais créer une toupie est lier la cellule. Cependant je dois en créer des 100aines !
Comment faire en sorte de créer 1 toupie dans une cellule puis de "glisser" et que la toupie soit reliée à la case correspondante ?
Comme quand on fait une somme et qu'on glisse ?

Dans mon exemple en pièce jointe, j'ai liée la toupie à la cellule A3.
Je souhiate donc mettre des toupies dans toutes les cases.
Actuellement je relie la celule 1 à 1 .
Merci d'avance et meilleurs voeux à toutes et tous.
Nouveau Microsoft Excel Worksheet.xlsx
(11.99 Kio) Téléchargé 6 fois
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 694
Appréciations reçues : 72
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 6 janvier 2020, 13:36

Bonjour,

Je ne crois pas que ce soit simple de rendre dynamique le paramètre LinkedCell.
Il faut faire des macros.

Je te présente mes bons vœux ainsi que le fichier ci-joint.
toupie.xlsm
(23.75 Kio) Téléchargé 5 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'024
Appréciations reçues : 830
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 6 janvier 2020, 13:45

Bonjour Emigsin, bionjour oxydum
Sub DupliquerCompteur(cel As String)
    
    ActiveSheet.Shapes.Range(Array("Spinner 1")).Select
    Selection.Copy
    
    Range(cel).Select
    ActiveSheet.PasteSpecial Format:="Objet Dessin Microsoft Office", Link:= _
        False, DisplayAsIcon:=False
    With Selection
        .Value = 0
        .Min = 0
        .Max = 30000
        .SmallChange = 1
        .LinkedCell = cel
        .Display3DShading = True
    End With
    
End Sub

Sub test()
DupliquerCompteur "$B$5"
End Sub
edit : erreur du fichier ... le bon =
dupliquer spinner.xlsm
(16.61 Kio) Téléchargé 5 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'024
Appréciations reçues : 830
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 6 janvier 2020, 13:48

je viens de modifier le fichier posté (erreur de ma part)
il suffit ensuite de créer une boucle pour mettre les 99 autres spinners à leur bonne place !

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Emigsin
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 janvier 2020
Version d'Excel : 2010

Message par Emigsin » 6 janvier 2020, 14:11

Merci à tous,

Plus qu'à essayer de créer et comprendre les macros.... ou une boucle! :-)))
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 694
Appréciations reçues : 72
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 6 janvier 2020, 15:11

Je t'ai fait une version plus proche de ce que tu attendais...

Enjoy!
toupie.xlsm
(33.91 Kio) Téléchargé 5 fois
Modifié en dernier par oxydum le 6 janvier 2020, 15:16, modifié 1 fois.
Avatar du membre
Emigsin
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 janvier 2020
Version d'Excel : 2010

Message par Emigsin » 6 janvier 2020, 15:15

Re-bonjour Oxydum,

C'est très pratique ce que tu as fais dans ton fichier excel comme exemple.
Peux tu me donner la marche à suivre ?

Merci d'avance.
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 694
Appréciations reçues : 72
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 6 janvier 2020, 15:20

C'est assez basique...
CelM et CelP sont deux shapes. Pour les mettre dans un autre classeur, il suffit de les copier en maintenant CTRL pour les sélectionner toutes les deux.

Ensuite, tu glisses le module1 dans ton nouveau classeur. Et voilà !
Note que le + et - sont sensibles au type de données (nombre, date, texte, pourcentage...)
Avatar du membre
Emigsin
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 janvier 2020
Version d'Excel : 2010

Message par Emigsin » 6 janvier 2020, 16:01

basique......... ::(

Je suis désolée, je ne comprend pas tout....
Peux-tu m'expliquer pour une novice en termes informatiques ?
CelM et Celp : c'est bon j'ai trouvé

Mais >>> glisses le module1 ?

J'ai donc bien copier/coller les 2 Cel dans mon fichier (j'ai redimensionner, changer la couleur ......)
Dans mon exemple : si je cliue sur rouge il faudrait que ça ajoute 1 et si je cliqe sr bleu ça diminue de 1.

Merci encore
Nouveau Microsoft Excel Worksheet.xlsx
(13.67 Kio) Téléchargé 3 fois
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'367
Appréciations reçues : 398
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 6 janvier 2020, 16:13

Bonjour,

multiplier les objets sur une feuille, excel n'aime pas toujours...
Je te propose une autre approche.
Une seule toupie ActiveX qui apparait sur la cellule sélectionnée si elle appartient à la plage voulue :
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
eric
Nouveau Microsoft Excel Worksheet.xlsm
(22.24 Kio) Téléchargé 5 fois
2 membres du forum aiment ce message.
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message