fabientoupeti

a voir si ça peut t'aider: Sub CATMain() Dim sMessage As string sMessage = InputBox ("entre msg", "message","yep") fichier=CATIA.FileSelectionBox("fichier texte",".*txt",CatFileSelectionModeOpen) Open fichier & ".txt" For Output As #1 Print#1, "le texte rentré dans l'inputBox est : " & sMessage Close #1 End Sub

bonjour, j'ai un petit soucis avec une scrollbar dans un formulaire. j'ai un formulaire avec des contrôles créés en dynamique sur ce formulaire j'ai ajouté une scrollbar. A l'heure actuelle ma scrollbar fonctionne quand je clique et que je déplace la barre mais avec les fleches rien ne bouge à part la barre. quelqu'un sait-il d'où cela vient? faut il que je mette tous mes controles dans une frame avec la scrollbar directement dans la frame? faut il que j'utilise la scrollbar de ma userform sans en rajouter une nouvelle? Merci d'avance pour vos réponses. Fabientoupeti

Merci pascalM pour ton aide, je viens d'essayer un truc mais ça ne fonctionne pas bien mieux, je n'ai plus de message d'erreur mais ce n'est pas pour autant que j'ai ce que je veux voici mon code des fois que quelqu'un voit une faute For X = 1 To (cantidad - 2) For j = 4 To i 'principio de lectura :linea 4 (antes son solo declaraciónes) 'j=linea y 0=pimera columna Dim t1 t1 = LeTableau(j)(0) Select Case t1 Case ls * X sum(X) = Sqr(LeTableau(j)(3) ^ 2 + LeTableau(j)(4) ^ 2 + LeTableau(j)(5) ^ 2) sum(X) = Round(sum(X), 5) af(X).writeline (sum(X)) End Select Next j Next X i vaut env 12000 c'est le nombre de ligne d'un fichier texte que je lis. voilivoilou merci d'avance fabientoupeti

je viens de lire plus precisement le message d'erreur, il me dit qu'il n'est pas possible de mettre autre chose qu'un commentaire entre select case et le premier case...ça ne m'arrange pas cela. avant a la place de l'instruction select case j'utilisais l'instruction if...elseif mais ce n'es pas non plus possible d'introduire une boucle for juste avant le elseif... là vraiment je ne sais pas comment solutionner mon probleme?? je vais continuer à chercher mais si quelqu'un a une idee je suis preneur parce que là pour l'instant j'avoue ne pas trop savoir comment faire. voilivoilou merci d'avance pour les aides que vous pourrez m'apporter fabientoupeti

Merci maximilien pour ton aide En fait ce que j'aimerais faire c'est incorporer une boucle for entre select case et le premier case voici exemple: Select Case t1 For X = 1 To cantidad - 2 Case 5 * X sum(X) = Sqr(LeTableau(j)(3) ^ 2 + LeTableau(j)(4) ^ 2 + LeTableau(j)(5) ^ 2) sum(X) = Round(sum(X), 5) af(X).writeline (sum(X))Next X mais quand je fais ça mon programme ne se lance pas (message d'erreur) et je ne sais pas ce qui le gêne. en ce moment chaque cas 5,10,15,20...sont ecrit explicitement mais pour la finalité de mon programme faut que je trouve une solution d'automatiser cela parce que par la suite je ne vais plus connaitre cantidad,ca va etre un parametre à renseigner au lancement du programme. voilivoilou en esperant avoir été clair. merci d'avance fabientoupeti

bonjour, j'aimerais savoir si il etait possible de créer une boucle for à l'interieur d'un select case en vb6. je veux faire ça parce que je ne connais pas à priori le nombre de cas que je vais devoir tester. si cela n'est pas possible, y aurait-il une autre solution pour arriver à un résultat similaire (autres boucles...)? merci d'avance pour vos réponses Fabientouepti

des que je essayer ce que tu m'as indiqué je le fais et je te tiens au courant. merci beaucoup pour tes conseils, je suis un petit nouveau alors je ne connais pas tout encore sur l'utilisation du forum. a+ fabientoupeti

Bonjour en fait le probleme que j'avais (pour ce probleme j'ai trouvé une solution) et que j'ai pour d'autre broutille c'est que j'ai créé mes textbox en dynamique parce que je ne sais pqs à priori le nombre que je vais devoir utiliser à l'execution du programme. et tout mon probleme venait de là. voici les solutions que l'on a pu me proposer sur des autres forums et qui fonctionnent. dans le module de mon programme general j'ai ecrit ce bout de code: For Each rad In definicion_mano.Controls If rad.Name = "textrad0" Then 'MsgBox rad.Name MsgBox "la valeur de " & rad.Name & " est : " & rad.Value ra0 = rad.Value End If Next rad MsgBox ra0 cela me permet de recuperer la valeur de textrad0. ce petit bout de code peut etre tres facilement adapté pour recuperer la totalité des textrad*. voilivoilou merci beaucoup sechanbask pour tes aides precieuses

bonjour, je suis entrain de créer un userform qui contient des controls (label et textbox créé) de façon dynamique, sur cette userform il y a aussi une scrollbar verticale, et autres textbox créé eux de manière classique. voila comment se deroule mon prog : je rentre une valeur de ligne à créer sur ma userform, je clique OK nombre de ligne demandé se crée, sur chaque ligne j'ai un label et 4 textbox. si je depasse 25 lignes le tout sort de ma page c'est pour cela que j'ai poser une scrollbar. ce que j'aimerai faire c'est pouvoir deplacer les labels et les textbox créés dynamiquement avec la scrollbar, mais je n'y arrive pas. actuellement voici ce que j'ai, une boucle de creation de label en dynamique For i = 1 To cantidad 'boucle pour la création des label capa Set capa = definicion_mano.Controls.Add("forms.Label.1") With capa .Name = "capa" & i - 1 .Object.Caption = "capa" & i - 1 .left = 90 .Top = 18 * i + 5 .width = 60 .height = 20 End With Next i une boucle qui recupere la valeur de la position de chaque label '---------recup de la position suivant top des labels capa----------- For i = 1 To cantidad For Each capa In definicion_mano.Controls If capa.Name = "capa" & i - 1 Then captop(i - 1) = capa.Top End If Next capa Next i j'arrive donc a avoir la valeur du .top de ces labels la valeur varie meme avec la scrollbar captop(0) = 23 - ScrollBar1.Value mais par contre la position du label en lui même sur ma userform ne varie pas et je ne vois pas ce qu'il me manque. un update ou une sorte d'actualisation de la position peut etre? voilivoilou si quelqu'un pouvait me donner un tuyau pour pouvoir faire ça, ça serait vraiment super merci d'avance fabientoupeti

je suis conscient que j'ai été un peu fouilli lors de mon premier poste c'est pour ça que je viens de préciser ce que je veux régler, mais d'après ce que tu me dit ce n'est pas encore assez clair... et je me suis permis de reposter un message parce que peut etre quelqu'un d'autre pourra me donner une piste. et à mon avis catia ou pas, vb ça reste du vb et peut etre que je me trompe mais le vb et en particulier l'utilisation des userforms et les commandes associés (textbox, .value, .name...) restent les mêmes d'un logiciel à un autre. voilivoilou merci d'avance pour vos réponses et les aides que vous pourrez m'apporter fabientoupeti

rebonjour j'ai passé toute ma journée à chercher une solution mais je n'y arrive pas tout seul. mon probleme est la recuperation des valeurs de mes textbox créées j'ai essayé pas mal de truc mais la seule chose que je parviens a faire c'est recuperer le valeur de la derniere textbox en ecrivant MsgBox rad.value voici le bout de programme For i = 1 To cantidad 'boucle pour la création des textbox radio Set rad = definicion_mano.Controls.Add("forms.TextBox.1") With rad .Name = "textrad" & i - 1 'je n'arrive pas a reutiliser ce nom dans la suite de mon prog .left = 138 .top = 18 * i + 5 .width = 40 .height = 20 .Value = i End With Next i Quand j'ecris Msgbox textrad0 ou Msgbox textrad1 ou un autre chiffre j'ai un message d'erreur. peut etre que j'oublie une chose essentielle plus grosse que moi??? quelqu'un aurait-il une piste pour moi? parce que là je commence à désespérer Merci d'avance pour vos réponses fabientoupeti

merci beaucoup sechanbask, je ne connaissais pas ça et ça fonctionne du feu de dieu! qu'est ce que tu aimerais savoir sur les commandes? hier je croyais avoir tout dit... voilivoilou merci encore pour ton aide fabientoupeti

Bonjour à tous, je suis un petit nouveau dans le monde de VB ( 3 mois d'ancienneté alors je ne connais pas toutes les ficelles du métier et là je crois que j'ai besoin df'aide parce que je suis comme on dit un peu perdu) J'utilise VB avec CATIA en faisant de la macro pour creer une aorte abdominale Ce que je souhaite faire : créer un formulaire dynamique contenant un nombre de lignes spécifiées. chaque ligne correspond à un cercle avec son centre, son rayon, et l'épaisseur de la paroi de l'aorte entre cercles "capa". voici ce que j'ai fait jusqu'à présent (je pose directement le code ca sera plus parlant) comme ça avec un copier/coller vous pourrez tout de suite voir ce que ça donne. Dans un form qui s'appelle definicion_mano creer a la main 3 boutons commandes comme sur l'image command1=creación command2=OK command3 =cancelar 2 textbox textbox1 fera reference à cantidad et textbox2 fera ref à distancia (non utilisé pour l'instant) et 4 label au dessus de chaque colonne de textbox radio excen Y excen Z espesor '-------------------------------------- 'L'UserForm doit préalablement contenir un bouton nommé CommandButton1 Option Explicit Private Sub CommandButton1_Click() cantidad = Replace(definicion_mano.TextBox1.Value, ".", ",") Dim capa As Control Dim rad As Control Dim excenY As Control Dim excenZ As Control Dim espe As Control Dim i As Integer '-------------------------------------------------------------------------- For i = 1 To cantidad 'boucle pour la création des label capa Set capa = definicion_mano.Controls.Add("forms.Label.1") With capa .Name = "capa" & i - 1 .Object.Caption = "capa" & i - 1 .left = 90 .top = 18 * i + 5 .width = 60 .height = 20 End With Next i '---------------------------------------------------------------------------- For i = 1 To cantidad 'boucle pour la création des textbox radio Set rad = definicion_mano.Controls.Add("forms.TextBox.1") With rad .Name = "textrad" & i - 1 .left = 138 .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad 'boucle pour la création des textbox exc Y Set excenY = definicion_mano.Controls.Add("forms.TextBox.1") With excenY .Name = "textexcY" & i - 1 .left = 203 '(11 de plus que label.left) .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad 'boucle pour la création des textbox exc Z Set excenZ = definicion_mano.Controls.Add("forms.TextBox.1") With excenZ .Name = "textexcZ" & i - 1 .left = 275 '(11 de plus que label.left) .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad - 1 'boucle pour la création des textbox espesor Set espe = definicion_mano.Controls.Add("forms.TextBox.1") With espe .Name = "textespesor" & i - 1 .left = 338 '4 de moins que label left .top = 18 * i + 15 .width = 40 .height = 20 End With Next i End Sub Private Sub CommandButton2_Click() creation2 = "oui" definicion_mano.Hide End Sub Private Sub CommandButton3_Click() creation2 = "non" definicion_mano.Hide End Sub Dans un module avec n'importe quel nom Sub CATMain() definicion_mano.Show If creation2 = "oui" Then Else MsgBox "comando cancelado por el usuario", vbOKOnly, "Error" End If End Sub Dans un autre module avec n'importe quel nom Option Explicit Public creation2 As String Public cantidad As Double maintenant que je viens de poser mon code, voici ce qu'il faut faire pour l'utiliser: ecrire une valeur dans la textbox1 et cliquer sur creación un nombre de lignes avec capaX se creer. maintenant passons aux questions et problèmes: si je lance deux fois de suite mon prog la valeur entrée la preñiere fois reste et mon formulaire ne se reactualise pas automatiquement.(en particulier quand je veux mettre une valeur plus petite la seconde fois) Comment réutiliser les valeurs rentrées à la main dans mon formulaire afin de créer mon aorte dans CATIA (ne serait que savoir quoi mettre dans MsgBox pour retrouver la valeur renseigner par exemple pour radio de capa0). Et pour finir est ce que je pars sur la bonne voie bien ou pas? y a t'il une manière plus simple de faire cela? Vais-je être obligé d'utiliser un module de classe? voilivoilou Merci d'avance Fabientoupeti ps:les noms sont en espagnol parce que je suis en stage en espagne en ce moment, voilà vous savez tout.

Salut chocolatGC, bon alors moi je n'ai pas réinstallé CATIA, j'ai peut être eu de le chance je en sais pas, mais je suis juste allé dnas les options->part infrastucture->partdocument et j'ai activé la case hybrid design et creer un geometrical Set. pour résumer, j'ai configuré le lancement du part de R17 comme celui de R15. avant que cela fonctionne j'ai du régler quelques petits problèmes dans mon programme (petites failles au niveau des noms des sketchs, j'avais un decalage dans les numéros des sketchs) mais maintenant mon programme tourne sans probleme (enfin jusque là!) voilivoilou en esperant que ton soucis se regle aussi facilement que le mien bon courage a+ fabientoupeti

Merci beaucoup pour ta réponse naurel, vu que je suis sur un projet qui utilise des macros je ne pense pas revenir en arrière plus tard donc je vais laisser ça comme ça, le truc maintenant c'est qu'il faut que j'arrive à faire tourner mon programme. Mais je pense que ca va le faire d'ici peu. merci encore pour vos aides, c'est vraiment sympa. A+ fabientoupeti