Compter le nombre de ligne d un tableau vba excel

Marsh Posté le 25-10-2005 à 15:51:30

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

Reply

Marsh Posté le 25-10-2005 à 15:51:30

Reply

Marsh Posté le 25-10-2005 à 21:11:46

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

Reply

Marsh Posté le 25-10-2005 à 21:55:10

Yes ! Pas mal !

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

@+ Fred

Reply

Marsh Posté le 25-10-2005 à 22:38:38

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

Reply

Marsh Posté le 26-10-2005 à 17:35:53

Merci beaucoup je connaissais pas le UBound

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

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

Reply

Compter le nombre de ligne d un tableau vba excel

Sujets relatifs:

Leave a Replay