VBA Excel: Ajout auto d'une colonne dans différents onglets Résolu/Fermé

Question

Bonjour, 

Je dispose d'un classeur Excel comportant plusieurs onglets.
Je cherche tout simplement un code vba pouvant me permettre d'ajouter automatiquement une colonne (tjr au même endroit) à partir du troisième onglet et jusqu'au dernier et que je pourrai appliquer à d'autres classeurs dont les onglets pourront porter des noms différents mais ce sera tjr du troisième au dernier.

Merci pour votre aide!

Configuration: Windows 7 / Firefox 18.0

Mike-31 · Answer

Bonsoir

un code pour sélectionner de la feuille 3 à la dernière et insérer une colonne en colonne F sur les feuille sélectionnée 

Sub Insertion()
'
Sheets(3).Select
For i = 3 To Sheets.Count
Sheets(i).Select (False)
Next
     Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets(1).Select
End Sub
 
ce code peut être perfectionné en limitant le déplacement pendant l'exécussion

Mike-31 · Answer

Re,

sépare la sélection des feuille avant l'insertion de la colonne  

Sub Insertion()
'
Sheets(3).Select
For i = 3 To Sheets.Count
Sheets(i).Select (False)
Next
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
     Sheets(1).Select
End Sub

Mike-31 · Answer

Re,

tu as remarqué pendant l'exécution du code un déplacement sur les feuilles, tu peux bloquer ce déplacement en ajoutant une ligne en début et fin de code

Sub Insertion()
    Application.ScreenUpdating = False
    Sheets(3).Select
    For i = 3 To Sheets.Count
    Sheets(i).Select (False)
    Next
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
     Sheets(1).Select
     Application.ScreenUpdating = True
End Sub