halecs93
XLDnaute Impliqué
Bonjour à tout le monde,
J'ai écrit (très modestement) ce code
Sub AJOUT_COLONNE()
For i = 1 To Range("A1")
Sheets(Array("Feuil1", "Feuil2")).Select
Columns("F:F").Insert Shift:=xlDown
Sheets("Feuil1").Select
Next i
End Sub
Il a pour but d'insérer un certains nombres (défini en A1) de colonnes (arbitrairement à partir de F:F). Je sélectionne les deux feuilles, toujours en vba, mais l'ajout des colonnes ne se fait que sur la feuil1
Quelqu'un pourrait me conseiller ?
Merci
J'ai écrit (très modestement) ce code
Sub AJOUT_COLONNE()
For i = 1 To Range("A1")
Sheets(Array("Feuil1", "Feuil2")).Select
Columns("F:F").Insert Shift:=xlDown
Sheets("Feuil1").Select
Next i
End Sub
Il a pour but d'insérer un certains nombres (défini en A1) de colonnes (arbitrairement à partir de F:F). Je sélectionne les deux feuilles, toujours en vba, mais l'ajout des colonnes ne se fait que sur la feuil1
Quelqu'un pourrait me conseiller ?
Merci