thomlau
XLDnaute Occasionnel
Bonjour à toutes et à tous.
Je fais appel à vos lumières car j'ai un problème que je n'arrive pas à résoudre.
J'ai créé une macro qui me permet de classer dans des colonnes, divers nombres.
Pour chaque cellule d'une colonne (de la ligne 10 à 1000), si la valeur de la cellule est supérieure ou égale à 7, je remplace cette valeur par le chiffre 1, si la cellule est non vide est que sa valeur est inférieure à 7, je divise cette valeur par 7.
La macro fonctionne, mais le hic c'est le temps d'éxécution...
Voici à quoi ressemble ce code :
Y'aurait t'il quelqu'un qui pourrait m'aider?
D'avance merci
Je fais appel à vos lumières car j'ai un problème que je n'arrive pas à résoudre.
J'ai créé une macro qui me permet de classer dans des colonnes, divers nombres.
Pour chaque cellule d'une colonne (de la ligne 10 à 1000), si la valeur de la cellule est supérieure ou égale à 7, je remplace cette valeur par le chiffre 1, si la cellule est non vide est que sa valeur est inférieure à 7, je divise cette valeur par 7.
La macro fonctionne, mais le hic c'est le temps d'éxécution...
Voici à quoi ressemble ce code :
Code:
Sub demo()
Dim cell
For Each cell In Range("A10:A1010")
If cell.Value <= 7 Then
cell.Value = 1
ElseIf cell.Value <> "" And cell.Value < 7 Then
cell.Value = cell.Value / 7
End If
Next
End Sub
Y'aurait t'il quelqu'un qui pourrait m'aider?
D'avance merci