Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

[J-c]

Bonsoir

Pourriez vous m'aider ? 🙁
Chaque fois que j'ajoute un ComboBox dans l' Usf, le temps d'ouverture de la boite de dialogue augment de 10 à 12 secondes. 😕
De plus les ComboBox 2 et 3 foctionne sur le même schémat, mais l'orsque je rentre une nouvelle donnée dans le ComboBox3 elle n'est pas ajouté à la liste.
Compte tenus de mon faible niveau de connaissance dans le domaine,il est fort probable que les codes ne soit pas adapté.
Merci à tous ceux qui pourrons m'apporter une explication🙂

Merci Cdlt J-C

 

[alexga78]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Bonsoir J-C, le forum

remplace ton code par celui ci,

Private Sub UserForm_Initialize()
Dim cel As Range, n As Byte
With Sheets("Feuil2")
For Each cel In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
With Me.ComboBox1
.AddItem cel.Value
.Column(1, .ListCount - 1) = cel.Offset(0, 1).Value
End With
Next cel
End With
With Sheets("Auto-Moto")
For Each C In .Range("x3:x" & .Range("x65536").End(xlUp).Row)
If Not C = "" Then ComboBox2.AddItem C
Next C
For Each C In Range("W3:W" & .Range("W65536").End(xlUp).Row)
If Not C = "" Then ComboBox3.AddItem C
Next C
End With
For n = 2 To 3
With Controls("ComboBox" & n)
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
Next n
TextBox3.Locked = True
TextBox2.Locked = True
End Sub

j'ai ajouté une petite boucle mais le pb venait de ça :

   For Each C In Sheets("Auto-Moto").Range("W:W")
    If Not C = "" Then ComboBox3.AddItem C
Next C

en écrivant ça tu te tapes toutes les cellules de la la colonne W, sur 2007 plus de 100000 je crois, c'est un peu long 🙂

Bonne soirée

 

[J-c]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Bonsoir

Merci pour la reponse, après avoir changé le code, j'ai un Bug
et UserForm4.show en surbrillance.

Cdlt J-C

Edit Ok trouvé Merci !!!🙂

For Each C In .Range("W3:W" & .Range("W65536").End(xlUp).Row)
If Not C = "" Then ComboBox3.AddItem C

Le "Point" devant Range

 

[alexga78]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Re,

verifies un truc j'ai remarqué qu'en faisant le copier coller du code du forum le point devant range de la ligne 15 n'est pas présent. 😕
ajoute le, ça doit régler le probleme.
Bonne soirée

 

[J-c]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Bonsoir

Encore une petite chose, je ne trouve pas le PB.
La colonne W de l'onglet "Auto-Moto" ne s'incrémente pas.

Merci pour votre aide Cdlt J-C

EDIT
Ok résolu Merci à tous

 

[alexga78]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

re,

tu entends quoi pas s'incrémente pas, parce que normalement avec ce code la liste est dynamique et retriée par ordre alphabétique à chaque ajout

à te lire

 

[J-c]

Re : Chaque ComboBox alonge de 10 s l'ouverture de l'Usf

Bonjour à tous

Je n' ai peut être pas utilisé le bon terme.😱
Ce que j' ai voulu dire,c'est que l'orsque je placais de nouvelles données dans les combo 2 et 3 elles ne venaient pas s'ajouter aux listes W et X de la Feuil2.
J'ai trouvé mon erreur, voici le fichier "version Excel 2003"le précédent etait en version 2007, pardon pour cette erreur

Merci encore pour l' aide
Cdlt J-C