Bonsoir à tous,
Tout est dit dans l'énoncé du problème: Une macro bien rédigée peut-elle faire gagner des secondes en tps d'exécution?
En effet j'ai rédigé la macro que je vous livre ci-dessous (vous la trouverez également dans le fichier joint), et j'aimerais connaître:
1. si il y a moyen de simplifier sa rédaction? (car dans mon fichier intégral & originel, comprenant environ une vingtaine de macros , elle met 11 secondes pour aboutir)
2. Cela pourrait-il permettre de gagner des secondes lors de son exécution?
Sub Confirmation()
Dim I As Integer
For I = 108 To 160 'Lignes 108 à 160
Cells(I, 69).Font.Name = Wingdings"
Next
For I = 108 To 111
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3 'Couleur Rouge
Next
For I = 112 To 127
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5 'Couleur Bleu
Next
For I = 128 To 130
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
For I = 131 To 153
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5
Next
For I = 154 To 156
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
For I = 157 To 157 'Lignes 157
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5
Next
For I = 158 To 160
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
End Sub
Avec tous mes remerciements /.
Tout est dit dans l'énoncé du problème: Une macro bien rédigée peut-elle faire gagner des secondes en tps d'exécution?
En effet j'ai rédigé la macro que je vous livre ci-dessous (vous la trouverez également dans le fichier joint), et j'aimerais connaître:
1. si il y a moyen de simplifier sa rédaction? (car dans mon fichier intégral & originel, comprenant environ une vingtaine de macros , elle met 11 secondes pour aboutir)
2. Cela pourrait-il permettre de gagner des secondes lors de son exécution?
Sub Confirmation()
Dim I As Integer
For I = 108 To 160 'Lignes 108 à 160
Cells(I, 69).Font.Name = Wingdings"
Next
For I = 108 To 111
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3 'Couleur Rouge
Next
For I = 112 To 127
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5 'Couleur Bleu
Next
For I = 128 To 130
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
For I = 131 To 153
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5
Next
For I = 154 To 156
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
For I = 157 To 157 'Lignes 157
Cells(I, 69).Value = "ü"
Cells(I, 69).Font.ColorIndex = 5
Next
For I = 158 To 160
Cells(I, 69).Value = "ï"
Cells(I, 69).Font.ColorIndex = 3
Next
End Sub
Avec tous mes remerciements /.