Discussion :

[hochimi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Qui pourrait me dire comment on fait ça?

Merci!

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hochimi]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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