Discussion :

[edouardg]

Salut à tous !

Exercice difficile à rendre pour l'école faisant intervenir beaucoup de "hasard"... je ne développe pas tout le projet mais juste ce sur quoi je butte :

Des fourmis se promènent au hasard sur le tableur excel depuis un point fixé au hasard jusqu'à de la bouffe, soit une case au hasard déterminée au préalable.
CHAQUE fourmis doit ensuite après avoir trouvé la bouffe revenir à la fourmilière en EMPRUNTANT LE MEME CHEMIN.

Le terrain sur lequel les fourmis circulent est un carré dont le coté est choisi par l'utilisateur. Il y a d'autres paramètre (elles laissent des phéromones et tout...mais je ne précise pas)

Mon problème est de les faire revenir par le même chemin qu'elle ont emprunté.
J'ai fait numéroté chaque case par une structure créé, et je voudrais créer UN TABLEAU A UNE DIMENSION PAR FOURMIS (le nombre de fourmis est aléatoire) lui permétant de reprendre ensuite le tableau à l'envers afin de revenir au bercail.

Je voudrais donc créer une procédure qui crée plusieurs tableaux. Comment faire ? :S

N'hésitez pas à me poser des questions sur le problème si je n'ai pas été assez précis.

Edouard

[patbou]

bonjour,

Pour créer un tableau sans dimensionnement

Code :

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

1
2
3
4
5
6
7
8
 
dim parcour_fourmi1()
 
"déplacement fourmis .... 
 
nbdéplacement =nbdéplacement +1 'pour dimensionner le tableau
=> redim preserve parcour_fourmi1(nbdéplacement )
=>parcour_fourmi1(nbdéplacement )=nouvelle cellule ("A7")

[pgz]

Bonjour.

Pour reprendre l'idée de Patbou

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
DIm TabIti(1 to 1) as string
Dim l as long
 
'point de départ
TabIti(1) =RangeDepart.Address 
 
'pour chaque mouvement vers la cellule RangePosition
Redim Preserve TabIti(1 to Ubound(TabIti)+1)
TabIti(Ubound(TabIti))= RangePosition.Address
 
'pour le retour
For l = ubound(TabIti) to 1 step -1
    'lire l'adresse enregistrée en TabIti(l)
Next l
 
'fin

Une autre idée, enregistrer l'itinéraire dans un chaîne de caratères.

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
Dim sIti as string, vIti as variant
Dim l as long
 
'point de départ
sIti  = "/" & RangeDepart.Address 
 
'pour chaque mouvement vers la cellule RangePosition
sIti = sIti & "/" & RangePosition.Address
 
'pour le retour
siti = Mid$(sIti,2)
vIti = split(sIti,"/")
For l = ubound(vIti) to Lbound(vIti) step -1
    'lire l'adresse enregistrée en TabIti(l)
Next l
 
'fin