Optimisation vitesse de traitement

Résolu

crouault67 Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
crouault67 Messages postés 20 Date d'inscription Statut Membre Dernière intervention - 12 juin 2015 à 13:44

Bonjour,

Dans un fichier excel, je recupere les donnees issues d'un autre fichier, pas de soucis. toutefois, ces donnees pour diverses raisons, comportent des erreurs sur des caracteres tels que "è", "î", .... m'ayant obligée a mettre en place une macro de remplacement de ces "erreurs" par les bons caracteres afin de permettre une exploitation et une lisibilite coherentes des donnees de ce fichier.
voici la macro utilisee :

Sub correctif_01()
Dim Cel As Range
For Each Cel In Range("Etat_liste_commandes!C2:E500") '*** plage à définir
Cel = WorksheetFunction.Substitute(Cel, "Ã©", "é")
Cel = WorksheetFunction.Substitute(Cel, "Ã®", "î")
Cel = WorksheetFunction.Substitute(Cel, "ï¿½", "ô")
Cel = WorksheetFunction.Substitute(Cel, "Ã¨", "è")
Cel = WorksheetFunction.Substitute(Cel, "'", "'")
Cel = WorksheetFunction.Substitute(Cel, "Ã¢", "â")
Cel = WorksheetFunction.Substitute(Cel, "Ãª", "ê")
Cel = WorksheetFunction.Substitute(Cel, "Ã§", "ç")
Cel = WorksheetFunction.Substitute(Cel, "Ã", "à")
Next Cel
End Sub

cette derniere fonctionne parfaitement, en revanche j'aurais voulu savoir si il etait possible de l'optimiser en termes de gain de temps afin qu'elle s'execute plus rapidement, sachant qu'en fonction des entrees hebdomadaires, toutes les cellules ne sont pas remplies.

ces cellules ne comportent que des donnees et aucune formule (je procede a un envoi de donnees dans la page desiree afin de n'obtenir que les donnees et aucune formule).

merci de votre aide
Corine

Afficher la suite

A voir également:

Optimisation vitesse de traitement
Optimisation pc - Accueil - Utilitaires
Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
Test vitesse pc - Guide
Vitesse du processeur - Guide
Augmenter vitesse pc windows 10 - Guide

1 réponse

Réponse 1 / 1

JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention 859

Bonjour,

essaye ça :

Sub correctif_01()
With Range("Etat_liste_commandes!C2:E500") '*** plage à définir
    .Replace What:="Ã©", Replacement:="é", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ã®", Replacement:="î", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="ï¿½", Replacement:="ô", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ã¨", Replacement:="è", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="'", Replacement:="'", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ã¢", Replacement:="â", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ãª", Replacement:="ê", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ã§", Replacement:="ç", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="Ã", Replacement:="à", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
End Sub

cordialement

crouault67 Messages postés 20 Date d'inscription Statut Membre Dernière intervention

un grand merci, cela fonctionne du feu de Dieu !!!

Discussions similaires

une image de quelque seconde sur une vidéo

Votre réponse

Discussions similaires