Bonjour,
Je souhaite copier une colonne et l'insérer où je veux.
J'ai écrit le code suivant:
Code :
- Sub NouvelleColonne( colonne_a_copier As String, colonne_ou_copier As String, feuille_excel As Worksheet)
- feuille_excel.Columns(colonne_a_copier & ":" & colonne_a_copier).Select
- Selection.Copy
- feuille_excel.Columns(colonne_ou_copier & ":" & colonne_ou_copier).Select
- Selection.Insert Shift:=xlToRight
- 'End Sub
|
Malheureusement, j'ai des problèmes avec le "Selection" et on m'a dit qu'il y avait souvent des pbs. Je cherche donc une solution alternative (sans utiliser de selection, donc...)
Qnn peut m'aider ?
Merci!