VBA delphi traduction

Version imprimable

21/02/2012, 16h08
titou31000

VBA delphi traduction

Bonjour à tous!!

Voila je bataille sur quelque chose depuis quelques minutes et je sèche lamentablement...

J'ai ce code en VBA qui sélectionne une plage de cellules sous Excel

Code:

ctiveSheet.Range(ActiveSheet.Range("E1").End(xlDown), ActiveSheet.Range("E65536").End(xlUp)).Select

J'aimerais faire la même chose sous Delphi et je n'y arrive pas...

Code:

xlSheet.Range[xlSheet.Range['E1'].End[xlDown], xlSheet.Range['E65536'].End[xlUp]].Select;

Voila ce que je pensais être la solution mais cela ne me sélectionne que la dernière cellule...

A l'aide, s'il vous plait :)

Bonjour,

Le code est moins verbeux sous Delphi.
Pour sélectionner un ensemble de cellules :

Code:

1
2
3
4
5
6
7
8
9
var
  ExcelApp : TExcelApplication;
//...
  ExcelApp := TExcelApplication.Create(Application.MainForm);
  ExcelApp.Connect;
  ExcelApp.Workbooks.Add(Null, 0);
  ExcelApp.Visible[0] := True;
// Je sélectionne un ensemble
  ExcelApp.Range['A1', 'C5'].Select;

--
Philippe.

22/02/2012, 11h57
titou31000

Bonjour,

Oui ce qu'il y a c'est que les deux arguments de range évoluent au fil des traitements, ce n'est pas toujours les cellules A1 et C5 pour reprendre ton cas
22/02/2012, 12h32
Ph. B.

D'accord, mais il eut été préférable que cela soit mieux explicité... ;)

Code:

xlSheet.Range[xlSheet.Range['E1', 'E1'].End_[xlDown], xlSheet.Range['E65536', 'E65536'].End_[xlUp]].Select;

--
Philippe.
22/02/2012, 14h07
titou31000

Oui c'est vrai je n'avais pas précisé!!

Alors la ligne compile mais la sélection n'est pas bonne, cela ne me sélectionne que la dernière cellule utilisée...De plus, le caractère "_" après le End ne passe pas, je l'ai donc enlevé, je ne sais pas pourquoi cela ne passe pas...
22/02/2012, 17h45
Ph. B.

Citation:

Envoyé par titou31000

Alors la ligne compile mais la sélection n'est pas bonne, cela ne me sélectionne que la dernière cellule utilisée...De plus, le caractère "_" après le End ne passe pas, je l'ai donc enlevé, je ne sais pas pourquoi cela ne passe pas...

Ah ? :? je viens de vérifier sur mon pc (Delphi 7, unité Excel97 et Excel 2000), la sélection des cellules est correcte...

Quelle version de Delphi et d'unité d'interface pour Excel utilisez vous ?
--
Philippe.
22/02/2012, 17h48
titou31000

D'accord, moi j'ai du Delphi 6, unité Excel 2000 et Excel 2003!

Le problème vient peut être de la mais cela m'étonne!!
22/02/2012, 18h12
Ph. B.

Citation:

Envoyé par titou31000

D'accord, moi j'ai du Delphi 6, unité Excel 2000 et Excel 2003!

Je viens de refaire le test avec l'unité Excel2000, et je ne constate pas de dysfonctionnement, mais le reste de l'environnement est Delphi 7 et Excel 2000.
Auriez-vous un petit projet de test à proposer et voir si je peux reproduire ce dysfonctionnement ?
--
Philippe.