Compter le nombre de ligne d un tableau vba excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Compter le nombre de ligne d un tableau vba excel

homogene

Bonjour,

Dans une macro excel, je crée un tableau en memoire.
J aimerais savoir comment faire pour compter le nombre de ligne qu il y a dans mon tableau.

Actuellement j utilise la fonction on error pour sortir est me donner le nombre
si quelqu un à une solution plus propre je suis preneur

Code :

Sub Tableaux()
laChaine = "10 mn:5:24#20 mn:25:45#30 mn:46:100"
MsgBox GetLigneArray(laChaine)
End Sub

Code :

Function GetLigneArray(ByVal laChaine As String)
On Error GoTo Err_Tableaux
GetLigneArray = 0
While Split(laChaine, "#" )(GetLigneArray) <> ""
GetLigneArray = GetLigneArray + 1
Wend
Exit Function
Err_Tableaux:
GetLigneArray = GetLigneArray - 1
End Function

Merci d'avance

---------------
homogene

Publicité

galopin01

bonjour,

Sub Tableaux()
laChaine = "10 mn:5:24#20 mn:25:45#30 mn:46:100"
MsgBox UBound(Split(laChaine, "#" ))
End Sub

... Mais dans un cas comme dans l'autre le tableau n'est pas réellement créé : il est juste évalué !
A+

Message édité par galopin01 le 25-10-2005 à 21:15:00

Fred_l

Yes ! Pas mal !

Pourquoi chercher le compliqué quand on peut faire simple....
Fallait juste penser à UBound...

@+ Fred

galopin01

Oui,
Pour être exact, nous devons supposer que notre ami homogène a posé :
Option Base 1 dans son module.
Sinon sa question et son exemple n'ont aucun sens. Ma réponse s'est borné à "singer" sa fonction et donne le même résultat (aberrant si Option Base est omis.)
En effet Ubound ne renvoie que l'indice supérieure du tableau : pas le nombre d'éléments.
En réalité le nombre d'éléments (ou de ligne) quelque soit Option Base est donné par la formule :
Nb d'élément = UBase(Tablo) + 1 - Lbase(Tablo)
ainsi que le met en évidence la macro suivante :

Code :

Sub Tableaux()
Dim Tablo() As String
laChaine = "10 mn:5:24#20 mn:25:45#30 mn:46:100"
Tablo = Split(laChaine, "#" )
MsgBox "Ubound = " & UBound(Tablo)
MsgBox "Nb d'éléments = " & UBound(Tablo) + 1 - LBound(Tablo)
For i = LBound(Tablo) To UBound(Tablo)
MsgBox Tablo(i)
Next
End Sub

A+

Message édité par galopin01 le 25-10-2005 à 22:39:14

---------------
roger

homogene

Merci beaucoup je connaissais pas le UBound

merci à galopin01 pour ta macro c'est plus propre que ce que j avais fait.

---------------
homogene

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Compter le nombre de ligne d un tableau vba excel

Sujets relatifs
[HTML] Problème de gras dans un tableau...	insérer un tableau dans un formulaire ACCESS
Aller à la derniere ligne d'un fichier texte et recherche chaine	VBA Excel UserForm bouton pour ouvrir fichier *.hlp & path dynamique
centrer un tableau avec XSL FO	Définir le nombre de jours restant avant expiration...
Générer code sous excel	saisie disponibilité en ligne
[HTML] Etirer une image dans une cellule de tableau.	tableau à 2 dimensions et pointeur
Plus de sujets relatifs à : Compter le nombre de ligne d un tableau vba excel

Page générée en 0.037 secondes