parcours d'une plage optimisation de code

Le
maxou07
Bonjour,
j'ai un bout de code pour parcourir une plage de cellules :
XXXXXXXXXXXXXXXXXXXXX
Dim Plage As Range, Cellule As Range
Set Plage = Range("A1:G12") 'on défini la plage de cellules qui sera
parcourue
For Each Cellule In Plage ' on parcourt la plage

' ***************************
' NomChantier
' ***************************
NomChantier = LireCleIni("LISTE", "NomChantier", CheminIni)
Cellule.Value = Replace(Cellule.Value, "||NomChantier||", NomChantier)

Next Cellule ' on boucle sur la cellule suivante
XXXXXXXXXXXXXXXXXXXXX

Je trouve que le temps de parcours est trop long. Y a-t-il un moyen
d'accélérer
le parcours . avec un autre code?
Merci pour votre aide.

Maxou 07
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4899491
Bonsoir,

Utiliser la commande Replace;

[A:A].Replace What:="Mr", Replacement:="M."

http://boisgontierjacques.free.fr/fichiers/Replace.xls

JB
http://boisgontierjacques.free.fr/

On 12 juil, 22:57, "maxou07"
Bonjour,
j'ai un bout de code pour parcourir une plage de cellules :
XXXXXXXXXXXXXXXXXXXXX
Dim Plage As Range, Cellule As Range
Set Plage = Range("A1:G12") 'on défini la plage de cellules qui s era
parcourue
For Each Cellule In Plage ' on parcourt la plage

' ***************************
' NomChantier
' ***************************
NomChantier = LireCleIni("LISTE", "NomChantier", CheminIni)
Cellule.Value = Replace(Cellule.Value, "||NomChantier||", NomChanti er)

Next Cellule ' on boucle sur la cellule suivante
XXXXXXXXXXXXXXXXXXXXX

Je trouve que le temps de parcours est trop long. Y a-t-il un moyen
d'accélérer
le parcours .... avec un autre code?
Merci pour votre aide.

Maxou 07


JB
Le #4899471
Bonsoir,

Utiliser la commande Replace.

http://boisgontierjacques.free.fr/fichiers/Replace.xls

[A:A].Replace What:="Mr", Replacement:="M."

JB

On 12 juil, 22:57, "maxou07"
Bonjour,
j'ai un bout de code pour parcourir une plage de cellules :
XXXXXXXXXXXXXXXXXXXXX
Dim Plage As Range, Cellule As Range
Set Plage = Range("A1:G12") 'on défini la plage de cellules qui s era
parcourue
For Each Cellule In Plage ' on parcourt la plage

' ***************************
' NomChantier
' ***************************
NomChantier = LireCleIni("LISTE", "NomChantier", CheminIni)
Cellule.Value = Replace(Cellule.Value, "||NomChantier||", NomChanti er)

Next Cellule ' on boucle sur la cellule suivante
XXXXXXXXXXXXXXXXXXXXX

Je trouve que le temps de parcours est trop long. Y a-t-il un moyen
d'accélérer
le parcours .... avec un autre code?
Merci pour votre aide.

Maxou 07


Daniel
Le #4899461
Bonsoir.
Ton code est correct. Au plus, ajoute :
Set plage = Nothing
pour libérer de la mémoire, mais c'est dérisoire. Le problème doit venir de
"LireCleIni".
Cordialement.
Daniel
"maxou07" 4696960f$0$5095$
Bonjour,
j'ai un bout de code pour parcourir une plage de cellules :
XXXXXXXXXXXXXXXXXXXXX
Dim Plage As Range, Cellule As Range
Set Plage = Range("A1:G12") 'on défini la plage de cellules qui sera
parcourue
For Each Cellule In Plage ' on parcourt la plage

' ***************************
' NomChantier
' ***************************
NomChantier = LireCleIni("LISTE", "NomChantier", CheminIni)
Cellule.Value = Replace(Cellule.Value, "||NomChantier||", NomChantier)

Next Cellule ' on boucle sur la cellule suivante
XXXXXXXXXXXXXXXXXXXXX

Je trouve que le temps de parcours est trop long. Y a-t-il un moyen
d'accélérer
le parcours .... avec un autre code?
Merci pour votre aide.

Maxou 07





Publicité
Poster une réponse
Anonyme