[OLE Excel] Aller jusqu'à la dernière cellule rempli

J'ai une liste d'informations dans une colonne.
Comment puis-je les récupéré sans avoir des valeurs "vides" ?

Exemple

J'ai 3 info :

• lulu
  toto
  kikou

J'aimerai par exemple, les mettre dans une TStringList.

Le problème, c'est qu'en prenant les valeurs une a une, j'aurai toute les valeurs jusqu'à la fin de la colonne (y a 65536 lignes)

Alors j'aurai mes 3 informations + 65533 info qui seront "vide".


Comment parer c problème ?

Merci.

C'est une blague ? Ou est la caméra ?
Bon, lorsque tu lis une cellule rien ne t'empêche de vérifier qu'elle n'est pas vide. Si elle l'est, tu arrête l'exécution de ta boucle ou tu continue en "oubliant" toutes les cellules vides.

Egalement, à chercher, mais dans EXCEL, tu peux recuperer les informations suivantes :
Derniere Colonne et Derniere ligne d'un tableau !

C'est une blague ? Ou est la caméra ?
Bon, lorsque tu lis une cellule rien ne t'empêche de vérifier qu'elle n'est pas vide. Si elle l'est, tu arrête l'exécution de ta boucle ou tu continue en "oubliant" toutes les cellules vides.

>> Excel ne considère pas une cellule vide comme vide (rien).

Egalement, à chercher, mais dans EXCEL, tu peux recuperer les informations suivantes :
Derniere Colonne et Derniere ligne d'un tableau !

>> J'ai essayé :

Code:

---

Range(Selection, Selection.End(xlDown)).Select

---

Mais apparemment ca marche pas... Je vais quand même ressayer.

Moi j'ai réussi et j'ai fait comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

//Fonction calculant le nombre de ligne remplies dans Excel function NbrRec : integer; var RowXls, rep : integer; CellXls : string; begin //Initialisation des données RowXls := 2; //Test pour récupérer le nombre de ligne remplies CellXls := vMSExcel.Cells[RowXls, 1].Value; while not (CellXls = '') do begin inc(RowXls); CellXls := vMSExcel.Cells[RowXls, 1].Value; end; rep := RowXls - 1; result := rep; end;

---

Donc... Excel considère les cellules vides comme "vide" !

pour ma part j'utilise un variant et j'obtiens le nombre de lignes (ou colonnes) utilisées comme ceci:
Monvariant.sheets[feuille].usedrange.rows.count

il suffit de remplacer rows par cols pour avoir les colonnes.
Par contre si les cellules contiennent
toto
tata
<vide>
tutu

la valeur retournée est 4 car il existe des infos jusqu'à la 4ème ligne

Citation:

---

Envoyé par Higgins

pour ma part j'utilise un variant et j'obtiens le nombre de lignes (ou colonnes) utilisées comme ceci:
Monvariant.sheets[feuille].usedrange.rows.count

il suffit de remplacer rows par cols pour avoir les colonnes.
Par contre si les cellules contiennent
toto
tata
<vide>
tutu

la valeur retournée est 4 car il existe des infos jusqu'à la 4ème ligne

---

Cette manière de faire m'interesse !
Mais apparemment ça ne marche pas !

J'ai tapé (dans Excel):

Code:

---

1 2 3 4

Public Sub test() Range("A1").Select Sheets("Feuil1").UsedRange.Rows.Count End Sub

---

Il me dit error :

Citation:

---

Propriété ou méthode non gérée par cet objet !

---

Ou est mon erreur ?

Citation:

---

Envoyé par Higgins

pour ma part j'utilise un variant et j'obtiens le nombre de lignes (ou colonnes) utilisées comme ceci:
Monvariant.sheets[feuille].usedrange.rows.count

il suffit de remplacer rows par cols pour avoir les colonnes.
Par contre si les cellules contiennent
toto
tata
<vide>
tutu

la valeur retournée est 4 car il existe des infos jusqu'à la 4ème ligne

---

Ta méthode m'interresse beaucoup!
Malheureusement je n'arrive pas à l'utiliser, en effet j'ai toujours une erreur d'opération de variant.
Qqu'un pour m'aider ?
Merci

Salut Higgins

Merci pour moi en Delphi ça marche:ccool:

Code:

---

1 2 3 4 5

i:= vworksheet.usedrange.rows.count ; arange:='B5'; vCell := vWorksheet.Range[aRange]; vcell.value:=i;

---

ou i est un integer

Bonsoir à tous,

Voici une solution élégante:

Code:

---

1 2 3 4 5 6 7

var LastLine: Integer; begin ActiveSheet:= WorkBook.ActiveSheet; LastLine := ActiveSheet.Range['A65536'].End[xlUp].Row; end;

---

Voila.