Optimisation de la durré d’une focntion
Résolu
mijean94
Messages postés
415
Date d'inscription
Statut
Membre
Dernière intervention
-
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 415 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Ma fonction marche bien mais est très longue.
Y a-t-il une solution pour aller plus vite ?
Voici ce qu'elle réalise :
Efface les plages qui sont avec un fond blanc et qui contiennent une information différente de ""
Merci pour l’aide
Bien cordialement
Ma fonction marche bien mais est très longue.
Y a-t-il une solution pour aller plus vite ?
Voici ce qu'elle réalise :
Efface les plages qui sont avec un fond blanc et qui contiennent une information différente de ""
Public Sub Vitesse() '
Dim lideb As Long, codeb As Long, lifin As Long, cofin As Long
Dim grille As Variant
Dim Plages As Range
Dim vcel As Variant
‘la cellule B2 contien les coordonnées de la zone à traiter sous la forme $X$X:$X$X .
grille = Range("B2").Value
lideb = Range(grille).Cells(1, 1).Row
codeb = Range(grille).Cells(1, 1).Column
lifin = Range(Split(grille, ":")(1)).Row
cofin = Range(Split(grille, ":")(1)).Column
Set Plages = Range(Cells(lideb, codeb), Cells(lifin, cofin))
Plages.Select
For Each vcel In Plages
If vcel.Interior.ColorIndex = 2 And vcel <> "" Then vcel.ClearContents
Next vcel
End Sub
Merci pour l’aide
Bien cordialement
A voir également:
- Optimisation de la durré d’une focntion
- Optimisation pc - Accueil - Utilitaires
- Optimisation découpe panneau gratuit - Télécharger - Outils professionnels
- Optimisation windows 10 - Guide
- Optimisation de livraison - Forum Windows 10
- Clicker paladium optimisation - Forum Minecraft
3 réponses
Bonjour
Après les déclarations, écris déjà cette ligne
Application.screenupdating=false
qui fige le défilement de l'écran
la couleur 2 (blanc) n'est elle pas plutôt " aucune couleur" ?
sinon est elle une mise en forme conditionnelle de la valeur de la cellule ?
Michel
Après les déclarations, écris déjà cette ligne
Application.screenupdating=false
qui fige le défilement de l'écran
la couleur 2 (blanc) n'est elle pas plutôt " aucune couleur" ?
sinon est elle une mise en forme conditionnelle de la valeur de la cellule ?
Michel
Bonjour à tous,
essaye de remplacer ta procédure par :
Cordialement
essaye de remplacer ta procédure par :
Public Sub Vitesse() '
Dim contenu As Variant
Dim Plages As Range
'la cellule B2 contien les coordonnées de la zone à traiter sous la forme $X$X:$X$X .
Set Plages = Range([B2])
nblig = Plages.Rows.Count
nbcol = Plages.Columns.Count
contenu = Plages
For i = 1 To nblig: For j = 1 To nbcol
If Plages(i, j).Interior.ColorIndex = -4142 Then contenu(i, j) = ""
Next j: Next i
Range("D4").Resize(nblig, nbcol) = contenu
End Sub
Cordialement
Bonsoir,
Tout est dans le passage par un tableau avec l'instruction contenu = Plages qui charge le contenu de Plages dans le tableau à 2 dimensions : contenu().
Le traitement est alors beaucoup plus rapide.
C'est un classique de l'accélération des traitements sur des Range().
Si tu veux plus de précisions, regarde dans le site de J. Boisgontier.
Cordialement
Tout est dans le passage par un tableau avec l'instruction contenu = Plages qui charge le contenu de Plages dans le tableau à 2 dimensions : contenu().
Le traitement est alors beaucoup plus rapide.
C'est un classique de l'accélération des traitements sur des Range().
Si tu veux plus de précisions, regarde dans le site de J. Boisgontier.
Cordialement
Merci l'aide et pour la proposition.
Après l’ajout de (Application.screenupdating=false ) la boucle dure environ 10 secondes de moins pour une même utilisation.
Faut-il mettre Application.screenupdating= true en fin de procédure ?
Q : la couleur 2 (blanc) n'est elle pas plutôt " aucune couleur" ? R : ça pourrait-être la cellule sans couleur. Es-que ça changerais quelque chose ?
Q : Sinon est-elle une mise en forme conditionnelle de la valeur de la cellule ? R : non , c’est la colorisation suite à un traitement qui pourrait mettre la cellule sous n’importe quelle forme.
Bien cordialement
Faut-il mettre Application.screenupdating= true en fin de procédure ?
Non, car tu rends la main au système à la fin de la macro (Source: Laurent Longre)
la couleur 2 (blanc) n'est elle pas plutôt " aucune couleur" ? R : ça pourrait-être la cellule sans couleur. Es-que ça changerais quelque chose ?
Oui , la macro est plus simple car il n'y aurait pas de test à faire sur la couleur car il y a une différence MSOffice entre blanc et sans couleur...
colorindex blanc=0
pas de couleur colorindex= -4142
----------
taille maxi de "plages" ?
Pour déterminer "plages"
peut-^tre +simplement
adresse = Range("B2")
Set plages = Range(adresse)
Merci pour cette proposition de simplification que j'ai appliquée.
Pas de gain mais effectivement plus simple dans la compréhension.
Q :taille maxi de "plages" ? R: 300 lignes et 250 colonnes à partir de la cellule D4.
comment faudrait-il pratiquer si les cellule à effacer sont sans couleur ?
Bien cordialement
fais des test cellule vide ou avec une donnée avec cette macro
si on a -4142 cellule non colorée
si on a 2 couleur blanche
j'ai pas bien compris l'objectif de cette demande ?
Pour le test, actuellement je trouve bien 2 sur les cellules à supprimer.
Dans tous les cas mes cellule à effacer sont de couleur blanches, mais je peut faire en sorte qu'elles soient non colorées.
Bien cordialement