Aller au contenu

VBA et VB


Sous-forums

  1. Routines VBA

    Postez ici vos routines VB ou VBA. Une routine est du code court destiné à être réutilisé. Par exemple, un programme trouvant la distance entre deux points est une routine. Ne postez pas d'applications ici!

    845
    messages

836 sujets dans ce forum

  1. Problème sur routine

    • 6 réponses
    • 3,1 k vues
    • 0 réponse
    • 3,1 k vues
    • 5 réponses
    • 3,1 k vues
    • 2 réponses
    • 3,1 k vues
  2. Demande d\'infos sur VB(A)

    • 3 réponses
    • 3,1 k vues
    • 4 réponses
    • 3,1 k vues
    • 0 réponse
    • 3,1 k vues
    • 13 réponses
    • 3,1 k vues
  3. Cumul Des chiffres

    • 7 réponses
    • 3,1 k vues
    • 3 réponses
    • 3,1 k vues
    • 6 réponses
    • 3,1 k vues
  4. Miroir au mon beau miroir

    • 3 réponses
    • 3,1 k vues
    • 9 réponses
    • 3,1 k vues
  5. Texte justifié à droite

    • 4 réponses
    • 3,1 k vues
  6. Combobox

    • 1 réponse
    • 3,1 k vues
  7. vb.net debuter

    • 2 réponses
    • 3,1 k vues
  8. excel pas excelent...

    • 5 réponses
    • 3,1 k vues
    • 2 réponses
    • 3,1 k vues
    • 19 réponses
    • 3,1 k vues
    • 0 réponse
    • 3,1 k vues
    • 3 réponses
    • 3,1 k vues
  9. Configurer un traceur en VBA

    • 4 réponses
    • 3,1 k vues
    • 1 réponse
    • 3,1 k vues
  10. Probleme avec Sendcommand

    • 2 réponses
    • 3 k vues
  11. Lister les Présentations

    • 2 réponses
    • 3 k vues


  • Statistiques des forums

    • Total des sujets
      49,5 k
    • Total des messages
      300,2 k
  • Sujets

  • Messages

    • Invité GarenFak
      [url=http://buyprepaidcards.cvv2cvc.net]Store Hacked paypal Shop Hacked card[/url] Item 01 Card Total Balance: $3 100 - Price $ 110.00 Item 03 Cards Total Balance $9 600 - Price $ 180.00 Item PayPal Transfers $500 - Price $ 49.00 Item PayPal Transfers $2 000 - Price $ 149.00 Item Western Union Transfers $1 000 - Price $ 99.00 Item Western Union Transfers $300 - Price $ 249.00 *Prices on the website may vary slightly [url=http://buyprepaid-cards.cvv2cvc.net]Buy Credit Cards Store Credit cards[/url]
    • Euh... désolé mais je viens de me rendre compte que j'avais déjà ouvert un post sur ce sujet....
    • Carrément pénible !!! C'est systématique quand tu veux éditer tes mises en plan. 1 coup tu as tes courbes de niveau qui se retrouvent derrière, ou tes projets, ou... Alors tu retournes dan ton espace objet et tu refais pour la Xème fois la manip ! Et 2 minutes après rebelote ... En SIG c'est vrai qu'il n'y a pas ce problème mais ce n'est pas le même usage non plus 😉
    • Bonjour, Il est vrai que c’est frustrant ce problème d'arrière-plan qui se modifie souvent. Quand tu passes d'AutoCAD à un vrai logiciel de cartographie (Qgis) où l'ordre d'affichage est toujours respecté, c'est compliqué de revenir sur un logiciel de DAO. Fabcad Le Rennais Métropolitain
    • Moi j'utilise ce lisp dans certaines conditions et ça marche pas mal. Je ne sais plus où je l'ai récupéré 😉 ;; SOUSTRAC (gile) ;; Effectue une soustraction de régions ou solides 3d sans faire d'union ;; Propose de supprimer ou de conserver les objets soustraits (defun c:soustrac (/ *error* ss1 ss2 n lst)   (vl-load-com)   (or *acdoc*       (setq *acdoc* (vla-get-activeDocument (vlax-get-acad-object)))   )   (defun *error* (msg)     (and       msg       (/= msg "Fonction annulée")       (princ (strcat "\nErreur: " msg))     )     (vla-EndUndoMark *acdoc*)     (princ)   )   (princ     "\nSélectionnez les solides et les régions à enlever de .."   )   (if     (setq ss1 (ssget '((0 . "REGION,3DSOLID"))))      (if (and        (princ          "\nSélectionnez les solides et les régions à soustraire .."        )        (setq ss2 (ssget '((0 . "REGION,3DSOLID"))))      )        (progn      (vla-StartUndoMark *acdoc*)      (repeat (setq n (sslength ss2))        (setq          lst           (cons         (vlax-ename->vla-object (ssname ss2 (setq n (1- n))))         lst           )        )      )      (repeat (setq n (sslength ss1))        (setq          obj (vlax-ename->vla-object (ssname ss1 (setq n (1- n))))        )        (foreach o lst          (and (= (vla-get-ObjectName obj) (vla-get-ObjectName o))           (vla-Boolean obj acSubtraction (vla-copy o))          )        )      )      (initget "Oui Non")      (if (= "Oui" (getkword "\nSupprimer les objets soustraits [Oui/Non] <N>: "))           (mapcar 'vla-delete lst)      )      (*error* nil)        )      )   ) )
  • Sujets

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité