Vitesse de traitement

bonsoir

Une petite question ; existe t il un petit moyen d’accélérer une tache en vba , je dispose d'un classeur dont le nombre de feuilles qui y sont crée est de l'ordre d'un vingtaine par jour , le code en question examine chaque onglet de ce classeur avant d'y ajouter une nouvelle feuille , plus le nombre de feuille est important plus la tâche de vérification l'est aussi .

j'ai pensé à utiliser un " screen updating " mais cela ne réduit pas le temps nécessaire pour que le code vérifie l'ensemble des onglet du classeur de destination

Voyez vous une éventuelle solution

Merci pour toute suggestion

Bonjour.

Ton code utilise une boucle For / Next ?

Peut-être qu'avec une boucle "For Each / Next", ça peut aller plus vite.

Joins ton code source pour voir ce qui est modifiable. Même si j'ai peu de chance de pouvoir t'aider, d'autres pourront le faire.

Etonnant que "ScreenUpdating = False ne fonctionne pas. As-tu mis un timer pour voir la différence de temps?

A suivre.

bonjour

merci pour votre réponse ; voici le code

Sub FOUILLEETTROUVE1()
ScreenUpdating = False
    Dim feuille As Worksheet
    Dim chemin As String
    Dim xcell As Range
    Dim wb1 As Workbook   'Mon classeur
Dim Wb2 As Workbook   'L'autre classeur

Set wb1 = ThisWorkbook

' code d'ouverture
'Set Wb2 = Workbooks("A.xls")

    chemin = ThisWorkbook.Path
    Workbooks.Open Filename:=chemin & "\A.xls"

    For Each feuille In Worksheets
    If Not IsNumeric(feuille.Name) Then GoTo 1
        If feuille.Name = wb1.Sheets("Feuil1").Range("H4") Then    'ligne de comparaison
            Workbooks("A.xls").Close savechanges:=True

            MsgBox "NUMERO DE FEUILLE DEJA EXISTANT !", vbOKOnly + vbInformation, "message"
            Sheets("Feuil1").Select
            Call xls
            Sheets("Feuil2").Select
            Exit Sub
        End If
1    Next

    Workbooks("Axls").Close savechanges:=True
    Application.GoTo Sheets("Feuil1").Range("A1"), True

'Libération de la mémoire
Set wb1 = Nothing

End Sub

Merci

Désolé.

Je ne sais pas faire mieux

Je laisse la main aux connaisseurs de VBA