Intercaler plusieurs colonnes vides puis copier coller Fermé

Question

Bonjour, 

J'ai un classeur excel avec des donner et je veux intercaler des colonnes vides entre mes colonnes contenant des données puis copier le contenu de la première colonne pour les coller ensuite dans chacune des colonnes vides insérées. 
Aidez moi SVP avec un code vba. Merci d'avance


Configuration: Windows / Chrome 97.0.4692.99

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Sub Select_Insert_Column()
Dim DerniereColonneUtilisee As Integer
Dim DerniereLigneUtilisee As Long
Dim i As Integer
Application.ScreenUpdating = False
DerniereLigneUtilisee = Cells(Rows.Count, 1).End(xlUp).Row 'où X est le numéro de la colonne donnée (ex. 1 pour la colonne "A")
DerniereColonneUtilisee = Cells(1, Columns.Count).End(xlToLeft).Column 'où X est le numéro de la ligne
For i = DerniereColonneUtilisee To 3 Step -1
    Cells(1, i).EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A1:A" & DerniereLigneUtilisee).Copy
    Cells(1, i).Select
    ActiveSheet.Paste
    Application.ScreenUpdating = True
Next i
End Sub

titi · Answer

Waouh! Merci beaucoup Le Pivert, ça fonctionne parfaitement. En plus c'est très rapide! Super!

Intercaler plusieurs colonnes vides puis copier coller

2 réponses

Discussions similaires