[Résolu] alimenter un uf par une page selectionnée avec optionbutton

[ckoebel5]

Bonjour le forum,
J'ai un tas d'infos à charger dans un uf, mais pour le moment je ne vois pas comment changer la source.
Quelqu'un pourrait-il m'aider avec ce fichier sommaire?

Merci!!

Christophe

 

[Guest]

Re : alimenter un uf par une page selectionnée avec optionbutton

Bonjour,

Si aucune option n'est sélectionnée si tu appelles la Sub Afficher, la formule : (-1 - (OpbTrim1 * 1 + OpbTrim2 * 2 + OpbTrim3 * 3)) Renverra -1 comme index de Array().

Mieux vaut présélectionner une option à l'ouverture du userForm ou en mettant sa propriété à True.

Public Sub Afficher()
    Dim feuille As String
    feuille = Array("Feuil1", "Feuil2", "Feuil3")(-1 - (OpbTrim1 * 1 + OpbTrim2 * 2 + OpbTrim3 * 3))
    Me.Caption = feuille
    With Sheets(feuille)
        Me.ListBox1.List = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
End Sub
Private Sub OpbTrim1_change()
Afficher
End Sub
Private Sub OpbTrim2_change()
Afficher
End Sub
Private Sub OpbTrim3_change()
Afficher
End Sub

A+

 

[Si...]

Re : alimenter un uf par une page selectionnée avec optionbutton

salut

un autre exemple avec des Tableaux (que l'on peut déplacer à volonté sans incidence) et un seul contrôle pour les Options (Listbox pour réduire le nombre des macros).

 

[ckoebel5]

Merci à vous deux Hasco et Si!

J'ai finalement opté pour la solution de Hasco qui s'intègre mieux à mon projet.
Mais pour Si, je suis épaté de voir tout ce qu'on peut faire faire en si peu de lignes de code.

Chaleureusement,

Christophe.