Réduire ma macro

[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 = ""
Range("B2") = Range("B2").Value + Range("A2")
Range("A2").Value = ""
Range("B3") = Range("B3").Value + Range("A3")
Range("A3").Value = ""
End Sub


Je voudrais faire la même chose jusqu'à la cellule "A270".

Mes connaissances m'oblige à écrire 270 fois le corps de la macro. Pourrier-vous m'aider à l'écrire plus facilement?.
Je pense qu'il faudrait peut-ètre créer une zone et faire un décalage Offset.
Aider-moi !!!!

 

[salim]

Bonsoir David et le Forum

David pas sympa je te propose une solution tu ne me répond pas et en plus tu crée un nouveau lien.


<http://www.excel-downloads.com/html/French/forum/messages/1_102986_102986.htm>

@+ Salim

 

[david]

Excuse salim, je suis encore sur le forum, et j'était en train de répondre à un autre.
Je te remercie de ton aide mais ça ne marche pas correctement.
J'ai crée un nouveau lien car j'ai compris je ne n'avais pas été assez clair.
Je passe beaucoup de temps sur le forum et je ne me serais pas permis de ne pas te répondre...

 

[salim]

Re David et le Forum

C'est bon pour moi David néanmoins je pense qu'il aurai été plus logique de rester sur le même Fil et de mieux explicité ta demande je pense sincèrement que c'est la bonne habitude à prendre.
Mais bien sûr tes excuses sont acceptées bien volontier alors trinquons!.



@+ Salim