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