parcourir tableau en vba - VB/VBA/VBS - Programmation
MarshPosté le 15-06-2008 à 22:18:25
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
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
Salut !!! Je n'ai pas totalement saisi le but du jeu... La fonction Ubound(tableau) te renverras le dernier index de ton tableau. En espérant t'aider...
Message édité par shossette le 17-06-2008 à 17:21:11
Marsh Posté le 15-06-2008 à 22:18:25
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
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