Déplacer la valeur d'une cellule

[klorane]

Bonjour à tous,

voilà mon problème, j'ai actuellement dans une feuille excel une macro avec un bouton qui lorsque je clique sur ce bouton elle me fait apparaitre une valeur dans une cellule (exemple dans la cellule A1).

j'aimerai que lorsque je clique une première fois sur le bouton que la valeur affichée dans la cellule A1 soit copiée dans une autre cellule (exemple dans la B1).

Mais lorsque je clique une deuxieme fois sur le bouton que la nouvelle valeur affichée par le bouton en A1 soit toujours copiée en B1 mais que l'ancienne valeur de B1 soit placée maintenant dans la cellule B2

Ensuite que B2 soit placée dans B3 etc........

Merci pour l'aide que vous pourrez m'apporter
Sylvain

 

[Vico]

Bonsoir klorane!

je ne m'y connais pas beaucoup en macro mais dans une feuille normalement pour être sur que la valeur ne bouge pas, on ajoute '$' le signe de dollars à la valeur fixe.
je ne sais pas si cela va t'être utile mais ça ne coûte pas cher d'essayer

cordialement
Vico

 

[JeanMarie]

Bonjour Klorane, Vicolepro

Klorane essaye ce code.

Sub Macro1()
   Application.ScreenUpdating = False
   Range('B1').Insert Shift:=xlDown
   Range('B1') = Range('A1')
   Application.ScreenUpdating = True
End Sub

@+Jean-Marie

 

[c'est ça, sauf que...]

Merci Jean Marie c'est tout à fait se qu'il me faut!

Seul hic, c'est que dans mon exemple je me suis planté car au lieu de passé de B1 à B2 etc... j'aurai aimé que se soit sur la meme ligne

que B1 passe en C1, C1 en D1 etc...

quelle valeur faut il changé pour que ça se fasse dans ce sens?

Merci et suis désolé pour l'erreur que j'ai fait.

Sylvain

 

[C'est bon!]

après avoir fouillé un peu partout j'ai fini par trouver la solution

Encore merci pour l'aide.

Sylvain