Un peu d'aide pour ma mini application !

[Youpsy]

Bonjour à tous !!

Alors je vous explique mon problème.. j'ai fichier excel avec 4 feuille ( Feuil1, Site, Installations, Listes)
J'ai créer 3 userform (pour l'instant plus sont à venir) site, installation qui ont chaque fois qque textbox et parfois un comboBox.

Mon problème c'est que je utilise chaques feuil comme BD et quand je lance l'userform site si je ne suis pas sur cette même feuille mes données ne s'affiche pas... 🙁 ma listbox reste blanche...
Comme je peux faire pour rémédier a ça.. et en plus si par la suite le feuil sont masquée

et sinon je voudrai pouvoir alimenter des combobox en fonction de la feuil "Liste"

Quelqu'un peu m'aider svp !! Merci !

 

[Gelinotte]

Re : Un peu d'aide pour ma mini application !

Bonjour,

Est-ce que ceci peut convenir ?
C'est à dire, selectionner la feuille concernée...

Private Sub UserForm_Initialize()
Worksheets("Installations").Select
efface
End Sub

G

 

[Dranreb]

Re : Un peu d'aide pour ma mini application !

Bonsoir.
Si la propriété RowSource ne peut pas être figée dans la fenêtre de propriété il vaut mieux ne pas l'utiliser et renseigner la propriété List.

Private Sub efface()
With Worksheets("Sites")
    L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    TextBox1 = Application.WorksheetFunction.Max(.Range("A:a")) + 1
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    ComboBox1.Value = ""
Me.ListBox1.List = .Range("A2:F" & L).Value
End With
End Sub

Pareil pour les ComboBox.
Cordialement.