Discussion :

[benoît14]

Bonjour à tous,

Je suis toujours sur mon projet de logiciel d'audit de comptes consolidés (http://blog.developpez.com/auditconsolidation/). A titre de test, j'avais commencé à écrire certaines procédures en VBA que je convertis maintenant sous Delphi.

J'ai encore une question : comment traduit-on les With... End With du VBA en Delphi ?

Code :

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

1
2
3
4
5
 
    With ActiveSheet.PivotTables(NomTCD).PivotFields("Origine")
        .Orientation = xlRowField
        .Position = 1
    End With

[Andnotor]

Code :

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

1
2
3
4
5
with ActiveSheet.PivotTables(NomTCD).PivotFields('Origine') do
begin
  Orientation := xlRowField;
  Position    := 1;
end;

[benoît14]

Merci pour cette réponse rapide mais j'obtiens ceci comme message d'erreur :

[Erreur] Unit1.pas(2885): E2018 Type Record, Object ou Class requis

Je peux me passer de With mais cela rallonge sensiblement les lignes de mon programme.

Bon week end,

Benoît

[benoît14]

Je viens d'essayer avec une autre procédure et j'obtiens même message :

Code :

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

1
2
3
4
5
6
7
8
 
    Feuille:=FT_classeurexcel.activesheet;
    k:=14;
    with feuille do
    begin
      Range['A'+inttostr(k)].value:='Détenteur';
      Range['B'+inttostr(k)].value:='Nb titres s/détenu';
    end;

Alors que cela fonctionne de cette manière :

Code :

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

1
2
3
4
5
 
    Feuille:=FT_classeurexcel.activesheet;
    k:=14;
    Feuille.Range['A'+inttostr(k)].value:='Détenteur';
    Feuille.Range['B'+inttostr(k)].value:='Nb titres s/détenu';

[Montor]

tu ne peux pas utiliser With avec le type variant

Code :

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

1
2
3
 
var
 Feuille :Interface class Record contenant le champ range

[Dr.Who]

Oui, tu doit définir le type si c'est un variant :

Code :

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

1
2
3
4
with (node as TXMLNode) do
begin
 
end;

tu peux aussi te faire une fonction pour définir les valeurs