Incrémenter toute une colonne

Bonjour.

Je suis face à un problème qui a l'air un peu idiot comme ça mais bon...:

Je n'arrive pas à incrémenter d'une certaine valeur tout une colonne (ou plus généralement un Range.

Dans l'idée il faudrait avoir:

Code:

---

Range ("A1:A23").Value = Range("A1:A23").Value + 10

---

Qui pourrait me dire comment on fait ça?

Merci!

Code:

---

1 2 3 4

dim cell as range for each cell in Range ("A1:A23") cell.value = cell.value +10 next

---

Faire un boucle For est beaucoup trop long... J'ai plus de 8000 lignes!

tu peux mettre le montant a additionner dans une cellule, la copier et coller spécial en addition sur ta sélection

Code:

---

1 2 3 4 5 6 7

'contient le montant a additionner Range("D2").Select Selection.Copy Range("A1:A23").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:=False

---