inséré une colonne à toute les x colonne

[Evygeographe]

Bonjour

J'ai un fichier qui présente 6 variables pour chaque événement. Chaque événement est représenté dans mon fichier par 6 colonne, mais voilà que j'ai besoin d'ajouter une 7 ieme variable. Je voudrais donc ajouter une colonne à tout les 6 colonne (soit après la variable VAGUE dans l'exemple fourni).

Dans mon exemple, j'ai mis un extrait de mon fichier, mais en réalité il comporte plus de 100 événements. Je ne veux donc pas inséré manuellement une colonne chaque fois.

Merci

 

[pierrejean]

Re : inséré une colonne à toute les x colonne

Bonjour Evygeographe

A tester:

Sub insere()
Application.ScreenUpdating = False
For n = Cells(3, Columns.Count).End(xlToLeft).Column - 5 To 7 Step -6
  Columns(n).Insert
Next
Application.ScreenUpdating = True
End Sub

 

[Evygeographe]

Re : inséré une colonne à toute les x colonne

Bonjour Pierrejean,

Merci pour le code. Pour le moment, ça fait plus d'une demie-heure qu'il roulait alors, j'ai arrêter le processus. Donc je peux pas dire si ça fonctionne. Si jamais d'autres ont des idées pour améliorer le processus, je suis preneuse! Sinon je vais tenter de relancer la macro ce soir peut-être.

 

[pierrejean]

Re : inséré une colonne à toute les x colonne

Re

Le voici dans ton fichier
et a 1 ère vue chez moi cela fonctionne !!!!