XL 2010 execution lente

[kaid]

Bonjour; et merci pour votre réponse
*j'ai un autre problème : j'ai commencer a saisir mes données je suis arriver a 900 lignes. et quand je l'ouvre il bug et parfois la userform ne s'affiche c'est très très lent !!!!.
et quand elle met du temps a s'ouvrir l'ajout et la modification d'un enregistrement prend du temps aussi a partir de la userform toujours.

 

[Lone-wolf]

Re

Tu veux bien mettre le fichier. Tu pense vraiment que je suis le saint-esprit pour voir où tu en est??

 

[Lone-wolf]

Re

Ton fichier en retour. Il faudra supprimer la macro Rechercher; ensuite créer 6 macros pour les 6 combos.

Edit: voici la macro pour la combo 1 et noublie pas de déclarer les variables.

Dim plage As Range, cel As Eange, k As Long

Private Sub RechercheC1_Change()
    If RechercheC1.Text <> "" Then
        Call Recherche1
    Else
        Exit Sub
    End If
End Sub

Private Sub Recherche1()

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    ListBoxLocataire.Clear

    With ws
        derlig = .Range("a" & Rows.Count).End(xlUp).Row
        Set plage = .Range("a2:a" & derlig)
        For Each cel In plage
            If cel.Offset(, 0) Like RechercheC1 & "*" Then
                ListBoxLocataire.AddItem cel.Offset(0, 0)
                For k = 1 To 15
                    ListBoxLocataire.List(ListBoxLocataire.ListCount - 1, k - 1) = cel.Offset(0, k - 1)
                Next k
            End If
        Next cel
        label22 = ListBoxLocataire.ListCount
    End With
        With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With

End Sub

 

[Lone-wolf]

Re

Prend ce fichier. Ensuite tu de débrouillera tout seul. J'ai modifié la macro Listbox_Click , vu les nombreux doublons , la recherche se fait à partir de la colonne D.

Dans Module1 il y a les macros pour les combobox et j'ai refait le code de la macro Actualiser + ajouté une petite surprise et le label bleu correspond au numéro de la ligne.

 

[kaid]

Bonjour je c'est pas quoi dire je vous remercie beaucoup;j'ai compris le principe et j'ai appris pleine de chose

 

[kaid]

bonjour; j'aimerai appliquer automatiquement ce code dans worcksheet sur toute la colonne
ActiveSheet.Range("j2").Formula = "=TODAY()"

et jaimerai aussi additionne la date d'aujourd'huit en" A1 " avec la date de depot en "B2"

 

[kaid]

dans worksheet avec target

 

[Lone-wolf]

Bonsoir kaid , le Forum

Option Explicit
Sub test()
Dim derlig As Long
With Feuil1
derlig = .Range("j" & Rows.Count).End(xlUp).Row
.Range("j2").Formula = "=TODAY()"
.Range("J2").AutoFill .Range("J2:J65536")
End With

'Si tu veux garder les valeurs et non la formule
With Feuil1.Range("j2:j65536")
.Value = .Value
End With
End Sub

Pour l'addition en F2 par exemple
=A1+B2

 

[Lone-wolf]

Rebonsoir tout le monde

@ Jean Claude à propos de : Rows.count ne compte pas les lignes renseignées

Et bien Jean Claude, détrompe-toi, par-ce que c'est bien le cas(compte les lignes renseignées)

derlig = Range("a" & Rows.Count).End(xlUp).Row
[D2] = Application.CountA(Range("a1:a" & derlig))
[F2] = derlig

Dis mois combien de cellules sont inscrites en résultat (1000000 ou .....)?!

Par contre si c'est écrit ainsi
derlig = Range("a" & Rows.Count).End(xlDown).Row
[F2] = derlig
Il compte bien plus d'un milion de cellules. Donc .End(xlUp).Row est la dernière cellule renseignée.

 

[kaid]

ça marche mais il me donne erreur

.Range("j2").Formula = "=TODAY()"
methode formula a echoué

 

[Lone-wolf]

Re

Met formulalocal = "AUJOURDHUI()" pour voir

Sinon Formula =DATE()

 

[kaid]

toujours le même problème :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim derlig As Long
With Feuil6
derlig = .Range("j" & Rows.Count).End(xlUp).Row
.Range("j2").FormulaLocal = "AUJOURDHUI()"
.Range("J2").AutoFill .Range("J2:j1000")
End With

'Si tu veux garder les valeurs et non la formule
With Feuil6.Range("j2:j1000")
.Value = .Value
End With
End Sub

 

[Lone-wolf]

Re

Il faut mettre FormulaLocal = "=AUJOURDHUI()"
ou Formula = "=DATE()" si ta version d'excel est en anglais.

 

[kaid]

.Range("j2").FormulaLocal = "=AUJOURDHUI()"
range echoue

 

[Lone-wolf]

Re

Sinon met directement comme ceci Range("j2:j1000") = Date

 

[Lone-wolf]

Bonjour kaid , le Forum

Ton fichier en retour. Inscrit un nouveau client et utilise TAB du clavier pour tester . J'ai ajouté aussi un filtre, tu peux filtrer su la colonne de ton choix à partir de la ligne 2. Pour test, sélectionne une banque ou situation, car les seules qui ont des doublons; ensuite clique sur le bouton. Pour supprimer le filtre, clique en A1.