Un peu d'aide pour ma mini application !

Youpsy · 12 Novembre 2012

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 · 12 Novembre 2012

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

Bonjour,

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

Code:

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

G

Dranreb · 12 Novembre 2012

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.

VB:

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.

Un peu d'aide pour ma mini application !

Youpsy

Guest

Pièces jointes

Gelinotte

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Discussions similaires

Un peu d'aide pour ma mini application !

Youpsy

Guest

Pièces jointes

Gelinotte

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency