Discussion :

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

essaye en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoEvents

après chaque définition du RowSource

[LeForestier]

Bonjour,
Et en mettant..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

voir avec !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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