Discussion :

[Emily2711]

Bonjour,

Je dois "reformater" un tableau Excel et notamment ajouter plusieurs colonnes à certains endroits.
Je connais le code VBA pour ajouter une colonne, mais je cherche à savoir s'il est possible d'en ajouter plusieurs d'un coup, sans avoir à copier-coller le même code autant de fois que l'on souhaite ajouter de colonnes.

Merci de votre aide,

Emily.

[wilfried_42]

Bonjour et bienvenue

bonne question, je n'ai jamais essayer lol

à essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 3), Cells(1, 3+5)).EntireColumn.Insert xlToRight

[Emily2711]

je confirme : ça marche. merci !

Mais est-ce qu'on peut faire la même chose en utilisant Range plutôt que Cells ?

[laetitia]

bonjour Emily2711 wilfried_42 le forum 2 autres codes. 1 qui par de c. l autre en fonction de la selection de ta cellule. par contre le code de wilfried super bien

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro2()
Dim i As Byte
For i = 1 To 5: [c1].EntireColumn.Insert xlToRight: Next i
End Sub
Sub Macro3()
Dim i As Byte
For i = 1 To 5: Selection.EntireColumn.Insert xlToRight: Next i
End Sub

[La Zélie]

Bonsoir

j'ai adapté le code que j'utilise pour ajouter des feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub AjoutColonne()
'
' AjoutColonne Macro
' Macro enregistrée le 21/02/2009 par La Zélie
'
 
Dim col As Integer
col = InputBox("N° colonne")
Dim c As Integer
rep = 0
rep = InputBox("Nombre de colonnes à ajouter?")
If rep <> "" Then
Do While c < rep
    Columns(col).Insert
    c = c + 1
Loop
End If
 
End Sub

Les colonnes se rajoutent à gauche de la colonne choisie.

[Emily2711]

C'est génial, merci beaucoup.