Bonjour XLDnaute,
Auriez vous une solution a mon problème ci dessous :
J'ai actuellement mon fichier ci joint, qui a terme me permettrais de tracer des objets Cercle sous AutoCAD.
Pour cela j'aimerais que celui ci fonctionne en demandant a l'opérateur de cocher des cases sur le USF et que chaque case cocher renvoie les valeurs qui se situe en face des noms des cases par exemple si l'opérateur coche les cellules 1A, 2B et 3C, j'aimerais la macro récupere les donnes (-120, -207.8461 pour 1A / 0,0 pour 2B / 120, -207.8461 pour 3C) et que ces valeurs soit rempli automatiquement dans le morceau de code suivant :
Et que la macro le fasse au final en boucle pour chaque case cocher suivant la liste sur le USF avec le code suivant qui me permet de générer les objets cercles sur AutoCAD.
Merci a tous.
Auriez vous une solution a mon problème ci dessous :
J'ai actuellement mon fichier ci joint, qui a terme me permettrais de tracer des objets Cercle sous AutoCAD.
Pour cela j'aimerais que celui ci fonctionne en demandant a l'opérateur de cocher des cases sur le USF et que chaque case cocher renvoie les valeurs qui se situe en face des noms des cases par exemple si l'opérateur coche les cellules 1A, 2B et 3C, j'aimerais la macro récupere les donnes (-120, -207.8461 pour 1A / 0,0 pour 2B / 120, -207.8461 pour 3C) et que ces valeurs soit rempli automatiquement dans le morceau de code suivant :
VB:
CC(0) = Range("Valeur Centre X pour chaque case cocher"): CC(1) = Range ("Valeur Centre Y pour chaque case cocher")
Et que la macro le fasse au final en boucle pour chaque case cocher suivant la liste sur le USF avec le code suivant qui me permet de générer les objets cercles sur AutoCAD.
VB:
CC(0) = Range("C" & i): CC(1) = Range("D" & i)
'TEST CD(0) = CC(0): CD(1) = CC(1) - ("Valeur associer en colonne J suivant choix listbox1")
'Cercle
Set Cercle = AcadPlan.ModelSpace.AddCircle(CC, ComboBox1.Value)
Cercle.Color = Couleur
Cercle.LineWeight = Epaisseur
'Détécteur
Set Cercle = AcadPlan.ModelSpace.AddCircle(CD, 9.5)
Merci a tous.