Discussion :

[zemeilleurofgreg]

Bonjour à tous,

J'essaie de supprimer plusieurs colonnes dans un même fichier Excel mais je rencontre le problème suivant :

Pour supprimer une colonne, il n'y a pas de problème mais pour en supprimer plusieurs ...

En effet, lorsque je supprime la colonne A, la colonne B devient automatiquement la colonne A et la colonne C devient la colonne B etc ...

Quelqu'un a une idée de la façon de faire ?
Merci d'avance

[qi130]

Il y a sûrement moyen en calquant le code sur une macro qui ferait ça...

En attendant, si tu dois supprimer les colonnes B,C et D, tu peux toujours supprimer 3 fois la B, ou commencer par supprimer la dernière (D), puis la précedente, etc...

[zemeilleurofgreg]

oui j'ai essayé en calquant sur une macro mais la macro utilise une méthode "selection" qui me provoque une errreur "l'objet automation ne connais pas ce ....." lors de l'exécution.

[anapurna]

salut

Code :

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

1
2
3
4
5
6
 
var
xlSheet  : OLEVariant;
begin
  xlSheet := OpExcel.ActiveSheet;
  xlSheet.Columns[numCol].EntireColumn.Delete;

@+ Phil

[zemeilleurofgreg]

Bonjour anapurna,

Code :

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

xlSheet.Columns[numCol].EntireColumn.Delete;

c'est exactement ça que je fais mais comme je l'ai expliqué dans ma question, le problème est que lorsque je supprime la colonne 'A' la colonne 'B' devient la colonne 'A' et ainsi de suite et c'est la même chose si je remplace le nom de la colonne par son index.

Il faudrait que je puisse activer toute les colonnes que je dois supprimer afin de les virer en une fois.

[anapurna]

salut

bin c'est logique .
tu aurai le même problème dans un tlist on commence toujours par le plus grand et on redescends

[edit]
essai cela

Code :

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

1
2
3
 
      ExcelApp.Range['A1','C1'].Select;
      ExcelApp.Selection.EntireColumn.delete;

@+ Phil

[zemeilleurofgreg]

tu aurai le même problème dans un tlist on commence toujours par le plus grand et on redescends

Effectivement c'est de la logique pur mais j'y avait pas pensé.
Je cherchais beaucoup trop loin !

Merci beaucoup

@+