la macro aurait-elle un problème de mémoire vive

[pascal21]

Sub Feuil1VersFeuil2()

Dim NbLigneFeuil1 As Long
Dim NbColonneFeuil1 As Long
Dim LigneFeuil2 As Long

Application.ScreenUpdating = False
Sheets("copie").Select

NbLigneFeuil1 = [d1000].End(xlUp).Row
NbColonneFeuil1 = [by3].End(xlToLeft).Column
LigneFeuil2 = 3

    With Sheets("analyse")
        .[A2] = "Parc"
        .[B2] = "Dates"
        .[C2] = "Tâches"
        .[e2] = "Commentaires"
    
        For j = 5 To NbColonneFeuil1
           For i = 4 To NbLigneFeuil1
            If Cells(i, j) <> " " Then
          .Cells(LigneFeuil2, 1) = Cells(3, j)
        .Cells(LigneFeuil2, 2) = Cells(i, 4)
        .Cells(LigneFeuil2, 3) = Cells(i, j)
                   
                        If Not Cells(i, j).Comment Is Nothing Then
                            .Cells(LigneFeuil2, 5) = Right(Cells(i, j).Comment.Text, Len(Cells(i, j).Comment.Text) - 16)
                        End If
                  LigneFeuil2 = LigneFeuil2 + 1
                End If
            Next i
        Next j
          ' .Range("A2:D2").AutoFilter
   End With
Sheets("analyse").Select
Application.ScreenUpdating = True
End Sub

bonsoir
je cherche juste à comprendre pourquoi cette macro ( de excel-lent) merci à lui fonctionne bien sur un classeur tout simple lors des essais
ça ne fonctionne plus (excel figé)dans ce fichier simple si j'ouvre un autre classeur
et pourquoi ça ne fonctionne plus (excel figé) lorsque je le mets dans le classeur définitif où il y a déjà des macros
serait-ce un problème de mémoire?
est-il possible de remédier à ce problème?
merci pour votre aide

 

[pascal21]

Re : la macro aurait-elle un problème de mémoire vive

bonsoir
bon alors je pense que le problème viens de chez moi
je n'ai que 1.5 go de mémoire vive sur mon 'vieux' pc de 3.5 ans
chez moi il lui faut env. 10 sec pour ne copier que la première valeur trouvée et c'est tout ce que ça fait
ça ne prends en compte que la cellule E4 du tableau feuil1
edit: je viens de tester avec excel 2007 c'est pareil

 

[ROGER2327]

Re : la macro aurait-elle un problème de mémoire vive

Bonjour à tous

Essayez en remplaçant

[COLOR=DarkSlateGray][B]Application.ScreenUpdating = False[/B][/COLOR]

et

[COLOR=DarkSlateGray][B]Application.ScreenUpdating = True[/B][/COLOR]

par

[COLOR=DarkSlateGray][B]With Application: .ScreenUpdating = 0: .Calculation = -4135: End With[/B][/COLOR]

et

[B]With Application:[/B][B] .Calculation = -4105:[/B][B]  .ScreenUpdating = 1: End With[/B]

voire même, si vous êtes certain que votre procédure ne plante pas, par

[COLOR=DarkSlateGray][B]With Application: .ScreenUpdating = 0: .Calculation = -4135: .EnableEvents = 0: End With[/B][/COLOR]

et

[COLOR=DarkSlateGray][B]With Application: .EnableEvents = 1[/B][/COLOR][COLOR=DarkSlateGray][B]: .Calculation = -4105[/B][/COLOR][COLOR=DarkSlateGray][B]: .ScreenUpdating = 1: End With[/B][/COLOR]

ROGER2327
#4544

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T23:47:02Z

 

[pascal21]

Re : la macro aurait-elle un problème de mémoire vive

bonjour roger bonjour à tous
effectivement avec lrs codes proposés c'est beaucoup plus rapide ,voir instantané mais ça ne va toujours pas plus loin que la copie de la première cellule rencontrée, à savoir:E4
dans le classeur concerné, j'ai une macro dans un USF qui me sert à faire la saisie des données
cet USF n'est pas activé lorsque je me sert de la macro de recopie

 

[pascal21]

Re : la macro aurait-elle un problème de mémoire vive

NbCo [[COLOR="Red"]ca[/COLOR]3].End(xlToLeft).ColumnlonneFeuil1 = LigneFeuil2 = 3

re
dans le dossier final les colonnes vont jusqu'à by3 j'avais déja une erreur ici (rn rouge j'ai rectifié)
maintenant, je viens de voir que ça ne recipie pas la date exacte mais uniquement le 1/10/10 (premiere date du tableau)
et ça ne recopie pas non plus les commentaires
alors que ça fonctionne sur le classeur exemple pffffffffffffffffffffffffffffff!!!!!!!!!!!!!!

 

[ROGER2327]

Re : la macro aurait-elle un problème de mémoire vive

Re...

Il n'est pas facile de faire un diagnostic sur une procédure dont on ne sait ni ce qu'elle doit faire, ni ce sur quoi elle opère. Au pifomètre intégral, je propose de tester le remplacement de

[COLOR=DarkSlateGray][B]NbLigneFeuil1 = [d1000].End(xlUp).Row
NbColonneFeuil1 = [by3].End(xlToLeft).Column[/B][/COLOR]

par

[COLOR=DarkSlateGray][B]NbLigneFeuil1 = Cells(Rows.Count, 4).End(xlUp).Row
NbColonneFeuil1 = Cells(3, Columns.Count).End(xlToLeft).Column[/B][/COLOR]

ROGER2327
#4548

Dimanche 15 As 138 (Navigation du Dr Faustroll, SPs)
27 Brumaire An CCXIX
2010-W46-3T09:59:30Z