Copier des cellules dans 2 cellules

klorane

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 
Dernière édition:

laetitia90

XLDnaute Barbatruc
Re : Copier des cellules dans 2 cellules

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

Code:
  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
 

Discussions similaires

Réponses
12
Affichages
606

Statistiques des forums

Discussions
312 896
Messages
2 093 386
Membres
105 716
dernier inscrit
jrmdprt