Discussion :

[angelevil]

Bonjour

J'ai codé la creation d'un tableau de deux dimension de 8 lignes par 8 colonnes.

J'ai inséré des informations en mode string dans chaque cellule.

voici le code pour creer le tableau....

Code :

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

1
2
3
4
5
6
7
 
 
    Dim LeJeu()
 
    n = 8 ' 8 colonnes par 8 lignes
 
    ReDim LeJeu(n, n) ' on redimensionne le tableau en RAM en 8X8, soit 64 cases en memoire

apres j'ai remplis les cellules une par une comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    'A1 à A8
    LeJeu(1, 1) = "BlancAmi1"
 
    LeJeu(1, 2) = "NoirNeutre"
 
    LeJeu(1, 3) = "BlancNeutre"
 
    LeJeu(1, 4) = "NoirEnnemi1"
 
    LeJeu(1, 5) = "BlancNeutre"
 
    ......

Je dois faire une recherche dans une cellule saisie par l'utilisateur. Par exemple A4 qui equivaut a Colonne 1 et ligne 4 soit Lejeu(1,4).

Pour la convertion du A4 afin d'aller voir dans le tableau, ce code a été fait et testé avec succes.

Je suis rendu a coder la recherche dans le tableau. C'est la que je suis perdu.

J'ai vu des exemples avec des vecteurs et non avec des tableaux.

Je sais qu'il y a un FOR dans la commande de recherche et un IF pour comparer la cellule demandée par l'utilisateur et la cellule qui passe dans la recherche.

Merci de m'eclairer

AngelEvil!

[SfJ5Rpw8]

deux boucle for imbriquée.du genre

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
 
Dim i As Integer
Dim j As Integer
Dim btrouve As Boolean
Dim st As String 'Chaine chercnee
st = "BlancAmi1"
For i = 0 To n
  For j = 0 To n
     If st = Lejeu(i, j) Then
        btrouve = True
        Exit For
 
     End If
  Next j
  If btrouve Then Exit For
Next i
 
If btrouve Then
     MsgBox "Trouve : LeJeu(" & i & "," & j & ")"
 
End If

[angelevil]

Cool c'est le code que je recherchais.

mais est-ce que c'est possible de chercher une informationdans une matrice 8X8 avec deux coordonnées ?


genre trouver le mot "Bonjour" qui est inscrit entre les coordonnées 1,4 et 1,8

Merci

AngelEvil!

[SfJ5Rpw8]

ben tu sort pas de la boucle une fois trouvé... enléve les exit for... puis faut voir ce que tu ve faire des résultats...? les afficher direct..? lancer une procédure à chaque fois que tu en trouve un pour le traiter..? les mémoriser...

[angelevil]

Excuse pour la question.

J'etais dans les patates!

Merci de m'avoir aidé

AngelEvil!