gawel

Salut, je crois voir ce que tu veux dire. Tu peux essayer d'aller dans les options de catia, rubrique Général/Affichage onglet Performances. Ensuite regardes si dans la partie "précision 3D" si tu as l'option fixe de cocher; si c'est le cas, dès que tu va zoomer, tes arcs vont se retrouver facettiser. Donc à décocher et à mettre proportionnel ou descendre la valeur du fixe à 0.01 Par contre si cela le fait sans avoir zoomer sur ton arc, va falloir chercher ailleurs. Gawel

Salut Enael, en effet, ça faisait un moment... j'avais d'autres taches à effectuer+ les vacances, mais maintenant je reviens sur mon appli pour 6 semaines environ. Je n'ai pas réussi à trouver "LanguageSettings" dans l'éditeur... Je cherche toujours.... :casstet: @+ tard ! Gawel

Salut à tous, je cherche la commande qui me servira à connaitre la langue utilisée par défaut par le système d'exploitation (français ou anglais), dans le but d'ouvrir par un bouton un fichier qui sera soit en français, soit en anglais. Merci Gawel

ça fait 5 minutes que je regarde, j'avoue que j'ai pas encore compris... ça va me donner mal à la tête tout ça :mad2: Gawel

Ah ouais, en effet, c'est excellent !! je ne connaissais pas la logomachie; je pourrais dire maintenant que certains de mes patrons "logomachisent" dur !! Gawel

Ah oui c'est vrai que c'est tout bête ! Mille mercis, à toi aussi serge (je crois que je vais prendre la solution d'enael tout de même, ça me fera moins de modif...) !! Gawel

BOnjour à tous, Est-il possible d'insérer un gif animé dans un userform ? J'ai l'impression que l'on ne peut qu'uniquement des images bmp... Gawel

Bonjour à tous, j'ai un petit problème qui n'est pas bloquant, mais qui est assez gênant dans mon appli. j'utilise une appli VB qui utilise 5 userform. On passe de l'une à l'autre par un bouton suivant. j'ai aussi mis un bouton précédent pour modifier par exemple un choix déjà effectué dans un combobox par exemple. Le souci, c'est que lorsque je fais précédent, il rajoute dans mes combobox tous les item qui étaient déjà présent. En effet, en réactivant la fenêtre précédente, il ré-éxécute ce que je lui demande de faire: mais moi je ne voudrais pas qu'il ré-éxécute ce qu'il a déjà effectué une fois .... :casstet: voici une exemple de ce qu'il éxécute: Private Sub UserForm_Activate() On Error GoTo Erreur ComboBox1.AddItem "1 bague" ComboBox1.AddItem "2 bagues" ComboBox2.AddItem "par l'avant" ComboBox2.AddItem "par l'arrière" Exit Sub End Sub Y-a-t-il un moyen :question: Gawel

Ah !!! Moi je l'ai déjà fait donc motus et bouche cousue ! bonne chance pour les autres ! Gawel

normalement oui, chez nous, on utilise ce petit bout de programme pour lancer une appli réaliser avec delphi. Et comme le dit enael, avec la variable CATIA, tu peux réaliser les opérations que tu souhaites. @+ ! Gawel

ne cherchez plus, j'ai trouvé ce qu'il me fallait, il suffit de mettre: Private Sub ComboBox1_Change() blablabla end sub désolé pour le dérangement.... Gawel

Bonjour à tous, dans mon appli, j'ai un combobox qui contient 3 choix; je voudrais, en fonction du choix effectué, modifier l'affichage de ma userform, c'est à dire que par exemple: si je prends choix1 alors en-dessous un textbox apparaît avec un label si j'ai le choix 2, alors le label est modifié si j'ai le choix 3, alors le label et le textbox ne sont plus visibles Quelqu'un aurait-il un bout de réponse ?? Merci ! Gawel

c'st marrant comme quoi on peut avoir des gens qui ont exactement le même nom. Bon en tout cas je crois que la conversation est complètement hors sujet maintenant :exclam: A+ tard ! Gawel

Salut DotNET74, peut-être peux-tu passer par un petit CATScript qui te permettrait de lancer ton .exe. en fait tu créés le CATScript suivant, tu l'associes à un bouton dans une nouvelle barre d'outil; en cliquant sur ce bouton, tu lances ton appli quelqu'elle soit. voici le code: Language="VBSCRIPT" Sub CATMain() On Error Resume Next CATIA.Interactive = False ReturnCode = CATIA.SystemService.ExecuteBackGroundProcessus("C:\tonprogramme.exe") CATIA.Interactive = True End Sub voilà, cela pourra peut-être t'aider Gawel

lycée: st gab ville st laurent 85 y'a environ 12 ans...... gawel

oui oui, il s'agit de celle-ci: guillaumechiron28@hotmail.com c'est juste par curiosité, car je connaissais qqun au lycée avec le même nom, c'est pour ça. gawel

Salut enael, en fait, le problème que j'ai c'est qu'il faut que je trouve le fullname d'un catpart parmi plusieurs dans le document actif. Après avoir cherché, j'ai trouvé une solution (c'est un collègue à moi qui me l'a montré) et ça marche au poil: Dim toto As Product Set toto = newproduct1.Products.Item(1) Dim titi As Product Set titi= Ptirant.Products.Item("ESSAI.1") Dim titipath As String titipath = titi.ReferenceProduct.Parent.FullName Cela me donne le chemin complet du product que je souhaite, il ne me reste plus après qu'à tronquer le chemin pour garder ce qui m'intéresse. Gawel PS: j'ai vu dans un autre sujet une adresse courriel avec un nom; j'ai connu qqun s'appelant pareil au lycée...

merci Pako, j'ai vu aussi que l'on pouvait appeler une fonction en mettant: sub nomfonction(paramètres) dim variables code end sub et après on l'appelait par un call; est-ce que ce procédé fonctionne à l'identique ? Gawel

Salut à tous, j'ai énormément de code qui revient fréquemment dans mon programme, et il s'agit toutjours de la même chose. Etant novice dans le VB, je sollicite votre aide pour me montrer comment créer une Function reprenons le code du sujet précédent (Filelist est un tableau de type chaine): Dim i, intTmp, x As Integer Dim TriFini, PasFini As Boolean TriFini = False '-------------------- Do While TriFini = False 'faire tant que le tri n'est pas fini For i = 0 To UBound(FileList) - 1 If FileList(i) > FileList(i + 1) Then '------------------permutation intTmp = FileList(i) FileList(i) = FileList(i + 1) FileList(i + 1) = intTmp '------------------ PasFini = True 'si on ne repasse plus ici 'PasFini sera = à False (cf plus bas) End If Next i If PasFini = False Then TriFini = True Exit Do '-------------------------fin ici End If 'On réinitialise la valeur PasFini PasFini = False Loop '------------------------------------------------- comment feriez-vous pour transformer ce code en une fonction ?? merci d'avance Gawel

Autant pour moi !! ne vous décarcassez pas !!! l'erreur ne viens pas de mon tri, elle est située plus loin dans mon code !!! désolé pour le dérangement :) gawel

salut à tous, j'ai un problème concernant un tri d'un tableau. si je suis avec 4 valeurs suivantes: 1 2 3 4 18 pas de problèmes, le tri se passe bien si je suis avec 5 valeurs suivantes :1 2 3 4 5 là je tourne en boucle..... peut-on imaginer que les valeurs soient dans l'ordre par défaut ? ce qui pourrait expliquer le schimblick ? est-ce qu'il me manque une condition de sortie ? voici mon code (Filelist est mon tableau): Dim i, intTmp, x As Integer Dim TriFini, PasFini As Boolean TriFini = False '-------------------- Do While TriFini = False 'faire tant que le tri n'est pas fini For i = 0 To UBound(FileList) - 1 If FileList(i) > FileList(i + 1) Then '------------------permutation intTmp = FileList(i) FileList(i) = FileList(i + 1) FileList(i + 1) = intTmp '------------------ PasFini = True 'si on ne repasse plus ici 'PasFini sera = à False (cf plus bas) End If Next i If PasFini = False Then TriFini = True Exit Do '-------------------------fin ici End If 'On réinitialise la valeur PasFini PasFini = False Loop Merci de vos remarques !! gawel

Salut, idem pour moi avec mozilla1.7 sous win 2000 pro et idem aussi avec IE6: 9% mince alors..... patientez, nous allons contacter le technocentre :exclam: gawel

c'est une appli qui sert à insérer automatiquement tout un environnement mécanique lié à un type de pièce. Etant donné le nombre conséquent de possibilité, on a pensé à créer une sorte d'assistant pour le choix des différentes fonctions et l'appli se charge d'aller les chercher, les insérer, les renommer et les sauvegarder (et c'est à ce niveau que le code me sert). pour l'instant , je vais créer la version 1.0, ensuite j'ai déjà pas mal d'idée pour rajouter des nouvelles fonctionnalités et rendre l'appli assez ergonomique. Si ça marche bien (je vais mettre l'appli en production vers la fin de semaine), je vais appliquer le même principe pour d'autres types de pièces. Voili voilà !! gawel

Merci Didier :exclam: Merci 8_pool :exclam: ça y est, mon code marche à merveille; j'ai suivi vos conseils, j'ai bien réfléchi sur ma méthode + beaucoup de recherches sur la toile. Voici mon code pour ceux que ça intéresse: Dim FileList() As String Dim sFolderName As String Dim caract8 As String Dim fd As String Dim sAns() As String Dim lCtr As Long 'initialisation du dossier de OF sFolderName = "K:\" & OF & FOLDER 'OF et FOLDER sont déjà déterminés ultérieurement caract8 = OF & "_REP" 'création tableau pour tous les repères déjà utilisés ReDim sAns(0) As String fd = dir(sFolderName & caract8 & "*.CATPart", vbNormal) Do While Len(fd) If sAns(0) = "" Then sAns(0) = fd Else lCtr = UBound(sAns) + 1 ReDim Preserve sAns(lCtr) As String sAns(lCtr) = format(Mid(fd, 9, 3), "000") End If fd = dir Loop FileList = sAns 'tri par ordre croissant du tableau Dim first As Long Dim last As Long Dim i As Long Dim noswap As Boolean Dim v As Variant first = LBound(FileList) last = UBound(FileList) last = last - 1 Do While first <= last noswap = True For i = first To last If FileList(i) > FileList(i + 1) Then v = FileList(i) FileList(i) = FileList(i + 1) FileList(i + 1) = v noswap = False End If Next i last = last - 1 If noswap Then Exit Do Loop 'détermination du numéro libre le plus proche en partant de 003 pour repere tirant Dim var_tirant As String Dim j As Integer Dim repere_tirant As String Dim last2 As Long last2 = UBound(FileList) var_tirant = "003" For j = 0 To last2 If FileList(j) < var_tirant Then j = j + 1 ElseIf FileList(j) = var_tirant Then var_tirant = var_tirant + 1 j = j + 1 ElseIf FileList(j) > var_tirant Then repere_tirant = format(var_tirant, "000") End If Next MsgBox repere_tirant je viens bientôt pouvoir partir en vacances la tête tranquille........ ah!! j'suis vraiment content, en plus pour un début de semaine, j'suis beacoup plus serein. @+ ! Gawel

je vois ce que tu veus dire; pour ton cas, c'est vrai que créer de nouveaux styles ne va pas vraiment t'aider, étant donné que c'est pluôt des valeurs numériques à prédéfinir. Dans ce cas, il faut peut-être utiliser une autre approche. Sais-tu que lorsque tu définis des nouvelles valeurs dans tes tolérances, elles peuvent être sauvegardées dans tes CATSettings perso; il faudrait alors ensuite injecter ces catsettings concernés dans les catsettings généraux. Celui qui t'intéresse doit être DraftingSession.CATSettings, il y a des chances, en tout cas c'est celui-ci qui a été rafraichi une fois après rajouter une nouvelle valeur chez moi en faisant un essai. A voir ...... gawel