Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel parcours d'une plage optimisation de code

parcours d'une plage optimisation de code

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
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" wrote:
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


Avatar
JB
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" wrote:
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


Avatar
Daniel
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" a écrit dans le message de news:
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