Discussion :

[titou31000]

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 :

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

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 :

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

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

[Ph. B.]

Bonjour,

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

Code :

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

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.

[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

[Ph. B.]

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

Code :

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

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

--
Philippe.

[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...

[Ph. B.]

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.

[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!!

[Ph. B.]

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.