Copier des cellules dans 2 cellules

[klorane]

Bonsoir à tous,

voilà j'ai 1 colonne A avec dans laquelle j'ai des valeures.

Il me faudrait une macro qui me recopie (par paire) ex: (A1 et A2), (A2 et A3), (A3 et A4).... dans une cellule O1 et O2 les valeurs de la colonne A et qu'elles s'effacent ensuite

Exemple

A1=5
A2=7
A3=8
A4=20

copie de A1 et A2 dans O1 et O2 (O1=5 O2=7)
Effacement de O1 et O2
copie de A2 et A3 dans O1 et O2 (O1=7 O2=8)
Effacement de O1 et O2
copie de A3 et A4 dans O1 et O2 (O1=8 O2=20)
Effacement de O1 et O2
etc..

Merci de votre aide

Klorane

 

[fanfan38]

Re : Copier des cellules dans 2 cellules

Bonjour
1 fichier est toujours le bienvenue...
derlig=range("a65536").end(xlup).row
for i=1 to derlig
range("O1").value=cells(i,1).value
range("O2").value=cells(i+1,1).value
range("O1:O2").clear 'effacement o1 et o2
next

A+ François

 

[Gareth]

Re : Copier des cellules dans 2 cellules

Bonsoir,

C'est marrant de copier des valeurs pour les effacer 😉
Une macro plus rapide encore :

Sub Test
End Sub

C'est pas les cellules de départ que tu veux effacer ?

 

[laetitia90]

Re : Copier des cellules dans 2 cellules

bonjour tous 🙂🙂
autrement peut être effacer apres la boucle ???? mais bon pas claire tout cela!!!

  Dim c As Range
  For Each c In Range("a1", Cells(Rows.Count, "a").End(xlUp))
  [o1:o2] = c.Resize(2).Value
  Next c
  [o1:o2].ClearContents