Comment compter le nombre de ligne dans un Array dynamique?

Version imprimable

07/03/2011, 11h39
NewYork

Comment compter le nombre de ligne dans un Array dynamique?

Comment est ce que je peux compter le nombre de lignes que j'obtien dans un tableau dynamique?
Par exemple, j'ai une liste de noms dans une colonne. J'effectus une recherche en fonction d'un nom (que je nomme valeur). Si une cellule dans la liste est egal à valeur, alors je le stock dans un array...Comment puis je faire pour connaitre le nombre de noms stcoker dans le Array (et donc trouvé dans la liste)???

Merci d'avance,
Cordialement,
NY
07/03/2011, 12h07
wilfried_42

Bonjour

à tester :

Code:

Msgbox ubound(montablo) +1
07/03/2011, 13h58
CodeFacile

Bonjour,

Par définition les arrays ne sont pas de dimension dynamique.

On peut faire myarr_ = array ( 1 , 3) et le tableau ne comportera que 2 éléments ( indice 0 et 1) , pas de question de faire dans la suite myarr_ (3) = xxx.

Si tu fais des array 'dynamique' en faisant myarr_ = array ( 0,0,0,0,0,0,0) et en changeant les valeurs , ça n'a pas d'intérêt.

Si tu fais des structures du type tabl_ () as ... ensuite tu peux faire des lbound et ubound pour connaitre les bornes et des redim pour augmenter le nombre de valeur.

Hum je vois ce que tu veux dire. En fait, je cherche à compter le nombre de vaeurs comprises car j'aimerais le copier dans un range sur une feuille. Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim i As Integer
Dim J As Integer
Dim wsB As Worksheet   'Worksheet Alize
Dim wsK As Worksheet    'Worksheet Portefeuille
Dim Valeur As String
Dim wb As Workbook
Dim nbre As Double
Dim nbre2 As Double
Dim Data As Variant
Dim ArrayValeur


Set wsB = ThisWorkbook.Worksheets("Graph")
Set wsK = ThisWorkbook.Worksheets("A")

Valeur = wsB.Range("AliResearch").Value

Cb = wsK.Range("Date_de_dénouementA").Column
nbre = wsK.Cells(Rows.Count, Cb).End(xlUp).Row

If Valeur <> "" Then
    
    ReDim ArrayValeur(nbre, 4) As Variant
    
    For i = wsK.Cells.Find("Date de dénouement", lookat:=xlWhole).Column To nbre
        If wsK.Cells(i, 4).Value = Valeur Then
            ArrayValeur(i, 1) = wsK.Cells(i, 2).Value
            ArrayValeur(i, 2) = wsK.Cells(i, 4).Value
            ArrayValeur(i, 3) = wsK.Cells(i, 5).Value
            ArrayValeur(i, 4) = wsK.Cells(i, 7).Value
        End If

'nbre2 = ArrayValeur().End(xlUp).Row

'''''Je cherche ici a copier les valeur du Array ci desssus dans mon range en dessous, mais je n'arrive pas à déterminer le nombre de valeur que j'obtiens dans mon array"""""
   For J = wsB.Cells.Find("Date Echéancier", lookat:=xlWhole).Row + 1 To nbre2
            wsB.Cells(J, 7).Value = ArrayValeur(i, 1)
            wsB.Cells(J, 8).Value = ArrayValeur(i, 2)
            wsB.Cells(J, 9).Value = ArrayValeur(i, 3)
            wsB.Cells(J, 10).Value = ArrayValeur(i, 4)
    Next J
Next i
i = i + 1
End If

07/03/2011, 17h21
pgz

Bonjour.

Pour copier un tableau dans une feuille, il faut que ce tableau ait 2 dimensions et que l'indiçage commence à 1. SOus cette réserve, pour coller MonTab à partir de la cellule k8 de la feuille "MaFeuille"

Code:

Thisworkbook.Worksheets("MaFeuille").Range("K8").Resize(ubound(MonTab,1),Ubound(MonTab,2)).Value = MonTab

Cordialement,

PGZ