[excel] copie et insertion de colonnes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [excel] copie et insertion de colonnes

Myway

Bonjour,

Dans ma base de données, j'ai un certain nombre d'applications (minimum 1)
J'ai un fichier excel, avec un tableau qui au départ contient 2 colonnes: une colonne (disons D) pour la 1ère appli ( on est sûr qu'il y en a une) et une colonne "total" qui doit être la dernière colonne du tableau.

Dans un script VB, je parcours ma BD, pour la 1ère appli trouvée, je remplis la colonne D. Pour chacune des autres appli trouvées, il me faut copier la colonne D (pour garder la mise en forme + formules) et l'insérer entre D et la colonne "Total".

Je n'arrive pas à faire cela

J'ai comme piste:
feuille_excel.Columns("D:D" ).Select.copy pour sélectionner la colonne et la copier

Mais pour l'insertion, je n'arrive pas à trouver comment faire?

Merci de votre aide! :hello:

Publicité

Myway

myway a écrit :

Bon, j'ai trouvé en faisant une macro excel et en regardant le code généré (j'y avais pas pensé :ange: )
voici le code (si jamais ça peut aider qqn par la suite)

Code :

feuille_excel.Columns("D:D" ).Select
Selection.Copy
feuille_excel.Columns(colonne_ou_copier & ":" & colonne_ou_copier).Select
Selection.Insert Shift:=xlToRight

colonne_ou_copier est calculé suivant le numéro de l'application à insérer (colonne_départ (=D) + n°_appli)

Désolée du dérangement! :hello:

Myway

myway a écrit :

Code :

feuille_excel.Columns("D:D" ).Select
Selection.Copy
feuille_excel.Columns(colonne_ou_copier & ":" & colonne_ou_copier).Select
Selection.Insert Shift:=xlToRight

colonne_ou_copier est calculé suivant le numéro de l'application à insérer (colonne_départ (=D) + n°_appli)

Désolée du dérangement! :hello:

Finalement je n'ai pas totalement résolu mon pb, car je voudrais ne pas copier les valeurs qui sont dans la colonne copiée.Par contre, je voudrais conserver les formules... C'est possible ça? :??:

:hello:

JihemAir

Je sais pas

Pourquoi tu ne reprogrammes pas ta colonne "Total" à chaque fois ? Je suppose que chaque cellule de cette colonne est une somme, facile à programmer. Ca t'eviterait toute cette gymnastique d'insertion....

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

pumpkin0312

Code :

Columns("ref Colonne ou inserer" ).Select
Selection.Insert Shift:=xlToRight
Columns("ref Colonne modèle" ).Select
Selection.Copy
Columns(colonne_ou_copier & ":" & colonne_ou_copier).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Myway

Merci pour l'aide de vous tous, ça marche très bien :love:

Je rencontre un autre pb
J'ai créé et ouvert une feuille excel avec 2 onglets.Je m'intéresse pour commencer au 1er onglet "correction". Voilà la code.

Code :

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application" )
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(chemin_report & annee_courant & mois_entier & jour_entier & heure_entiere & minute_entiere & seconde_entiere & nom_report & nom_cluster & "_from_" & li_annee_analyse & li_mois_analyse_entier & ".xls" )
'wsExcel correspond à la feuille correction
Set wsExcel = wbExcel.Worksheets("correction" )

J'appelle ensuite une fonction pour copier la colonne et l'insérer là où je veux:

Code :

Call NouvelleColonne((premiere_ligne - 1), "D", col_ou_copier, wsExcel)
Sub NouvelleColonne(ligne_debut As Integer, colonne_a_copier As String, colonne_ou_copier As String, feuille_excel As Excel.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
' effacement des valeurs de la colonne copiée
Dim ligne_fin As Integer
ligne_fin = ligne_debut + 12
Range(colonne_ou_copier & ligne_debut & ":" & colonne_ou_copier & ligne_fin).Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Quand j'exécute, j'ai une erreur à la 1ère ligne de la fonction: "select methode of Range class failed" ..

Toutes mes variables sont bonnes. La seule que je ne peux pas vérifier, c'est feuille_excel, et je pense que ça vient de là. Mais pourquoi ? :??:

Merci! :hello:

P.S: vous verrez que j'ai pas tout à fait suivi ce que vous m'avez conseillé, mais ça correspond mieux à ce que je veux (vider que qqs cellules)

Message édité par Myway le 17-06-2004 à 15:00:57

Myway

Pour faire plus simple (j'ai avancé encore dans mes tests), la ligne

Code :

wsExcel.Columns("D:D" ).Select

placée juste après la déclaration et l'ouverture de l'objet excel (voir 1ère partie de code du post précédent) ne marche pas! (erreur : select methode of Range class failed)

Une idée ? :??:
:hello:

JihemAir

Je sais pas

Je pense qu'il faut que la feuille soit active avant de sélectionner une colonne.
wsExcel.Activate

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

Myway

JihemAir a écrit :

Je pense qu'il faut que la feuille soit active avant de sélectionner une colonne.
wsExcel.Activate

Merci beaucoup!
Pourtant c'est bizarre, j'ai un autre script quasiment identique, et là, pas besoin du .activate... Enfin bon, ça marche, c'est l'essentiel!

Encore merci! :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[excel] copie et insertion de colonnes

Sujets relatifs
Petit pb simple de macro excel	[VBA][Excel] Rollover
double pb vb excel	Changer le couleur d'une cellule d'un fichier Excel
Délimiteur dans Excel 97 (fichiers CSV)	besoin d'aide en visual basic sur excel (base de données)
excel-->my SQL	fusionnement des fichiers excel en java
[Résolu][PostgreSQL 7.4.2] pb d'insertion de caractères accentués	Multi insertion
Plus de sujets relatifs à : [excel] copie et insertion de colonnes

Page générée en 0.075 secondes