XL 2010 execution lente

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2017

• #2

Re kaid

VB:

Dim Tablo
    With ListBoxLocataire
        .ColumnCount = 16
        .ColumnWidths = "130 ;80 ;200 ;100 ;80 ;80 ;100 ;0;0;0;0;0;0;0;0;0 "
        Tablo = Range("A1:P" & Range("a" & Rows.Count).End(3).Row)
        .ColumnCount = UBound(Tablo, 2)
        .List = Tablo
        For i = 1 To Range("a" & Rows.Count).End(3).Row - 1
            .List(i, 15) = i + 1
        Next
    End With

J'aimerais que tu m'explique pourquoi tu à 2 fois .ColumnCount???. Ensuite si tu utilise Tablo comme ici

Tablo = Range("A1:O" & Range("a" & Rows.Count).End(3).Row)
La dernière colonne est O et non P

.ColumnCount = UBound(Tablo, 2)
.List = Tabl0

La Variable est Tablo(), et .ColumnCount = UBound(Tablo, 2) est à supprimer, vu que tu a déjà .ColumnCount = 16. Modifie aussi [A65000] par Range("a" & Rows.Count). À quoi ça te sert d'aller jusqu'à 65000, quand tu as à peine 1000 lignes remplies??

.List = Tablo
For i = 1 To Range("a" & Rows.Count).End(3).Row - 1
.List(i, 15) = i + 1
Next
C'est quoi ces lignes?? . Voici un exemple de comment on rempli une ListBox

VB:

Private Sub UserForm_Initialize()
Dim i As Long, j As Long
 
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "50;80;50;60;50;70;50"  

    For i = 1 To 20
        'Ajoute une ligne et insère une donnée dans la colonne de gauche
        ListBox1.AddItem "Ligne" & i
     
        'Ajoute des données dans les colonnes de droite
        For j = 1 To 7
        ListBox1.List(ListBox1.ListCount - 1, j) = i & j
        Next j
     
    Next i
End Sub

 

Dernière édition: 22 Mars 2017

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 22 Mars 2017

• #3

message d'erreur "depassement de capacité"

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2017

• #4

Relis mon dernier message attentivement.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Mars 2017

• #5

Bonjour à tous,

Lone-Wolf écrit :
Modifie aussi [A65000] par Range("a" & Rows.Count). À quoi ça te sert d'aller jusqu'à 65000, quand tu as à peine 1000 lignes remplies??

Rows.count ne compte pas les lignes renseignées... mais toutes les lignes disponibles soit 1 048 576 pour notre ami

A+ à tous

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 22 Mars 2017

• #6

Dim i As Byte, j As Byte
Dim Tablo
With ListBoxLocataire
.ColumnCount = 16
.ColumnWidths = "130 ;80 ;200 ;100 ;80 ;80 ;100 ;0;0;0;0;0;0;0;0;0 "
Tablo = Range("A1" & Range("a" & Rows.Count).End(3).Row)
For i = 1 To 20

ListBoxLocataire.AddItem "Ligne" & i



For j = 1 To 7
ListBoxLocataire.List(ListBoxLocataire.ListCount - 1, j) = i & j
Next j

Next i
End With

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 22 Mars 2017

• #7

je suis un peut perdu listbox s'affiche mais quand je click sur la ligne de laistbox "message d'erreur"

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2017

• #8

Re Jean Claude

Et moi qui était persuadé du contraire. Mais quoi qui l'en soit, il parait qu'il faut mettre Rows.Count au lieu de 65000.

@kaid

VB:

Private Sub UserForm_Initialize()
    Dim i As Long, j As Long, derlig As Long
    Dim ws As Worksheet
   
    Set ws = Sheets("BD")
    derlig = ws.Cells(Rows.Count, 1).End(xlUp).Row

    On Error Resume Next
    With ListBoxLocataire
        .ColumnCount = 15
        .ColumnWidths = "130;80;200;100;80;80;100;0;0;0;0;0;0;0;0"
       
        For i =2 To derlig
        .AddItem ws.Cells(i, 1)
       
        For j = 1 To 15
        .List(ListBoxLocataire.ListCount - 1, j) = ws.Cells(i, j)
        Next j
        Next
    End With

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 22 Mars 2017

• #9

j'ai ajouter 900 lignes
y'a un message d'erreur : dans listboxlocataire_click
lig = ListBoxLocataire.List(ListBoxLocataire.ListIndex, 15) et en plus c'est tres lent
je sais que je vous es casser la tète

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2017

• #10

kaid

lig = ListBoxLocataire.ListIndex + 1

Et c'est quoi ça?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMaximized
For Each Ws In Worksheets
Next
UserForm1.Show
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Mars 2017

• #11

Re kaid

Ton fichier en retour. J'ai supprimé les appels des combos(Init_Combos). Il faudra supprimer la macro, mettre dans une feuille ou directement dans le formulaire les textes pour toutes les combos. Supprimer Option compare texte, par-ce que si tu as deux ou trois textes, c'est inutile et ne vois pas l'utilité de faire une macro pour si peu. Faire par exemple

With RechercheC1
.AddItem xxxx
.AddItem yyyy
.AddItem zzzz
End With

Oubien

With ws
derlig = .Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To derlig
RechercheC1.AddItem .Range("a" & i)
Next i
End With

Je ne pense pas que ce soit trop penible.

 

Pièces jointes

• FG-2.xlsm

  207.2 KB · Affichages: 43

Dernière édition: 22 Mars 2017

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 24 Mars 2017

• #12

Bonjour;
ok j'ai compris je crois que je vais utiliser des textbox pour les critères de recherche je vais me casser la tète .
et encore merci ; longue vie pour ce site et a vous aussi

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 24 Mars 2017

• #13

j'ai supprimer la macro (InitCombo).
et j'ai mis dans toutes les combo:
With ws
derlig = .Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To derlig
RechercheC1.AddItem .Range("a" & i)
Next i
End With
est ce que je dois appeler la procedure "call rechercher".

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 24 Mars 2017

• #14

j'ai supprimer la macro ( init_combo) et "option compart texte" aussi.
et j'ai mis dans toutes les combo :
With ws
derlig = .Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To derlig
RechercheC1.AddItem .Range("a" & i)
Next i
End With
est ce que je dois appeler la procedure "call rechercher" ?

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 24 Mars 2017

• #15

même les bouton actualiser et modifier me donne des erreurs.

 

Vote positif 0 Vote négatif