Sujet sur VBA a rendre pour demain :(

* 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

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.

:cristal:

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

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/

Citation:

---

Envoyé par 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

---

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.

Code:

---

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

---

tu peux balancer ton fichier?

co,tacte moi sur mehdin.iso@gmail.com

Bonjour
Il me semble bien que "demain", c'était hier !
Je pense donc qu'entre-temps, tu as eu l'occasion de connaître la réponse de ton correcteur.
Si tel n'est pas encore le cas (week-end) tu as déjà remis ta copie et tu la connaîtras bientôt, cette correction. Non ?
Et tout me parait ainsi pour le mieux dans le meilleur des mondes. ;)

C'est un mini Projet , il m'a donné un temps jusqu a Lundi .....

Citation:

---

il m'a donné un temps jusqu a Lundi .....

---

Demande-lui un "temps" plus long et justifie-le en lui communiquant la page de cette discussion pour lui prouver que tu es dépendant de la "soluce" que tu attends d'autres.
Il comprendra, je pense, non ? ;)

c'ea fait c'est un projet pour une societé , je suis en plein de stage , je ne peux pas ...

c'ea fait c'est un projet pour une societé , je suis en plein stage , je ne peux pas ...

Donc, ton école ne t'as pas enseigné le VBA et t'a imposé un stage où tu dois utiliser VBA et tu as une semaine pour apprendre et produire quelque chose. Il y a des gnochons à quelque part.

P.S. Tu pourras leur dire de ma part à ces moules à gaufres que gnochons c'est pour être poli. Ce serait plus vrai en enlevant gno et h.