changer la valeur d'une cellule

[david]

Voici une macro qui resume mon probleme :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Range("B1").Value + Range("A1")
Range("A1").Value = ""
End Sub

Cet macro marche correctement, mais je desire l'appliquer de la cellule "A1" à "A270".
Que faut-il faire, peut t'on créer une zone et modifier la macro ?
Merci de m'accorder votre aide.

 

[salim]

Bonsoir David et le Forum

Alors David je suis loin d'être un pro mais tu peux essayer ça tu verras bien.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Application.intersect(target,Range("a1:a270"))+Range("b1")
Range("A1:a270").Value = ""
End Sub

@+ Salim