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

ckoebel5 · 29 Mars 2014

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 · 29 Mars 2014

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.

Code:

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... · 29 Mars 2014

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 · 31 Mars 2014

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.

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

ckoebel5

XLDnaute Junior

Pièces jointes

Guest

Guest

Si...

XLDnaute Barbatruc

Pièces jointes

ckoebel5

XLDnaute Junior

Discussions similaires

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

ckoebel5

XLDnaute Junior

Pièces jointes

Guest

Guest

Si...

XLDnaute Barbatruc

Pièces jointes

ckoebel5

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency