[e-07]initialisation USF avec 3 listbox

Bonjour ou re, à tou(te)s,

Je pense que j'ai déjà eu ce problème mais l'alsheimer me gagne et je ne retrouve plus.
dans le code d'une USF, je provoque à l'initialisation 3 rowsources pour 3 listbox or dès ma deuxième listbox, les items ne sont plus les bons, si j'enlève le remplissage d'une listbox, il n'y a plus de problème, je ne sais plus pourquoi, voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub UserForm_Initialize() Application.ScreenUpdating = False With Sheets("banque") .Visible = True 'jai essayé avec .activate, meme résultat .Select lg = .Range("a" & Rows.Count).End(xlUp).Row boxbanque.RowSource = "a2:a" & lg .Visible = False End With With Sheets("ayants droit") .Visible = True 'jai essayé avec .activate, meme résultat .Select lg = .Range("a" & Rows.Count).End(xlUp).Row boxconcerne.RowSource = "f5:f" & lg .Visible = False End With With Sheets("compta") .Visible = True 'jai essayé avec .activate, meme résultat .Select lg = .Range("a" & Rows.Count).End(xlUp).Row boxconcerne.RowSource = "a2:a" & lg .Visible = False End With Sheets("ESSAI CHEQUE").Activate Application.ScreenUpdating = True End Sub

---

Merci d'avance de vos conseils avisés et bonne journée

Bonjour,

essaye en ajoutant

Code:

---

DoEvents

---

après chaque définition du RowSource

Bonjour,
Et en mettant..

Code:

---

1 2	boxbanque.RowSource = "banque!a2:a" & lg boxconcerne.RowSource = "ayants droit!f5:f" & lg

---

A+

Bonjour ucfoutu, Leforestier,

j'ai suivi vos conseils, de plus je me suis aperçu d'une erreur que j'ai corrigée (évident) mais le code bloque toujours sur une propriété rowsource, toujours la meme :

Code:

---

1 2 3 4 5 6 7 8

With Sheets("ayants droit") .Visible = True .Select lg = .Range("f" & Rows.Count).End(xlUp).Row DoEvents boxconcerne.RowSource = "ayants droit!f5:f" & lg .Visible = False End With

---

erreur d'execution 380, valeur de propriété non valide, il doit y avoir, bien sur, une erreur dans ce bout de code mais laquelle ?
En attendant je vous remercient encore de vos conseils qui me font avancer

a +
Dominique

J'ai resoulagé mon code mais vba n'aime pas le bout de code séparé par les tirets que j'ai insérés

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub UserForm_Initialize() Application.ScreenUpdating = False DoEvents lg = Sheets("banque").Range("a" & Rows.Count).End(xlUp).Row boxbanque.RowSource = "banque!a2:a" & lg '------------------------------------------------------------------ 'là, erreur 380 DoEvents lg = Sheets("ayants droit").Range("f" & Rows.Count).End(xlUp).Row boxconcerne.RowSource = "ayants droit!f5:f" & lg '------------------------------------------------------------------ DoEvents lg = Sheets("compta").Range("a" & Rows.Count).End(xlUp).Row boxactivite.RowSource = "compta!a2:a" & lg Sheets("ESSAI CHEQUE").Activate Application.ScreenUpdating = True End Sub

---

voir avec !!

Code:

---

lg = Range("F65536").End(xlUp).Row

---

lg = combien de lignes ?
Et DoEvents n'est pas nécessaire.

Je te remercie de ta réponse, Leforestier que j'ai testé tout de suite

Code:

---

1 2	lg = Sheets("ayants droit").Range("F65536").End(xlUp).Row boxconcerne.RowSource = "ayants droit!f5:f" & lg

---

Maintenant, le code me retourne une erreur 9, l'indice n'appartient pas à la sélection, j'ai du mal à comprendre

Merci de ta sollicitude

Enfin grace à vous, j'ai compris car entre temps je faisais d'autres erreurs en changeant le nom de la feuille ("ayants droit") en ayants_droit car je cherchais de mon coté mais voilà des oublis dans le code

Merci encore à vous deux
suis-je bête :oops:

Quand même, je tiens à ajouter qu'apparemment, dans ce cas, les noms de feuilles avec espaces ne sont pas supportés

Code:

---

1 2 3 4 5

With Sheets("ayants_droit") .Activate lg = .Range("F65536").End(xlUp).Row boxconcerne.RowSource = "ayants_droit!f5:f" & lg End With

---

ça passe

Code:

---

1 2 3 4 5

With Sheets("ayants droit") .Activate lg = .Range("F65536").End(xlUp).Row boxconcerne.RowSource = "ayants droit!f5:f" & lg End With

---

ça ne passe pas

encore merci