Discussion :

[NewYork]

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

[wilfried_42]

Bonjour

à tester :

Code :

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

Msgbox ubound(montablo) +1

[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.

[NewYork]

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 :

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

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

[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 :

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

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

Cordialement,

PGZ