Bonjour à tous,
je débute sur VBA...
J'essaie d'insérer une colonne dans plusieurs feuilles de mon classeur (mais pas toutes). Comme je vais devoir souvent agir sur cette sélection de feuilles, j'ai d'abord tenté de créer un vecteur contenant le nom de feuilles en question pour ne pas avoir à les écrire à nouveau à chaque fois :
Dans mon code général :
Public Noms_feuilles
Sub InitialiseNoms_feuilles()
Noms_feuilles = Array("ONF_COFOR", "CNPF_Fran", "Agri", "INRA", "AutRECH", "Enseigt", "PNR-Envt", "Décideurs", "Presse", "Etranger", "Coop-Exp", "Bois-Pépin", "CETEF", "Autre")
End Sub
Puis j'ai créé une boite de dialogue où l'utilisateur entre le nom de la colonne et appuie sur ok.
Ok déclenche :
Private Sub ButtonOK_Click()
'Insère la colonne dans toute les feuilles du classeur contenant des contacts
Dim i As Integer
For i = 1 To 14
Sheets(Noms_feuilles(i)).Columns("BV").Insert
Next i
Call Unload(Me)
End Sub
Cela ne fonctionne pas ...
Une idée ? Malgré mes recherches je n'ai pas trouvé d'aide ailleurs.
En vous remerciant !
Louise
je débute sur VBA...
J'essaie d'insérer une colonne dans plusieurs feuilles de mon classeur (mais pas toutes). Comme je vais devoir souvent agir sur cette sélection de feuilles, j'ai d'abord tenté de créer un vecteur contenant le nom de feuilles en question pour ne pas avoir à les écrire à nouveau à chaque fois :
Dans mon code général :
Public Noms_feuilles
Sub InitialiseNoms_feuilles()
Noms_feuilles = Array("ONF_COFOR", "CNPF_Fran", "Agri", "INRA", "AutRECH", "Enseigt", "PNR-Envt", "Décideurs", "Presse", "Etranger", "Coop-Exp", "Bois-Pépin", "CETEF", "Autre")
End Sub
Puis j'ai créé une boite de dialogue où l'utilisateur entre le nom de la colonne et appuie sur ok.
Ok déclenche :
Private Sub ButtonOK_Click()
'Insère la colonne dans toute les feuilles du classeur contenant des contacts
Dim i As Integer
For i = 1 To 14
Sheets(Noms_feuilles(i)).Columns("BV").Insert
Next i
Call Unload(Me)
End Sub
Cela ne fonctionne pas ...
Une idée ? Malgré mes recherches je n'ai pas trouvé d'aide ailleurs.
En vous remerciant !
Louise