Extraire 1 cellule sur 2 puis couper / coller

[lcoulon]

Bonjour


Alors voici mon but :

j'ai une liste de valeurs de A1 à A500 je voudrais déplacer toutes les cellules paires (1 sur 2) : A2 A4 A6 A8 A10 .... etc pour les recopier à la suite dans autre colonne B .

Ainsi dans la colonne A restera les cellules A1 A3 A5 A7 ... etc ...
et B contiendra les valeurs de A2, A4, A6 etc ...

Est il possible de réaliser cela par macro ?
Je vous remercie de votre aide,

 

[Roland_M]

Re : Extraire 1 cellule sur 2 puis couper / coller

bonsoir, voir cette routine que nomme et appel comme tu veux

Sub Essai()
Sheets(1).Activate: Sheets(1).Select ' Feuille à voir !?
TotLig& = Cells(65536, 1).End(xlUp).Row ' dernière ligne
For I& = 2 To TotLig& Step 2
Cells(I, 2) = Cells(I, 1): Cells(I, 1) = ""
Next
End Sub

Roland

 

[lcoulon]

Re : Extraire 1 cellule sur 2 puis couper / coller

Merci Roland,


Si je souhaite que le traitement s'effectue sur la colonne C et partir de la cellule C3 jusqu'à C500 et déplace les cellules en concerné en colonne D à partir de D1, que dois-je modifier ?


Merci beaucoup

 

[Pierrot93]

Re : Extraire 1 cellule sur 2 puis couper / coller

Bonjour lcoulon, Roland

en l'absence de Roland, son code modifié (en rouge), si j'ai bien compris :

Sub Essai()
Sheets(1).Activate: Sheets(1).Select ' Feuille à voir !?
TotLig& = [COLOR="Red"][B]500 [/B][/COLOR]
For I& = [COLOR="red"][B]3[/B][/COLOR] To TotLig& Step 2
Cells(I [COLOR="red"][B]-2[/B][/COLOR], [COLOR="red"][B]4[/B][/COLOR]) = Cells(I, [COLOR="red"][B]3[/B][/COLOR]): Cells(I, [COLOR="red"][B]3[/B][/COLOR]) = ""
Next
End Sub

bonne journée
@+

 

[lcoulon]

Re : Extraire 1 cellule sur 2 puis couper / coller

Merci, peux tu m'expliquer le I=3
et les -2 et 4

je suppose que cela a rapport avec les n° de colonnes mais j'ai un peu de mal a comprendre le fonctionnement.

 

[Pierrot93]

Re : Extraire 1 cellule sur 2 puis couper / coller

Re

"i=3", parce que tu veux commencer à partir de la celule C3, donc 3 représente la 3ème ligne.

"-2" tu veux renvoyer les valeurs dans la colonne D, cellule D1, donc par rapport à C3 un décalege de 2 lignes est nécessaire.

"4" représente la 4ème colonne(D) , "cells" possède 2 arguments, les premier est le nuiméro de la ligne et le 2ème celui de la colonne.

en esperant avoir été suffisamment clair...

@+

 

[lcoulon]

Re : Extraire 1 cellule sur 2 puis couper / coller

Très bien expliqué, merci beaucoup

 

[lcoulon]

Re : Extraire 1 cellule sur 2 puis couper / coller

Juste un petit detail, j'ai remarqué que si les cellules en A sont vides alors l'extraction de C vers E ne se fait pas ...

Pour que cela fonctionne et que l'extraction se déroule correctement, il faut visiblement autant de lignes contenant des valeurs en A qu'en C pour , c'est bizare, non ?

Peut on demander à la macro de ne "regarder" que la colonne C ?

Sub extract1_2()

Sheets("SCAN").Activate: Sheets("SCAN").Select
Sheets("SCAN").Range("E3:E500").ClearContents

TotLig& = Cells(65536, 1).End(xlUp).Row

For i& = 4 To TotLig& Step 2

Cells(i - 1, 5) = Cells(i, 3): Cells(i, 3) = ""


Next

End Sub

 

[Roland_M]

Re : Extraire 1 cellule sur 2 puis couper / coller

bonjour, remplace la ligne
TotLig& = Cells(65536, 1).End(xlUp).Row
par

With ActiveSheet.UsedRange: TotLig& = .Cells(.Rows.Count, .Columns.Count).Row: End With

Roland