Discussion :

[xomus]

Voici le code

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
22
23
24
25
26
27
28
29
Public Function InsertionsCable(matBuse As Variant, matCable As Variant) As Variant
 
lb = UBound(matBuse, 1): cb = UBound(matBuse, 2)
lc = UBound(matCable, 1): cc = UBound(matCable, 2)
ReDim matBuse(1 To lb, 1 To cb) As Integer
'ReDim matCable(1 To n, 1 To n) As Integer
For i = 1 To lb
 
For j = 1 To cb
For k = i - Val((lc / 2)) To i + Val((lc / 2))
 
For l = j - Val((cc / 2)) To j + Val((cc / 2))
 
  If matBuse(k, l) = 1 Then
    matBuse(k, l) = 0
  End If
 
 
  Next l
  Next k
 
  Next j
  Next i
 
End Function
 
Sub test_insertion()
affichResult InsertionsCable(mat_cercle(mat_Carré(30, 1)), mat_cercle(mat_Carré(10, 1)))
End Sub

[jerome.vaussenat]

Salut,

je ferai un essai pour tes boucles de les faire évoluer de 0 to XX.

Le message est dû au fait que tu vas au delà de la dimension du tableau.

Si ton tableau ne contient pas trop de données, essaie de mettre un point d’arrêt sur tes boucles (une par une) et regarde comment évoluent tes variables.

[xomus]

Merci

[Jean-Philippe André]

Salut;

et que t'ont donné les tests proposés par Jérôme ?

La solution est très simple à trouver une fois le problème identifié !

[xomus]

Salut;

et que t'ont donné les tests proposés par Jérôme ?

La solution est très simple à trouver une fois le problème identifié !

Rien je suis toujours bloqué

[Jean-Philippe André]

Comment ca rien ?


tu peux recuperer l'info sur les bornes d'un élément avec UBound ET LBound.

Tu dois bien pouvoir voir la valeur que prend k et l sur ta ligne.

Tu peux placer un point d'arrêt (F9) ou utiliser une variable espion (Maj + F9).