Bonjour à tous !
Je me trouve actuellement devant une situation que je ne suis pas sûr de savoir gérer, étant donné que je ne sais absolument pas comment chercher ma réponse !
Mon idée était de faire un fichier ( sans userform pour l'instant ) qu'on pourrait remplir à l'aide de sliders reliés à des cellules.
Voyant dans les propriétés des objets de controle slider, qu'il n'existe pas d'équivalent de "rowsource" ou autre de ce style, j'ai commencé à gérer cela par macro.
Voici le code de ma fonction :
et le code pour chaque slider :
Pour l'instant tout va bien.
Cependant, le problème est que le nombre de ligne de mon fichier (que je ne peux pas envoyer complet pour raisons de confidentialité) est tout à fait variable. Du coup je voudrait pouvoir automatiser la mise en forme de la ligne avec le placement des sliders au bon endroit.
Voici mes deux problèmes :
-Comment mettre sous forme de fonction ma macro qui met à jour les valeurs de mes cellules correspondant aux valeurs des sliders avec comme argument le slider et la colone concernée ? j'ai déjà essayé de passer le slider en argument mais au lieu du nom du slider, ma variable objet prend la valeur de l'objet ...
-Comment repérer où placer le nouveau slider à la mise en forme de la ligne automatique ? (là je n'ai carrément pas d'idée ! )
Si vous pouvez m'aide j'en serai ravi et celà m'aiderai beaucoup !
Merci d'avance.
Je me trouve actuellement devant une situation que je ne suis pas sûr de savoir gérer, étant donné que je ne sais absolument pas comment chercher ma réponse !
Mon idée était de faire un fichier ( sans userform pour l'instant ) qu'on pourrait remplir à l'aide de sliders reliés à des cellules.
Voyant dans les propriétés des objets de controle slider, qu'il n'existe pas d'équivalent de "rowsource" ou autre de ce style, j'ai commencé à gérer cela par macro.
Voici le code de ma fonction :
Code:
Sub maj(column As String)
col = column & "11"
Sheets("Grille").Range(col) = Sheets("Grille").Slider1.Value
End Sub
et le code pour chaque slider :
Code:
Private Sub Slider1_Change()
Call maj("G")
End Sub
Pour l'instant tout va bien.
Cependant, le problème est que le nombre de ligne de mon fichier (que je ne peux pas envoyer complet pour raisons de confidentialité) est tout à fait variable. Du coup je voudrait pouvoir automatiser la mise en forme de la ligne avec le placement des sliders au bon endroit.
Voici mes deux problèmes :
-Comment mettre sous forme de fonction ma macro qui met à jour les valeurs de mes cellules correspondant aux valeurs des sliders avec comme argument le slider et la colone concernée ? j'ai déjà essayé de passer le slider en argument mais au lieu du nom du slider, ma variable objet prend la valeur de l'objet ...
-Comment repérer où placer le nouveau slider à la mise en forme de la ligne automatique ? (là je n'ai carrément pas d'idée ! )
Si vous pouvez m'aide j'en serai ravi et celà m'aiderai beaucoup !
Merci d'avance.
Pièces jointes
Dernière édition: