petit pb de débutantRésolu

Question

je débute en vb et j'ai un petit pb sur un exo, si quelqu'un pouvait me donner quelques idées:

en fait il s'agit d'un damier avec 2 types d'agents, rouges et bleus, disposés aléatoirement sur le damier et qui vont se déplacer aléatoirement s'ils ne sont pas contents (si le nb de leurs voisins de couleur différente est supérieur à un certain seuil). Sur le damier, chaque agent (cellule) est entouré de 8 voisins.
Le but de l'exo est de voir qu'à la fin d'une itération, les agents de même couleur se regroupent, formant ainsi des "tâches" sur le damier.

mon blocage: je n'arrive pas à traduire en code le moment où je voudrais que les agents "pas contents" se rangent dans un tableau (invisible) et se "redispatchent" sur le damier initial sur une case où ils seraient "contents".

si quelqu'un pouvait m'aiguiller un peu se serait sympa -)

jrivet · Accepted Answer

Salut,
C'est bien ce que je pensais le contenu de LesInsatisfaits(Ubound(LesInsatisfaits)) est  VIDE.

Enfait je me suis trompe dans rangement :
CEic:
'Nous sommes ici obliger de supprimer le dernier élément du tableau LesInsatisfaits car il y a une ligne vide
ReDim Preserve LesInsatisfaits(UBound(LesInsatisfaits)), ----
[code.aspx?ID=41455 By Renfield]
DEVRAIT ETRE CECI
'Nous sommes ici obliger de supprimer le dernier élément du tableau LesInsatisfaits car il y a une ligne vide
ReDim Preserve LesInsatisfaits(UBound(LesInsatisfaits) - 1), ----
[code.aspx?ID=41455 By Renfield]
Donc voila il faut continuer les test.
NOTE: EVITE LES ACCENT DANS LE CODE SAUF DANS LES COMMENTAIRE.

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

voilà où j'en suis: Option Explicit Public Sub IniatialisationDamier() 'dimensionnement des agents, sur un damier de 6000 points, agent(0).Height = 6000 / dimterrain agent(0).Width = 6000 / dimterrain agent(0).Visible = False 'charge une copie de agent(0) pour chaque emplacement du damier Dim col As Integer Dim lig As Integer Dim ind As Integer For col = 1 To dimterrain For lig = 1 To dimterrain ind = indice(lig, col) Load agent(ind) 'le damier est situé en haut à gauche de la fenetre agent(ind).Left = agent(0).Width * (col - 1) agent(ind).Top = agent(0).Height * (lig - 1) agent(ind).Visible = True agent(ind).Enabled = True 'exemple pour colorier un agent If (ind Mod 2 = 0) Then agent(ind).BackColor = &HFF& Else agent(ind).BackColor = &HFF0000 End If Next lig Next col End Sub 'POUR VERIFIER que les fonction "colonne" et "ligne" retournent les bonnes valeurs Public Sub agent_Click(Index As Integer) Call MsgBox("index : " & Index & " colonne : " & colonne(Index) & ", ligne : " & ligne(Index)) End Sub Option Explicit 'le nbre de cases du damier, en largeur et hauteur Dim dimterrain As Integer 'informations sur chaque agent du terrain Public damier(1 To dimterrain, 1 To dimterrain) As Integer Public Function ligne(ByVal indice As Integer) As Integer 'retourne la ligne correspondant à ind ligne = ((indice - 1) Mod dimterrain) + 1 End Function Public Function colonne(ByVal indice As Integer) As Integer 'reourne la colonne correspondant à indice colonne = ((indice - 1) \ dimterrain) + 1 End Function Public Function indice(ByVal lig As Integer, ByVal col As Integer) As Integer 'retourne l'indice correspondant à la position (lig, col) indice = lig + (col - 1) * dimterrain End Function Public Sub Voisin() Dim col As Integer Dim lig As Integer Dim ind As Integer Dim voisins As Integer ind = indice(lig, col) voisins = 0 For lig = 1 To dimdamier For col = 1 To dimterrain If ind(lig + 1, col + 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig + 1, col) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig + 1, col - 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig - 1, col + 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig - 1, col) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig - 1, col - 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig, col + 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 If ind(lig, col - 1) agent(ind).BackColor &HFF& Then voisins = voisins + 1 Else If ind(lig + 1, col + 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig + 1, col) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig + 1, col - 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig - 1, col + 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig - 1, col) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig - 1, col - 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig, col + 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 If ind(lig, col - 1) agent(ind).BackColor &HFF0000 Then voisins = voisins + 0 End If 'Prise en compte de la fermeture toroïdale du damier:' If lig < 1 Then 'si le numéro de la ligne dépasse le haut du damier' lig = lig + dimterrain 'on prend la ligne du bas' ElseIf lig > dimterrain Then 'si le numéro de la ligne dépasse le bas du damier' lig = lig - dimterrain 'on prend la ligne du haut' End If If col < 1 Then 'si le numéro de la colonne dépasse la gauche du damier' col = col + dimterrain 'on prend la colonne de droite' ElseIf col > dimterrain Then 'si le numéro de la colonne dépasse la droite du damier' col = col - dimterrain 'on prend la colonne de gauche' Next col Next lig End Sub Public Sub satisfaction() Dim heureux As Boolean Dim seuil As Integer seuil = InputBox("Entrez le nombre maximum de voisins différents tolérés") If voisins <= seuil Then heureux = True Else If voisins > seuil Then heureux = False End If If heureux = False Then agent(ind) = insatisfait Call déplacement déplacement= ?

jrivet · Answer

Salut,
Ca ressemble à une variante du jeu de la vie tout ca...

Question?: est ce que tu as commencer à debugguer un peu?
Je dis ca car dans le code 
1 - il y deux Option Explicit, 
2 - la definition suivante: Public damier(1 To dimterrain, 1 To dimterrain) As Integer  est impossible en VB6
3 - La variable Voisins n'est déclarée nul part.
Bref... il faut procéder par étape.
De plus quel sont les contrôles nécessaires à placer sur la Form pour essayer de te dépanner
@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Pour conitnuer avec les truc bizarres:

Dim ind As Integer
If ind(lig + 1, col + 1), ----
[code.aspx?ID= 41455 By Renfield]
ind(lig +  1 , col + 1) est un tableau et non un entier

Peu être voulais tu faire ind  = indice(lig +1, col+1).... 

Deplus le If suivant est très bizarre que veux tu faire exactementIf ind(lig + 1, col + 1) agent(ind).BackColor  &HFF&  Then 

De plus il ya des Else alors qu'aucun If est ouvert . Des IF Sans End IF Bref... avant d'essayer d'aller plus loin tu devrais essayer de te relire un peu et de compiler plus souvent ton projet...

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

effectivement cela est une variante du jeu de la vie, voilà l'énoncé:

Que se passe-t-il si, après avoir disposé aléatoirement un même nombre de pièce de nickel et de cuivre sur un échiquier, je déplace chacune des pièces dont au moins à 50% de ses 8 voisines sont du métal opposé, et ce jusqu'à ce que plus aucune ne soit dans cette configuration ? 
        Le modèle de ségrégation illustre comment des individus en interaction peuvent produire un phénomène macroscopique (les recoupements homogènes) dont la réalisation n'était pas une des motivations de leur activité. En effet dans ce modèle le comportement des agents est orienté par le seul désir de disposer d'un voisinage proche composé d'un certains taux d'agents de la même catégorie.

        Le modèle est assez simple, il est composé d'un damier et d'un certain nombre d'agents dont le comportement est paramétré par un seuil de tolérance. 
        La moitié des agents appartient à une catégorie (par exemple les rouges), et l'autre à une autre catégorie (par exemple les bleus). Les agents peuvent être ou ne pas être heureux suivant que le taux de voisins de l'autre catégorie est inférieur au seuil de tolérance.    
        La simulation est initialisée en distribuant aléatoirement les agents sur le damier. Un pas de simulation consiste alors à déplacer chaque agent malheureux sur une case du damier laissée vide par un autre agent souhaitant se déplacer. Ce déplacement peut ne pas être systématique mais s'effectuer selon une certaine probabilité. L'opération est ainsi répétée jusqu'à ce que tous les agents soient heureux.

Il est demandé de réaliser une application qui permet à l'utilisateur de:
-	réinitialiser le damier, pour faire une nouvelle partie,
-	faire 1 pas de simulation,
-	faire 10 ou 20 pas de simulation
-	lancer la simulation jusqu'à ce que les agents ne se déplacent plus
-	régler au moins l'un des paramètres tels que la taille du damier, le seuil de satisfaction des agents, le pourcentage d'agents bleus et d'agent rouge ou bien la probabilité qu'un agent malheureux se déplace. 
L'application pourra permettre à l'utilisateur d'obtenir des informations telles que le nombre d'agents qui ont 8, 7, 6, 5 ou 4 voisins semblables à eux ou bien le nombre de pas de la simulation en cours.


Le squelette de l'application

A l'écran, les cases sont des contrôles de type label, et elles sont chargées dynamiquement au lancement de l'application à partir du contrôle agent(0) ; le (name) de chaque cellule est donc agent(i), où i est un entier correspondant à l'indice de la cellule. La constante dimdamier définit la dimension du damier, c'est à dire le nombre de lignes et de colonnes, par exemple 10.
Afin d'enregistrer des informations sur chaque agent, vous pourrez utiliser un tableau 
damier (1 to dimdamier, 1 to dimdamier) as integer, où :
la première composante correspond à la ligne sur laquelle se trouve une case, et la seconde sa colonne.

 Pour mettre en relation l'indice d'une agent(i) et la ligne et la colonne du damier sur laquelle il se trouve, on utilise la bijection suivante :
{1 ... 100} ----------------> {1 ... 10 } x {1 ... 10}
ligne :	    indice :-------------------> ((i-1) mod 10) + 1  
colonne:  indice :------------------->	(i-1 \ 10) + 1)
{1 ... 10 } x {1 ... 10}----------------> {1 ... 100}
indice :  (ligne, colonne) :--------------> ligne + (colonne - 1) *10  
où \ est la division entière et mod le reste de la division entière.
Les trois fonctions ligne, colonne et indice vous sont données dans le squelette.

Le squelette comporte :
? l'initialisation de la présentation graphique du damier;
? un exemple de ce qui peut être fait lorsque le joueur clique sur une case.



je viens juste de le commencer, je vais essayer de corriger les erreurs du programme précédent(merci pour ta réponse), par contre je ne sais pas comment traiter les "insatisfaits", je pensais les mettre dans un tableau et puis les redistribuer sur le damier sur les cases laissées vides afin que tous les "agents soient satisfaits, mais je ne sais pas comment traduire cela en vb

jrivet · Answer

Salut,
Pas mal l'exo, tu es à l'école?
Ce qui est important d'avoir à l'esprirt lors des déplacement, c'est ceci:
"Un pas de simulation consiste alors à déplacer chaque agent malheureux
sur une case du damier laissée vide par un autre agent souhaitant se
déplacer. Ce déplacement peut ne pas être systématique mais s’effectuer
selon une certaine probabilité."

Ensuite si j'étais toi je commencerais par revoir ma procédure Voisin pour en faire un fonction qui te retourne le nombre de  voisin semblable pour un indice d'agent donné.
Est ce que j'ai raison de dire:
- "Le damier comporte plus de cases que d'agents!" car sinon si aucune case n'est vide c'est encore plus balaise me semble t il .

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
voilà à quoi je pense pour essayer d'avancer un peu.
1- Faire une fonction Voisin te retournant le nombre de voisin semblable en fonction d'un indice.
2 -Faire un tableau dynamique contenant  l'indice des agent insatisfait + leur couleur. (type string par exemple) ou alors un tableau de TYPE
3 -Colorier les cases avec une couleur tampon.
4 - Parcourir le tableau d'instaisfait et voir si il est satisfait dans les autres indice si oui recolorier la case de la bone couleur.

PB: la ou je bloque c'est pour utiliser le fait que le déplacement n'est pas systématique

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

Je sors de mon cours de développement et le prof nous a dit que ct pas nécessaire d'ajouter le fait que les agents se déplacent selon une proba.

pour déplacer les agents insatisfaits dans un tableau, j'aimerai faire un truc du genre:

Public Sub déplacer()
Dim i As Integer
Dim j As Integer
Dim dimtemp As Integer
Dim temp(1 To dimtemp, 1 To dimtemp) As Integer
ind(lign, col) = temp(i, j)

End Sub

Public Sub rangement()
For i = 1 To dimtemp
    For j = 1 To dimtemp
    Randomize
    x = Int(insatisfait * Rnd)
End Sub

ReDim damier(1 To dimterrain, 1 To dimterrain) As Integer

...mais je n'arrive pas à le formuler correctement

sinon pour l'expression "If ind(lig + 1, col + 1) agent(ind).BackColor &HFF& Then" c'est pour exprimer le fait que si le voisin(ici celui du bas à droite)est de la couleur rouge, et que la case du milieu(la cellule (2,2) dans un tableau(3,3))est de couleur bleu alors le nb de voisins différents va être incrémenté de 1, ce qui permet d'avoir le nb de voisins différents(8 au max)à comparer au seuil que j'aurai rentré au début

tlemeillat · Answer

Je sors de mon cours de développement et le prof nous a dit que ct pas nécessaire d'ajouter le fait que les agents se déplacent selon une proba.

pour déplacer les agents insatisfaits dans un tableau, j'aimerai faire un truc du genre:

Public Sub déplacer()
Dim i As Integer
Dim j As Integer
Dim dimtemp As Integer
Dim temp(1 To dimtemp, 1 To dimtemp) As Integer
ind(lign, col) = temp(i, j)

End Sub

Public Sub rangement()
For i = 1 To dimtemp
    For j = 1 To dimtemp
    Randomize
    x = Int(insatisfait * Rnd)
End Sub

ReDim damier(1 To dimterrain, 1 To dimterrain) As Integer

...mais je n'arrive pas à le formuler correctement

sinon pour l'expression "If ind(lig + 1, col + 1) agent(ind).BackColor &HFF& Then" c'est pour exprimer le fait que si le voisin(ici celui du bas à droite)est de la couleur rouge, et que la case du milieu(la cellule (2,2) dans un tableau(3,3))est de couleur bleu alors le nb de voisins différents va être incrémenté de 1, ce qui permet d'avoir le nb de voisins différents(8 au max)à comparer au seuil que j'aurai rentré au début

jrivet · Answer

Salut, Je ne vais pas pouvoir beaucoup me pencher sur le sujet cet aprem mais regarde ce que j'ai fait au niveau de GetVoisins cela pourra peu etre t'aiguiller sur qqch Option Explicit 'le nbre de cases du damier, en largeur et hauteur Private dimterrain As Integer 'informations sur chaque agent du terrain Private damier(1 To 50, 1 To 50) As Integer Public Sub IniatialisationDamier() dimterrain = 10 'dimensionnement des agents, sur un damier de 6000 points, Agent(0).Height = 6000 / dimterrain Agent(0).Width = 6000 / dimterrain Agent(0).Visible = False 'charge une copie de agent(0) pour chaque emplacement du damier Dim Col As Integer Dim Lig As Integer Dim Ind As Integer For Col = 1 To dimterrain For Lig = 1 To dimterrain Ind = indice(Lig, Col) Load Agent(Ind) 'le damier est situé en haut à gauche de la fenetre Agent(Ind).Left = Agent(0).Width * (Col - 1) Agent(Ind).Top = Agent(0).Height * (Lig - 1) Agent(Ind).Visible = True Agent(Ind).Enabled = True Agent(Ind).Caption = Ind Next Lig Next Col Call ColorierAgents End Sub

Private Sub ColorierAgents() 'exemple pour colorier un agent Dim Col As Integer Dim Lig As Integer For Col = 1 To dimterrain For Lig = 1 To dimterrain Randomize Agent(indice(Lig, Col)).BackColor IIf(Int((2 * Rnd) + 1) 1, vbBlue, vbRed) Next Lig Next Col End Sub

'POUR VERIFIER que les fonction "colonne" et "ligne" retournent les bonnes valeurs Public Sub agent_Click(Index As Integer) 'MsgBox GetVoisins(Index) & " " & IIf(Agent(Index).BackColor = vbRed, "vbRed", "vbBlue") Dim BonneCouleur As Integer BonneCouleur = GetVoisins(Index) If BonneCouleur < 4 Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS") End Sub

Public Function Ligne(ByVal indice As Integer) As Integer 'retourne la ligne correspondant à ind Ligne = ((indice - 1) Mod dimterrain) + 1 End Function

Public Function Colonne(ByVal indice As Integer) As Integer 'reourne la colonne correspondant à indice Colonne = ((indice - 1) \ dimterrain) + 1 End Function

Public Function indice(ByVal Lig As Integer, ByVal Col As Integer) As Integer 'retourne l'indice correspondant à la position (lig, col) indice = Lig + (Col - 1) * dimterrain End Function

Private Function GetVoisins(ByVal Ind As Integer) As Integer Dim Col As Integer Dim Lig As Integer Dim CouleurInd As Long Col = Colonne(Ind) Lig = Ligne(Ind) CouleurInd = Agent(Ind).BackColor 'MsgBox "INDICE: " & Ind & " COONNE: " & Col & " LIGNE:" & Lig If IsSameColor(Lig + 1, Col + 1, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig + 1, Col, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig + 1, Col - 1, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig - 1, Col + 1, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig - 1, Col, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig - 1, Col - 1, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig, Col + 1, CouleurInd) Then GetVoisins = GetVoisins + 1 If IsSameColor(Lig, Col - 1, CouleurInd) Then GetVoisins = GetVoisins + 1 End Function

Private Function IsSameColor(ByVal Lig As Integer, ByVal Col As Integer, ByVal CouleurInd As Long) As Boolean Dim Ind As Integer Ind = indice(Lig, Col) 'MsgBox Ind If (Ind > 0) And (Ind < (dimterrain * dimterrain)) Then IsSameColor (Agent(Ind).BackColor CouleurInd) 'If IsSameColor Then Agent(Ind).Visible = False Else IsSameColor = False End If End Function

Public Sub satisfaction() Dim heureux As Boolean Dim seuil As Integer Dim voisins As Integer Dim Ind As Integer Dim insatisfait As Integer seuil = InputBox("Entrez le nombre maximum de voisins différents tolérés") heureux = (voisins <= seuil) If Not heureux Then Agent(Ind) = insatisfait Call deplacement End If End Sub

Private Sub deplacement() End Sub

Private Sub Form_Load() IniatialisationDamier End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

tlemeillat · Answer

merci beaucoup, je vais y passer tout l'aprem dessus, si jamais je comprends pas qqch je me "permettrais" de te demander conseil

A+ et bon aprem

tlemeillat · Answer

je ne comprend pas la partie droite de l'égalité suivante:

agent(indice(Lig, Col)).BackColor IIf(Int((2 * Rnd) + 1) 1, vbBlue, vbRed)

Que signifit le "IIf" ?

A+

jrivet · Answer

Salut,
IIF permet de faire un If Then Else sur une seule ligne, 

En Faite cette ligneagent(Indice(Lig, Col)).BackColor IIf(Int((2 * Rnd) + 1) 1, vbBlue, vbRed)

Est équivalente à

If (Int((2 * Rnd) + 1) = 1) Then
   agent(Indice(Lig, Col)).BackColor = vbBlue
Else
   agent(Indice(Lig, Col)).BackColor = vbRed
End If , ----
[code.aspx?ID=41455 By Renfield]
Voila    
@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

merci

tlemeillat · Answer

Excuse moi de te déranger, j'ai une petite question:

dans cette procédure:

"'POUR VERIFIER que les fonction "colonne" et "ligne" retournent les bonnes valeurs
Public Sub agent_Click(Index As Integer)
   'MsgBox GetVoisins(Index) & " " & IIf(Agent(Index).BackColor = vbRed, "vbRed", "vbBlue")
   Dim BonneCouleur As Integer
   BonneCouleur = GetVoisins(Index)
   If BonneCouleur < 4 Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS")
End Sub "

j'aimerai remplacer "4" par "seuil" afin de pouvoir donner la valeur de seuil que je souhaite (entre 1 et 8). Ainsi je voulais ajouter à cette procédure:

Dim Seuil(1 to 8) as integer
Seuil=Inputbox("Donnez le seuil désiré")

mais quand je l'ajoute et que je click sur un agent ça bug et ça me dit "compile error: can't assign to array"

tlemeillat · Answer

Excuse moi de te déranger, j'ai une petite question:

dans cette procédure:

"'POUR VERIFIER que les fonction "colonne" et "ligne" retournent les bonnes valeurs
Public Sub agent_Click(Index As Integer)
   'MsgBox GetVoisins(Index) & " " & IIf(Agent(Index).BackColor = vbRed, "vbRed", "vbBlue")
   Dim BonneCouleur As Integer
   BonneCouleur = GetVoisins(Index)
   If BonneCouleur < 4 Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS")
End Sub "

j'aimerai remplacer "4" par "seuil" afin de pouvoir donner la valeur de seuil que je souhaite (entre 1 et 8). Ainsi je voulais ajouter à cette procédure:

Dim Seuil(1 to 8) as integer
Seuil=Inputbox("Donnez le seuil désiré")

mais quand je l'ajoute et que je click sur un agent ça bug et ça me dit "compile error: can't assign to array"

jrivet · Answer

Salut,
La déclaration que tu as fait de Seuil est un Tableau d'entier de 8 éléments, Hors toi tu veux simplement que la variable seuil soit un entier entre 1 et 8

Le code suivant aura pour effet de demander la valeur de Seuil TANT QU'elle ne sera pas comprise entre 1 et 8
'Dans la partie commune à tous le code
'=>vers Option Explicit
Dim Seuil As Integer
'la ou tu veux initialiser Seuil
While Seuil > 8 Or Seuil < 1
   Seuil = CInt(Val(InputBox("Donnez le seuil désiré")))
Wend, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

Salut,
Tout d'abord merci de m'avoir répondu. J'ai un petit souci pour la procédure 'déplacement' et 'rangement': 

Public Sub satisfaction()
Dim heureux As Boolean
Dim Seuil As Integer
Dim Voisins As Integer
Dim Ind As Integer
Dim insatisfait As Integer
   While Seuil > 8 Or Seuil < 1
   Seuil = InputBox("Donnez le nombre de voisins de même couleur compris entre 1 et 8 souhaité")
   Wend
heureux = (Voisins >= Seuil)
   If Not heureux Then
   agent(Ind) = insatisfait
   Call deplacement
   End If
End Sub

Private Sub deplacement()
'ébauche'
'dans cette procédure j'aimerais que l'ordi parcours le damier et à chaque fois qu'il trouve un agent insatisfait sur le damier il rentre ses coordonnées et sa couleur dans un tableau(invisible à l'écran)'

Dim i As Integer
Dim j As Integer
Dim dimtemp As Integer
Dim temp(1 To dimtemp, 1 To dimtemp, CouleurInd) As Integer
For lig= 1 to dimterrain
   For col= 1 to dimterrain
   Ind(lig, Col) = temp(i, j) 'je sais pas comment intégrer la couleur comme 3ème dimension du tableau temp'
   Next Lig
Next Col
End Sub

Public Sub rangement()
'ébauche'
'ici j'aimerais "redispatcher" les agents insatisfaits du tableau invisible sur le damier aux emplacements qui conviennent pour qu'à la fin tous les agents du damier soient satisfaits'

Dim x as Integer
For i = 1 To dimtemp
    For j = 1 To dimtemp
    Randomize
    x = Int(insatisfait * Rnd)
    temp(i,j)=damier(1 To dimterrain, 1 To dimterrain)
End Sub

ReDim damier(1 To dimterrain, 1 To dimterrain) As Integer

...merci pour ton aide...

jrivet · Answer

Salut,
Pour ce qui concerne Deplacement:
Ce qu'il te faut c 'est un tableau à trois dimensions certes (quoique compliquer pour ce qu'il apporte) mais que tu devras redimensionner au fur et a mesure (compliquer lorsque plus d'une dimension)

1 - Si j'ai bien compris tu veux un tableau qui stocke pour chaque agent Instatisafit, sa ligne sa colonne et sa couleur (moi j'ajouterais pour plus de simplicite lors de la procédure rangement, le nombre de voisins de couleur differentes qu'il possède).
Je te propose donc plutot que de passer par un tableau à trois dimension, de faire un tableau de Type (a mon avis plus simple) essaie de comprendre le code du dessous. 
2 - C'est Dans ta procédure Satisfaction, qu'il serait mieus de parcourrir ton damier,et de ranger les instatisfaits.

Le code suivant est à rajouter à l'existant (c'est moi qui suis en train de te faire l'exo)

Option Explicit
Private Type T_Agent
   T_Ligne As Integer
   T_Colonne As Integer
   T_Couleur As Long
   T_VoisinsDifferents As Integer
End Type

Private LesInsatisfaits() As T_Agent
Public Sub satisfaction()
Dim heureux As Boolean
Dim seuil As Integer
Dim voisins As Integer
Dim Ind As Integer
Dim insatisfait As Integer
Dim Col As Integer
Dim Lig As Integer
Dim Tmp_Agent As T_Agent
   seuil = InputBox("Entrez le nombre maximum de voisins différents tolérés")
   heureux = (voisins <= seuil)

   'redimensionne le tableau pour une premiere fois
   ReDim LesInsatisfaits(0)
   For Col = 1 To dimterrain
       For Lig = 1 To dimterrain
           Ind = indice(Lig, Col)
           voisins = 8 - GetVoisins(Ind)
           heureux = (voisins <= seuil)
           If Not heureux Then
               'on rempli la variable de type T_Agent
               Tmp_Agent.T_Colonne = Col
               Tmp_Agent.T_Ligne = Lig
               Tmp_Agent.T_Couleur = Agent(Ind).BackColor
               Tmp_Agent.T_VoisinsDifferents = voisins
               'On ajoute la variable de type T_Agent dans le tableau
               'LesInsatisfaits
               LesInsatisfaits(UBound(LesInsatisfaits)) = Tmp_Agent
               'on reprépare une ligne dans le tableau en redimensionnat
               'Preserve signifie que le redimensionnement n'entraine
               'pas de perte de donne un redim seul lui pert les donnée
               ReDim Preserve LesInsatisfaits(UBound(LesInsatisfaits) + 1)
           End If
       Next Lig
   Next Col
   'Nous sommes ici obliger de supprimer le dernier élément du tableau LesInsatisfaits
   'car il y en a une vide
   ReDim Preserve LesInsatisfaits(UBound(LesInsatisfaits))
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
Pour la procédure rangement, il faudra alors que tu parcour ton tableau d'instatifait dans une premiere boucle puis dans une seconde boucle que tu regarde ou tu pourrais le mettre (toujours en ragardant simplement dans le tableau d'instatisfait)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Je crois en fait que le nombre de voisins differents est INUTILE (désolé de t'embrouiller)

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

merci pour ton explication, par contre je ne comprends pas pourquoi le nb de voisins différents serait inutile. De plus je ne vois pas quelle est la signification de "UBound", cette fonction n'est pas défini dans mon gros bouquin de vb6?

A+

jrivet · Answer

Salut,
Alors:
En fait le Nb de voisins différents est inutiles dans le Type T_Agent:
    - Si un agent de couleur bleue est insatisfait c'est que sont nombre de voisin différents est trop élevé
    - Si un agent de couleur rouge est insatisfait c'est que sont nombre de voisin différents est trop élevé

Ces deux agents peuvent donc échanger leur place sans avoir ce souceir du nombre de voiin de l'un ou l'autre, ils sont sûr d'être , après ce déplacement, satisfait.

La fonction Ubound:
Renvoie une valeur de type Long contenant le plus grand indice disponible pour la dimension indiquée d'un tableau.

Exemple Dim MonTab(1 to 10) => Ubound te renverra 10 mais lorsque tu ne connais pas le plus grand indice (ou que tu redimensione dynamiquement tes tableaux), Ubound est de ce fait très utile.

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

merci-)

tlemeillat · Answer

excuse moi, je vais "t'embêter" encore une fois, pour la procédure rangement penses-tu que ceci conviendrait:

Public Sub rangement()
For T_Ligne = 1 To LesInsatisfaits(UBound(LesInsatisfaits))
    For T_Colonne = 1 To LesInsatisfaits(UBound(LesInsatisfaits))
       If Temp_Agent.T_Couleur = &H80FFFF Then
       agent(indice(Lig, Col)).BackColor = &HFF&
       ElseIf Temp_Agent.T_Couleur = &HFF& Then
       agent(indice(Lig, Col)).BackColor = &H80FFFF
       End If
    Next T_Colonne
Next T_Ligne
End Sub

A+

jrivet · Answer

Salut,

Non.
pourquoi?
For T_Ligne = 1 To LesInsatisfaits(UBound(LesInsatisfaits)) ceci est faux. je pense que tu voulais dire
For T_Ligne = 1 To UBound(LesInsatisfaits) 

Mais ATTENTION que représente T_Ligne si c'est la variable Du Type T_Agent c'est incorrect.

Ensuite tu te trompes me semble t il pour ce qui concerne le déplacement.
Ce que tu me montre n'est pas un déplacement mais un changement de couleur. (hors ce n'est pas ce qui est demander.)

Pour le rangement je pencherai plus pour ceci:
ATTENTION c'est à améliorer mais c'est pour l'idée.
Je dit améliorer car avec ce code, un agent peu être déplacer plusieurs fois dans la même boucle et je ne sais pas si c'est correct ou pas.
Enfin bref tu verras.
Private Sub Rangement()
Dim Source As T_Agent
Dim Destination As T_Agent
Dim TmpCol As Integer
Dim TmpLig As Integer
Dim TmpCoul As Long
Dim I As Integer
Dim J As Integer
   'On Parcour une premiere fois
   For I = 0 To UBound(LesInsatisfaits) - 1
       'on parcours une seconde fois pour lui trouver
       'une plase satisfaisante
       For J = I To UBound(LesInsatisfaits)
           Source = LesInsatisfaits(I)
           Destination = LesInsatisfaits(J)
           'SI les couleurs sont différentes 
           If (Source.T_Couleur <> Destination.T_Couleur) Then
                'On intervertit les agent sur le damier

               Agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur
               Agent(indice(Source.T_Ligne, Source.T_Colonne)).BackColor = Destination.T_Couleur
               Exit For
           End If
       Next J
   Next I

End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

Salut,
une dernière petite question et après je ne t'embête plus:
quand je lance une itération, celle-ci bloque sur la procédure "Public Sub satisfaction()", en me surlignant le mot "indice" de la ligne "Ind = indice(Lig, Col)", avec le message "compile error: sub or function not defined".

je ne comprends pas car pourtant cette ligne est déjà utilisée et définie dans "Private Function IsSameColor" et dans "Public Sub IniatialisationDamier()" ??

jrivet · Answer

Salut

Est ce que tu as TOUT mis au meme endroit (la fonction indice aussi)?

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

si tu entends par "endroit" la form ou le module, mon module contient:

Option Explicit
Private Type T_Agent
...

Public Sub satisfaction()
...

et

Public Sub Rangement()
...

tout le reste est dans la form

jrivet · Answer

Salut,
Alors place 

Public Function indice(ByVal Lig As Integer, ByVal Col As Integer) As Integer
   'retourne l'indice correspondant à la position (lig, col)
indice = Lig + (Col - 1) * dimterrain
End Function , ----
[code.aspx?ID=41455 By Renfield]

Dans le module mais il te faudra surement alors déplacer un peu tout.
ou alors place TOUT dans le form (après tout c'est pas si grave)

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

Salut, pour te donner des nouvelles:

- il n'y a plus de bugs quand je lance la procédure Unpas, mais cela ne marche pas car les agents insatisfaits ne se déplacent pas une fois avoir rentré le seuil (le damier ne se modifie pas). Ma procédure Unpas est:

Private Sub Unpas_Click()
Call IniatialisationDamier
Call satisfaction
Call Rangement
End Sub

- j'essaie de modifier la procédure suivante car il y a un pb au niveau du seuil, qd le seuil que je rentre est 1, 2, ou 3 et je sais pas pourquoi

'POUR VERIFIER que les fonction "colonne" et "ligne" retournent les bonnes valeurs
Public Sub agent_Click(Index As Integer)
Dim BonneCouleur As Integer
BonneCouleur = Getvoisins(Index)
If BonneCouleur < seuil Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS")
 While seuil > 8 Or seuil < 1
   seuil = InputBox("Entrez le nombre maximum de voisins différents, compris entre 1 et 8, tolérés")
 Wend
End Sub

tlemeillat · Answer

concernant le deuxième "-" du message précédent, je rajoute pour que tu comprenne mieux le pb que qd le seuil est 1, 2, 3 (voisins différents tolérés au max), certains agents (qui par ailleurs non que 1 ou 2 voisins différents de plus que la valeur du seuil) ne sont pas repérés par l'ordi, alors qu'ils devraient être des insatisfaits. Seul les agents qui sont assez isolés (avec 8 ou 7 ou 6 voisins de couleur différente) sont quant à eux toujours bien repérés comme étant insatisfaits. j'espère que tu me comprends...-) ça commence à me prendre la tête

tlemeillat · Answer

Je viens de résoudre le pb du seuil (le deuxième "-") dans mon message précédent:

j'ai remplacé 

If BonneCouleur < seuil Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS") 

par 

If ((8 - BonneCouleur) > seuil) Then MsgBox ("AGENT " & Index & " INSATISFAIT AVEC " & 8 - BonneCouleur & " VOISINS DIFFERENTS")

Pour ce qui en est du premier "-" concernant la procédure Unpas et notamment le fait que les insatisfaits ne se déplaçent pas et que le damier reste le même, je vais m'y pencher cette nuit...peut-être à demain matin -)   A+

tlemeillat · Answer

Salut jrivet,

J'arrive à faire marcher le programme, mais il reste encore un petit bug: une fois avoir lancé la procédure Unpas, et rentré le seuil de voisins différents, les agents commencent à se déplacer mais cela s'arrête et le message suivant apparait:

"Run-time error: invalid control array index" au niveau de la ligne suivante (dans la procédure Rangement): 

agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur

J'ai passé la nuit à essayer de débuger mais en vain. J'ai tout du moins peut être trouvé une piste (j'ai mis un temps fou pour comprendre la procédure Rangement qui est vraiment balaise):

Public Sub Rangement()
Dim Source As T_Agent
Dim Destination As T_Agent
Dim TempCol As Integer
Dim TempLig As Integer
Dim TempCouleur As Long
Dim I As Integer
Dim J As Integer
For I = 0 To UBound(LesInsatisfaits) - 1 'On parcours une premiere fois le tableau des insatisfaits
    For J = I To UBound(LesInsatisfaits) 'on parcours une seconde fois pour lui trouver un emplacement satisfaisant
    Source = LesInsatisfaits(I)
    Destination = LesInsatisfaits(J)
        If (Source.T_Couleur <> Destination.T_Couleur) Then  'Si les couleurs sont différentes
           agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur
           'On intervertit les agent sur le damier
           agent(indice(Source.T_Ligne, Source.T_Colonne)).BackColor = Destination.T_Couleur
           
           Exit For 'permet de ne pas intervertir le même agent deux fois
        End If
        'dès qu'on trouve un agent insatisfait avec une couleur différente de l'agent insatisfait observé
        'on intervertit les couleurs des 2 agents et on passe a un autre agent observé
    Next J
Next I
End Sub

Ma piste: je pense qu'il faudrait peut être rajouter une colonne dans le tableau  LesInsatisfaits de type Boolean pour indiquer si oui ou non, à chaque ligne, l'agent a été intervertit ou pas, seulement je ne sais pas le traduire en vb.
J'espère que tu pourras me donner qq indication 
A+

tlemeillat · Answer

Salut jrivet,

J'arrive à faire marcher le programme, mais il reste encore un petit bug: une fois avoir lancé la procédure Unpas, et rentré le seuil de voisins différents, les agents commencent à se déplacer mais cela s'arrête et le message suivant apparait:

"Run-time error: invalid control array index" au niveau de la ligne suivante (dans la procédure Rangement):

agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur

J'ai passé la nuit à essayer de débuger mais en vain. J'ai tout du moins peut être trouvé une piste (j'ai mis un temps fou pour comprendre la procédure Rangement qui est vraiment balaise):

Public Sub Rangement()
Dim Source As T_Agent
Dim Destination As T_Agent
Dim TempCol As Integer
Dim TempLig As Integer
Dim TempCouleur As Long
Dim I As Integer
Dim J As Integer
For I = 0 To UBound(LesInsatisfaits) - 1 'On parcours une premiere fois le tableau des insatisfaits
    For J = I To UBound(LesInsatisfaits) 'on parcours une seconde fois pour lui trouver un emplacement satisfaisant
    Source = LesInsatisfaits(I)
    Destination = LesInsatisfaits(J)
        If (Source.T_Couleur <> Destination.T_Couleur) Then  'Si les couleurs sont différentes
           agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur
           'On intervertit les agent sur le damier
           agent(indice(Source.T_Ligne, Source.T_Colonne)).BackColor = Destination.T_Couleur
          
           Exit For 'permet de ne pas intervertir le même agent deux fois
        End If
        'dès qu'on trouve un agent insatisfait avec une couleur différente de l'agent insatisfait observé
        'on intervertit les couleurs des 2 agents et on passe a un autre agent observé
    Next J
Next I
End Sub

Ma piste: je pense qu'il faudrait peut être rajouter une colonne dans le tableau  LesInsatisfaits de type Boolean pour indiquer si oui ou non, à chaque ligne, l'agent a été intervertit ou pas, seulement je ne sais pas le traduire en vb.
J'espère que tu pourras me donner qq indication
A+

jrivet · Answer

Salut, (pas la peine poster deux fois le même truc à 1/2 heure d'interval) Alors dans l'ordre: Run-time error: invalid control array index au niveau de la ligne suivante (dans la procédure Rangement): Signifie que tu essaie d'accéder à un label qui n'existe pas exemple Agents(-5) ou Agents(500) Bref la valeur retourné alors par indice(Destination.T_Ligne, Destination.T_Colonne) doit être foireuse. (conseil utilise le Debugger pour suivre ton code pas à pas) Pour ajouter le fait qu'un agent à dejà ete deplacer il te faut modifier le Type T_Agent. Il deviendrait alors Option Explicit Private Type T_Agent T_Ligne As Integer T_Colonne As Integer T_Couleur As Long T_Deplacer As Boolean End Type , ---- [code.aspx?ID=41455 By Renfield] Puis tu modifie ta procédure Rangement pour obtenir un truc du style Public Sub Rangement() Dim Source As T_Agent Dim Destination As T_Agent Dim TempCol As Integer Dim TempLig As Integer Dim TempCouleur As Long Dim I As Integer Dim J As Integer For I = 0 To UBound(LesInsatisfaits) - 1 'On parcours une premiere fois le tableau des insatisfaits For J = I To UBound(LesInsatisfaits) 'on parcours une seconde fois pour lui trouver un emplacement satisfaisant Source = LesInsatisfaits(I) Destination = LesInsatisfaits(J) If (Source.T_Couleur <> Destination.T_Couleur) And Not Source.T_Deplacer And Not Destination.T_Deplacer Then 'Si les couleurs sont différentes agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur 'On intervertit les agent sur le damier agent(indice(Source.T_Ligne, Source.T_Colonne)).BackColor = Destination.T_Couleur 'On indque alors que les deux agents ont été deplacer Destination.T_Deplacer = True Source.T_Deplacer = True Exit For 'permet de ne pas intervertir le même agent deux fois End If 'dès qu'on trouve un agent insatisfait avec une couleur différente de l'agent insatisfait observé 'on intervertit les couleurs des 2 agents et on passe a un autre agent observé Next J Next I End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

tlemeillat · Answer

Re-salut,

En effet, qd je modifie la proc Rangement avec le "T_Deplacer" cela ne change rien.
Le problème est qu'il y a des valeurs qui deviennent égale à 0, notamment au niveau de la ligne du bug:

"agent(indice(Destination.T_Ligne, Destination.T_Colonne)).BackColor = Source.T_Couleur"

qd je pointe la souris j'ai "Destination.T_Ligne" et "Destination.T_Colonne" qui sont égales à 0 et "Source.T_Couleur" qui vaut 8454143 !?
je ne comprends pas pourquoi ligne et colonne sont toutes les deux nulles

jrivet · Answer

Salut,
Il faut que tu remontes à LesInsatisfaits(J) Que vaut J lorsque ta ligne plante? est ce que la valeur est indice possible de ton tableau LesINsatisfaits? Bref il y a des petit problème d'indice.

Envoie moi ton projet a epsylon9@gmail.Com que je regarde un peu ou tu en est (vite fait avant que je parte en WE)

@+: Ju£i?n
Pensez: Réponse acceptée

tlemeillat · Answer

tu devrais recevoir un mail de ma part sur l'adresse que tu m'a donné

cs_othi · Answer

Bonjour tlemeillat et à tous
Je suis etudiant en licence informatique à Tours, je suis tombé sur ce forum par hasard et je fait depuis une semaine un programme de simulation d'echeck en Vb et ton exercice pourra ennormement m'aider .
est cque c'est possible dafficher le code final de ton exercice
Merci d'avance pour ton aide
Othi

jrivet · Answer

Salut,
> [auteurdetail.aspx?ID=1063851 othi], réponse au MP: Je suis désolé mais je ne garde pas les codes que l'on m'envoie. je ne pourrais donc pas t'aider plus que ce que tu  as trouvé dans cette discution.

En revanche ce que je peux te conseiller (peu être l'as tu déjà fait) c'est d'utiliser le forum pour y poser une nouvelle question le plus précise possible pour avoir de l'aide de toute la communauté dès que besoins.
@+: Ju£i?n
Pensez: Réponse acceptée

cs_othi · Answer

salut [auteurdetail.aspx?ID= 89254 Ju£i?n,] merci pour ta reponse, mais j'ai une question par rapport a l'exo de [auteurdetail.aspx?ID=1001034 tlemeillat] , j'ai esseye de voir le code, et j'ai mit sous vb6.0 ce que vous avez avancer ensemble, mais je trouve que il y a toujours un pronbleme au niveau des voisins satisfait, car le code fournit ca march bien mais pas pour les colones et les lignes sur les bord car si j'ai bien compri, une des cases qui ce situe dan le premier colone, ses voisins sont celle du second colone et le ligne du haut et le ligne du bat et le dernier colone (et c'est la ou il affiche pas la bonne resultat) on a comm l'impression qu'il calcul par rapport a une colone cacher qu'on le voi pas. Peut etre tu voi que je suis curieu :$ et je te redemande peut etre une question que tu a deja resolu avec [auteurdetail.aspx?ID =1001034 tlemeillat] Mais je trouve que sont exo est interessant :) Merci Othi [auteurdetail.aspx?ID=1001034 ]

jrivet · Answer

Re,
Comme je te l'ai dit je ne garde pas les codes. mais je me souviens que lors de mes test j'avais ce problème. Peu être alors devrais tu améliorer la fonction qui cherche le nombre de voisins, et ajouter des condistions quant à la position de la cellule. (à savoir 1 ere et derniere ligne, 1 ere et derniere colonne)

@+: Ju£i?n
Pensez: Réponse acceptée

shyen974 · Answer

salut a tous!
le sujet  m'interesse également, est ce que l'un de vous pourrait m'envoyer le code stp?
merci

jrivet · Answer

Salut,
OU la mais les Profs donnent tous le même exam ou quoi?

@+: Ju£i?n
Pensez: Réponse acceptée

cs_mafe · Answer

salut!!! j'ai le même programme à faire!!! Bon voila j'ai travailler de mon coté et avec les informations que vous avez laissé sur le forum.. mais g un probléme avec la procédure rangement et déplacement.. je n'arrive pas à déplacer mes individus rouge et les bleus dans un tableau imaginaire puis les remettre dans le tableau à la suite(c'est à dire d'abord les bleu apres les rouges, ou inversement) je laisse en gros ske j'ai fais et en regardant sur ce forum: Private Sub Rangement() Dim Source As T_Agent Dim Destination As T_Agent Dim TmpCol As Integer Dim TmpLig As Integer Dim TmpCoul As Long Dim ind As Integer Dim i As Integer Dim j As Integer 'On Parcour une premiere fois For i = 0 To UBound(LesInsatisfaits) - 1 'on parcours une seconde fois pour lui trouver 'une plase satisfaisante For j = i To UBound(LesInsatisfaits) Source = LesInsatisfaits(i) Destination = LesInsatisfaits(j) 'SI les couleurs sont différentes If (Source.T_Couleur <> Destination.T_Couleur) And Not Source.T_Deplacer And Not Destination.T_Deplacer Then 'On intervertit les agent sur le damier agent( ind ).BackColor = Source.T_Couleur agent( ind ).BackColor = Destination.T_Couleur Exit For End If Next j Next i End Sub 'Private Sub deplacement() 'Dim i As Integer 'Dim j As Integer 'Dim couleurind As Integer 'Dim dimtemp As Integer 'Dim Ind As Integer 'Dim lig As Integer 'Dim col As Integer 'Dim temp(1 To 31, 1 To 31, 2) As Integer 'couleurind = 2 'For lig = 1 To dimterrain 'For col = 1 To dimterrain ' Ind = indice(col, lig) 'Ind = temp(i, j, 2) temp' sur cette ligne je ne comprend pas 'Next col 'Next lig 'End Sub

Petit pb de débutant

45 réponses

Votre réponse

Discussions similaires