RéInitialiser un tableau Résolu/Fermé

Question

Bonjour,

Dans ma macro j'utilise une boucle FOR.
Dans cette boucle se trouve un tableau. Dim tableau(2) as integer
Le problème c'est que je ne sait pas comment remettre le remettre le tableau à neuf... enfin effacer les données qui sont à l'intérieur pour pouvoir le réutiliser.

J'ai essayé de mettre à la fin du code 
tableau(0)=0
tableau(1)=0
tableau(2)=0
Mais le résultat obtenue avec cette manip n'est pas celle souhaité.. 
J'espère avoir été clair 
++ all

Ivan-hoe · Answer

Bonjour, 
Erase tableau devrait vider ta variable. 
I.

jijudu · Answer

Tu veux dire que je n'ajoute rien au code alors ??
J'ai déjà essayé mais en faite lorsque la boucle change de valeur le tableau garde les mêmes valeurs que celle précédemment. Je le visualise le contenue du tableau avec le MsgBox.

je ne sai pas trop quoi faire ...


+

jijudu · Answer

Excuse moi alors je me suis mal expliqué 
je ne sais pas comment on fait pour écraser un tableau.
Peut tu m'expliquer stp !!

merci d'avance ^^

Ivan-hoe · Answer

Bonjour, 
j'ai l'impression qu'on tourne en rond. 
Dans ton code, au début ou à la fin de ta boucle FOR (à toi de juger), rajoute l'instruction suivante : 

Erase tableau

Cette instruction va vider ta variable "tableau()" de ses valeurs. Est-ce ça que tu entends par "écraser un tableau" ? 
A suivre...

jijudu · Answer

Ah le code c'était > Erase tableau
^^ j'ai trop mal enfin bref...
 j'ai fait des test en mettant "Erase tableau" au début et ensuite à la fin de la boucle FOR mais j'ai remarqué que lors du 2ieme passage dans la boucle FOR toutes les valeurs du tableau sont à 0 ...

zut !

jijudu · Answer

^^ Re!


Hmmmmm ce n'est pas normale que j'ai 0 quand je fais Erase tableau ..?
Quelqu'un saurai quoi faire ?

MErci !!

Ivan-hoe · Answer

... que tu aies 0 où ? que veux-tu dire, au juste ?

jijudu · Answer

J'obtiens 0 sur la Msgbox au 2ieme tour de la boucle FOR

Voila la partie dla marco :

Sub retouressai()
Dim n_turbine As Integer
Dim tableau(10) As Integer
Dim count_tableau As Integer
Dim i As Integer
Dim n_ligne_debut_status As Integer


For n_turbine = 1 To 2 Step 1
'For count_tableau = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
For count_tableau = Cells(65536, 2).End(xlUp).Row To 1 Step -1
    If Cells(count_tableau, 2).Value = n_turbine & ")" Then
        tableau(i) = Cells(count_tableau, 2).Row
        i = i + 1
    End If
Next count_tableau
    

n_ligne_debut_status = tableau(1)
n_ligne_fin_status = n_ligne_debut_status

MsgBox n_ligne_debut_status Erase tableau
Next n_turbine
End Sub

Au premier tour dans la boucle la msgbox retourne les bonnes valeurs
MAIS AU 2ieme tour la Msgbox affiche 0

Ivan-hoe · Answer

Salut, 
la question devient un peu plus claire quand tu donnes ton code en exemple ! 

Au 2è tour (avec n_turbine = 2), tu obtiens n_ligne_debut_status = 0, parce que ta variable i n'est pas réinitialisée entre les deux tours. Comme ta variable tableau() est alimentée à partir de i et que i est déjà supérieur à 1, n_ligne_debut_status = tableau(1) n'est pas valorisé, il reste à zéro. 
Après 
Erase tableau
il faudrait ajouter
i = 0
A suivre...

jijudu · Answer

eh bé OUiiiiiiiiiiii

tu as raison!
J'ai apporté les modifications qui s'y imposées. Cela a rendu le fonctionnement de la macro correct.

Allez @++
Merci encore Ivan-hoe