macro pour copier une valeur dans une cellule

[klorane]

Bonsoir à tous!

voilà j'ai dans une colonne de M2 à M250 des valeurs.

Exemple : M2 = 28; M3=56; M4=12 etc.... M250=26

Je souhaiterais avoir une macro (lancez à partir d'un bouton)qui me permette de copier les valeurs situées en colonne M dans une cellule O1

1 - Je clique sur le bouton qui lance la macro
2 - la valeur M2 est copiée en O1.
3 - la valeur O1 est effacée
4 - la valeur M3 est copiée en O1 etc...

Il est bien entendu que par la suite j'ajouterai des lignes dans la macro car sinon il n'y aurait aucun interet à ça! ;-)

Merci pour votre aide.

Laurent.

 

[JYLL]

Re : macro pour copier une valeur dans une cellule

Bonsoir Klorane et le forum;
voici un code qui devrait te permttre ce que tu souhaites.

Sub Cut_M_Paste_0()
Dim I as Long
For I = 2 to range("M65536").End(Xlup).Row
    Range("M" & I).Select
    Selection.Cut
    Range("O1").Select
    ActiveSheet.Paste
Next I
End Sub

Bon test.

 

[Catrice]

Re : macro pour copier une valeur dans une cellule

Bonsoir,

Voici un exemple.
Le Clearcontents n'est pas obligatoire, puisque la valeur sera écrasée à chaque fois.
Voir version light plus bas.

Sub test()
For Each X In Sheets("Feuil1").Range("M2:M250")
Sheets("Feuil1").Range("O1").Value = X.Value
'Placer ici ton code
Sheets("Feuil1").Range("O1").ClearContents
Next
End Sub

Sub test()
For Each X In [M2:M250]
[O1] = X
'Placer ici ton code
Next
End Sub

 

[klorane]

Re : macro pour copier une valeur dans une cellule

Merci à vous c'est se qu'il me fallait.

Bonne soirée

Laurent