modifier une macro pour insérer une colonne sur deux

[La Vouivre]

Je cherche à modifier une macro pour insérer une colonne sur deux dans un tableau.
Je vous mets un fichier exemple pour mieux comprendre ce que je cherche.
Je sais insérer des cellules mais ce que je cherche c’est la colonne entière à insérer .
J’ai une macro qui insère plusieurs colonnes, mais pas décaler, et je n’arrive pas à modifier mon code pour mettre une colonne sur deux.
Merci pour tous vos travaux

 

[Staple1600]

Re : modifier une macro pour insérer une colonne sur deux

Bonjour


Pour inséer 1 colonne sur 2 à partir de A1

Sub colonnes()
Dim i as Long
For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
Cells(1, i + 1).EntireColumn.Insert
Next
End Sub

 

[La Vouivre]

Re : modifier une macro pour insérer une colonne sur deux

Merci beaucoup pour ce beau travail
J’ai modifié le code pour plus l’adapter à mes besoins
Je te repasse le code modifié

Dim i as long
Dim i As Long
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
Cells(1, i + 1).EntireColumn.Insert
Next
End Sub

Bon week end

 

[Staple1600]

Re : modifier une macro pour insérer une colonne sur deux

Re

Une version plus sûre

Sub Macro2()
Dim NBCol As Long
Dim i As Long
Application.ScreenUpdating = False
NBCol = ActiveSheet.UsedRange.Columns.Count
For i = NBCol To 1 Step -1
If NBCol <= 127 Then
Cells(1, i).Offset(0, 1).EntireColumn.Insert
Else
End
End If
Next
Application.ScreenUpdating = True
End Sub

Car sous Excel 200, il n'y a que 256 colonnes

 

[La Vouivre]

Re : modifier une macro pour insérer une colonne sur deux

Encore merci
C’est ce que je recherchais.
Bonne soirée