Discussion :

[jeremac]

Bonjour,

J'ai le code suivant, ou je déclare un tableau et affiche la position des colonnes qui corresponde à mon IF.
Je voudrais récupérer les 5 dernières positions de ce tableau mais je ne sais pas comment faire.
J'ai entendu parler de la méthode SIZE qui calcule le nombre d'éléments du tableau puis sert de répère.
ex : size - 1 (avant dernière valeur du tableau)
Mais je ne connais pas la syntaxe à utiliser pour faire ça.

Merci de votre aide

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
Dim Tableau()
 
x = 8
y = 1
i = 1
j = 0
' For Each Cellule In Rows(8).Cells
 
If InStr(UCase(ActiveWorkbook.Sheets("Pivot Solutions").Cells(8, i).Value), "TOTAL") Then
ReDim Preserve Tableau(j)
Tableau(j) = i
 
 
j = j + 1
 
End If
 
i = i + 1
 
Next

[tirex28]

Bonsoir,

J'ai entendu parler de la méthode SIZE qui calcule le nombre d'éléments du tableau puis sert de répère.

Il s'agit peut etre de UBound:

Code :

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

MsgBox UBound(Tableau) 'Renvoie l'indice du dernier élément du tableau.

Cordialement,

Tirex28/

[ucfoutu]

Bonjour,

Je crois que jeremac cherche plutôt ce que pourrait être la propriété Count de la collection Cells... (il me semble bien....)

Je voudrais récupérer les 5 dernières positions de ce tableau

Et il a sa réponse, maintenant, me semble-t-il également...