VBA Excel: Ajout auto d'une colonne dans différents onglets
Résolu/Fermé
A voir également:
- VBA Excel: Ajout auto d'une colonne dans différents onglets
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
7 déc. 2013 à 20:27
7 déc. 2013 à 20:27
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
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
7 déc. 2013 à 20:48
7 déc. 2013 à 20:48
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
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
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
7 déc. 2013 à 20:00
7 déc. 2013 à 20:00
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
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
7 déc. 2013 à 20:34
Merci!