Remplacer la colonne A par la colonne B Résolu/Fermé

Question

Bonjour, 

Je voudrai savoir comment on peut remplacer une colonne A par une colonne B.
En gros, prendre les données de la colonne A et les mettre dans la colonne B.
Merci d'avance :)

yannpl7 · Answer

Salut

Voici une méthode

Sub remplacement()

derlig = Range("B" & Rows.Count).End(xlUp).Row

For i = 1 To derlig
        Cells(i, 1) = Cells(i, 2)
    Next i

End Sub

manu37 · Answer

merci beaucouup :) cela fonctionne tres bien ;)

yannpl7 · Answer

De rien.

Voici une autre solution plus rapide si vous avez  beaucoup d'information
Sub remplcement2()

Columns("B:B").Select
    Selection.Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    
End Sub
 
celui qui détient le savoir détient le pouvoir

manu37 · Answer

merci ca fonctionne bien aussi :)

Remplacer la colonne A par la colonne B

4 réponses

Discussions similaires