J'utilise la macro ci-dessous (développée par Pierre Fauconnier) :
Sub MaMacro()
AlternerCellulesPlages Range("AJ93:AJ130")
AlternerCellulesPlages Range("AJ133:AJ173")
AlternerCellulesPlages Range("AN94:AN130")
...
End Sub
Sub AlternerCellulesPlages(Plage As Range)
Dim i As Long
For i = 1 To Plage.Cells.Count Step 2
Plage.Cells(i).font.colorindex = 2
Next i
End Sub
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
Pierre Fauconnier
Bonjour
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les plages utilsées, tes tableaux sont conséquents, donc le recalcul lors d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages, puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu réalises autant de fois les lignes ajoutées que tu lances la macro Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) : Sub MaMacro() AlternerCellulesPlages Range("AJ93:AJ130") AlternerCellulesPlages Range("AJ133:AJ173") AlternerCellulesPlages Range("AN94:AN130") ... End Sub
Sub AlternerCellulesPlages(Plage As Range) Dim i As Long For i = 1 To Plage.Cells.Count Step 2 Plage.Cells(i).font.colorindex = 2 Next i End Sub
Par contre quand j'ajoute (en dernier avant End Sub) : [BK578] = "A" la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ? Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
-- Pierre Fauconnier Il n'y a jamais eu un moment dans votre vie qui ne se passait pas "maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du moment présent")
Bonjour
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les
plages utilsées, tes tableaux sont conséquents, donc le recalcul lors
d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages,
puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu
réalises autant de fois les lignes ajoutées que tu lances la macro
Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans
la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) :
Sub MaMacro()
AlternerCellulesPlages Range("AJ93:AJ130")
AlternerCellulesPlages Range("AJ133:AJ173")
AlternerCellulesPlages Range("AN94:AN130")
...
End Sub
Sub AlternerCellulesPlages(Plage As Range)
Dim i As Long
For i = 1 To Plage.Cells.Count Step 2
Plage.Cells(i).font.colorindex = 2
Next i
End Sub
Par contre quand j'ajoute (en dernier avant End Sub) :
[BK578] = "A"
la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ?
Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les plages utilsées, tes tableaux sont conséquents, donc le recalcul lors d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages, puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu réalises autant de fois les lignes ajoutées que tu lances la macro Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) : Sub MaMacro() AlternerCellulesPlages Range("AJ93:AJ130") AlternerCellulesPlages Range("AJ133:AJ173") AlternerCellulesPlages Range("AN94:AN130") ... End Sub
Sub AlternerCellulesPlages(Plage As Range) Dim i As Long For i = 1 To Plage.Cells.Count Step 2 Plage.Cells(i).font.colorindex = 2 Next i End Sub
Par contre quand j'ajoute (en dernier avant End Sub) : [BK578] = "A" la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ? Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
-- Pierre Fauconnier Il n'y a jamais eu un moment dans votre vie qui ne se passait pas "maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du moment présent")
Nicoh
Bonjour Pierre,
Merci pour ta réponse. C'est exactement ce qu'il me fallait. C'est maintenant rapide.
Nicoh
Bonjour
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les plages utilsées, tes tableaux sont conséquents, donc le recalcul lors d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages, puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu réalises autant de fois les lignes ajoutées que tu lances la macro Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) : Sub MaMacro() AlternerCellulesPlages Range("AJ93:AJ130") AlternerCellulesPlages Range("AJ133:AJ173") AlternerCellulesPlages Range("AN94:AN130") ... End Sub
Sub AlternerCellulesPlages(Plage As Range) Dim i As Long For i = 1 To Plage.Cells.Count Step 2 Plage.Cells(i).font.colorindex = 2 Next i End Sub
Par contre quand j'ajoute (en dernier avant End Sub) : [BK578] = "A" la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ? Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
-- Pierre Fauconnier Il n'y a jamais eu un moment dans votre vie qui ne se passait pas "maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du moment présent")
Bonjour Pierre,
Merci pour ta réponse. C'est exactement ce qu'il me fallait. C'est
maintenant rapide.
Nicoh
Bonjour
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les
plages utilsées, tes tableaux sont conséquents, donc le recalcul lors
d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages,
puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu
réalises autant de fois les lignes ajoutées que tu lances la macro
Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans
la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) :
Sub MaMacro()
AlternerCellulesPlages Range("AJ93:AJ130")
AlternerCellulesPlages Range("AJ133:AJ173")
AlternerCellulesPlages Range("AN94:AN130")
...
End Sub
Sub AlternerCellulesPlages(Plage As Range)
Dim i As Long
For i = 1 To Plage.Cells.Count Step 2
Plage.Cells(i).font.colorindex = 2
Next i
End Sub
Par contre quand j'ajoute (en dernier avant End Sub) :
[BK578] = "A"
la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ?
Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")
Merci pour ta réponse. C'est exactement ce qu'il me fallait. C'est maintenant rapide.
Nicoh
Bonjour
1. il y peut-être un calcul automatique qui ralentit l'histoire. Vu les plages utilsées, tes tableaux sont conséquents, donc le recalcul lors d'une modification de cellule peut être lent.
2. Pourquoi ajouter ces lignes dans la macro AlternerCellulesPlages, puisque les données sont en dur dans les lignes ajoutées. Dès lors, tu réalises autant de fois les lignes ajoutées que tu lances la macro Alterner... et donc autant de fois un recalcul, à mon sens inutile.
Place plutôt les lignes ajoutées après tous les appels à Alterner dans la macro principale
Ok?
Bonjour à tous,
J'utilise la macro ci-dessous (développée par Pierre Fauconnier) : Sub MaMacro() AlternerCellulesPlages Range("AJ93:AJ130") AlternerCellulesPlages Range("AJ133:AJ173") AlternerCellulesPlages Range("AN94:AN130") ... End Sub
Sub AlternerCellulesPlages(Plage As Range) Dim i As Long For i = 1 To Plage.Cells.Count Step 2 Plage.Cells(i).font.colorindex = 2 Next i End Sub
Par contre quand j'ajoute (en dernier avant End Sub) : [BK578] = "A" la macro s'éxécute en plus de trente secondes.
Est-ce normal pour cette simple instruction ? Si non, comment procéder ?
D'avance merci pour vos réponses,
Nicoh
-- Pierre Fauconnier Il n'y a jamais eu un moment dans votre vie qui ne se passait pas "maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du moment présent")