VBA insérer 2 colonnes

[Arpette]

Bonsoir à toutes et à tous,
je rouvre un nouveau post, mon problème de filtre n'est plus d'actualité et résolu.
Mon soucis est d'insérer 2 colonnes en partant de la fin et à chaque changement de date.
J'arrive à insérer les colonnes mais supprime une partie des données.
Je joints un petit fichier.
Merci de votre aide .
@+

 

[Pierrot93]

Re : VBA insérer 2 colonnes

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 33 Step -1
    Columns(i).Resize(, 2).Insert
Next
Application.ScreenUpdating = True
End Sub

bonne journée
@+

 

[Arpette]

Re : VBA insérer 2 colonnes

Bonjour Pierrot, merci pour ce code, je vais essayer ce soir.
Bonne journée.
@+

 

[Arpette]

Re : VBA insérer 2 colonnes

Bonjour Pierrot, le code marche bien mais la macro bug quand je la lance mais fonctionne en mode pas à pas.
Je ne vois pas pourquoi.
Merci pour votre aide.
@+

 

[Arpette]

Re : VBA insérer 2 colonnes

Bonsoir à toutes et à tous,
la macro fonctionne sous Excel 2010 mais pas sous 2007
Je ne comprends pas pourquoi.
Merci de votre aide.
@+

 

[Pierrot93]

Re : VBA insérer 2 colonnes

Bonjour,

la macro fonctionne sous Excel 2010 mais pas sous 2007

vois pas trop pourquoi planterait sous 2007.... sur quelle ligne ?? vérie peut être si tu n'as pas de référence manquante dans l'éditeur vba => barre de menu => outils => références... perso pas 2007...

bonne journée
@+