Discussion :

[xomus]

* Bonjour *
mon sujet consiste a faire rentrer des cables ( rondes) dans une espece de tube ( rond)

étant débutant , à savoir que je viens de débuter le VBA ce Lundi
Je n'arrive pas à élaborer une fonction qui permet de prendre la colonne des diametre des cables et les positionner dans le tube , je vais vou expliquer

---> j'ai réussi a faire une fonction qui ellabore un rond de '1' et l'exterieur c'est des 0
--->maintenant la fonction que je n'arrive pas à faire c'est qu'elle localise les 1 et elle les modifie en 0 ( ça veut dire qu'elle a placé le cable)
si vous pouvez me faire la fonction qui prends les diametre d'une colonne d'une feuille et et insere le cable et merci infiniment

[Jean-Philippe André]

Bonjour nouveau membre pressé

Se mettre au travail de la veille pour le lendemain et venir pleurer famine n'est pas forcement le plus efficace, et c'est relativement mal vu par les membres.

Concernant ton probleme (s'il est toujours d'actualite), tu ne nous donnes pas assez de details sur ce que tu as exactement dans tes cellules, ni ce que tu veux en faire.

Un effort de ta part sera la premiere etape pour esperer obtenir des pistes de resolutions de la notre.

[xomus]

3 jours que je suis entrain de bosser sur ce sujet , je n'arrive toujours pas à prendre la colonne des diametre et la mettre dans un tableau en VBA et l'a traiter

[Jean-Philippe André]

Certes, mais tu ne nous fourni aucun code sur lequel on pourrait se faire les dents.

Tu nous parles de tableau, regarde donc ce tuto
http://didier-gonard.developpez.com/...s-tableau-vba/

[Menhir]

3 jours que je suis entrain de bosser sur ce sujet , je n'arrive toujours pas à prendre la colonne des diametre et la mettre dans un tableau en VBA et l'a traiter

Peut-être pourrais-tu présenter le code que tu as essayé d'élaborer au cours de ces 3 jours.

De plus, comme l'a dit Jean-Philippe, tes explications ne sont ni assez claires ni assez détaillées pour pouvoir t'aider et tu ne prends toujours pas la peine, dans ton second message, de compléter tes explications.

[xomus]

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
Function chercheuse(mat_cercle As Variant, d As Double, p As Double) As Variant
 
Dim x, resultat As Long
 
z = Val(d / p)
 
ReDim mat_cercle(1 To z, 1 To z) As Integer
 
 
 
n = UBound(mat_cercle)
 
 For v = 1 To 230
 x = Sheets("Feuil14").Cells(v, 3).Value
 Next
 
 
ReDim mat_cercle(1 To n, 1 To n) As Integer
 
For i = 1 To n
For j = 1 To n
For k = i - (x / (2 * p)) To i + (x / (2 * p))
For l = j - (x / (2 * p)) To j + (x / (2 * p))
If mat_cercle(k, l) = 1 Then
  mat_cercle(k, l) = 0

[ogichi]

tu peux balancer ton fichier?