copier cellule par cellule 2 colonnes

[klorane]

Bonsoir à tous,

voilà j'ai 2 colonnes A et B ds les quelles j'ai des valeures.

Il me faudrait une macro qui me recopie valeur par valeur dans une cellule O1 et P1 les colonnes A et B et qui efface ensuite

Exemple

A1=5 B1=2
A2=7 B2=22

copie de A1 et B1 dans O1 et P1 (O1=5 P1=2)
Effacement de O1 et P1
copie de A2 et B2 dans O1 et P1 (O1=7 P1=22)
Effacement de O1 et P1
etc..

(Avant que l'on me dise: "A quoi bon faire ça car tu ne va rien voir", il ya aura une macro entre les 2 changements sinon aucun interet)

Merci de votre aide

Klorane

 

[Cousinhub]

Re : copier cellule par cellule 2 colonnes

Bonsoir,

essaie :

For i = 1 To [A65000].End(xlUp).Row
    [O1:P1] = Cells(i, 1).Resize(1, 2).Value
Next i

 

[Spitnolan08]

Re : copier cellule par cellule 2 colonnes

Bonsoir,

(Avant que l'on me dise: "A quoi bon faire ça car tu ne va rien voir", il ya aura une macro entre les 2 changements sinon aucun interet)

Je dirais plutôt qu'en lisant un tout petit peu les codes du forum tu devrais pouvoir y arriver tout seul et même en utilisant l'enregistreur de macro... Il ne te donnerait pas cette syntaxe mais une autre équivalente.

Sub enregistrmacro()
For i = 1 To Range("A65500").End(xlUp).Row
    Range("O1") = Cells(i, 1)
    Range("P1") = Cells(i, 2)
    'ta macro
Next
End Sub

Cordialement

Edit : bonsoir bhbh

 

[Cousinhub]

Re : copier cellule par cellule 2 colonnes

Bonsoir,

essaie :

For i = 1 To [A65000].End(xlUp).Row
    [O1:P1] = Cells(i, 1).Resize(1, 2).Value
Next i

Edit, bonsoir, Spit

Ben, zut, j'a merdé, appuyé sur Citer, plutôt que Editer.....

 

[klorane]

Re : copier cellule par cellule 2 colonnes

Bonjour et merci.

c'est se qu'il me fallait!

Bonne soirée!

Klorane