GJulien

Bonsoir, Soit lors de la création du bloc comme le dit La Lozère, soit dans le panneau des propriétés dans l'éditeur de bloc si tu as oublié de le faire à la création. Pour pouvoir l'activer, il faut que tu rendes ton bloc annotatif. Cordialement, GJulien

Pour ma part, je n'ai jamais eu besoin d'aller plus vite que le fait de juste ré-appuyer sur "ENTER". Il faut voir ce que tu comptes faire, il y a peut-être une solution plus adaptée à ton besoin. Cordialement, GJulien

Bonjour, A partir du moment ou tu insères ton premier bloc dynamique, à chaque fois que tu appuies sur la touche "ENTER" tu vas ainsi répéter la même commande (si c'est bien ça que tu veux dire par "répétition"). Cordialement, GJulien

Bonjour, Il y a un sujet similaire à cette Adresse, peut-être y auras-tu ta solution. Cordialement, GJulien

Bonsoir, Si je suis sûr d'avoir bien compris, tu peux toujours faire un bloc de ton commentaire et activer l'option "Faire correspondre l'orientation à la présentation" dans l'édition de bloc. Ainsi malgré son SCU, ton texte sera toujours "droit" dans tes présentations. Cordialement,

Je me suis un peu égaré en disant ton calque courant, mais si tu changes la couleur de ton calque 0 ta ligne temporaire suivra cette couleur tout de même :) EDIT : Oups désolé je n'avais pas vu ton "PS".

Bonjour, Est-ce que tu as regardé le calque sur lequel tu travaille ? La couleur de ta ligne pour rechercher la distance est la même que celui de ton calque courant. Donc si ton arrière plan uniforme est disons blanc et que tu travailles sur un calque blanc ta ligne ne sera pas visible. Cordialement,

Bonsoir, J'ai fait un petit essai, tu peux récupérer la valeur avec (vlax-variant-value (vla-get-value (car dyn))) en le mettant après (setq dyn (vlax-invoke blo 'getdynamicblockproperties)) Cordialement, GJulien

Bonjour à tous, Déjà merci à toi Patrick_35, j'en ai arraché des cheveux à comprendre comment fonctionne exactement les données DXF avec entmakex mais j'ai aussi beaucoup appris :) Je tiens juste à préciser (des fois que je ne sois pas le seul à ne pas avoir compris et je peux dire que j'ai cherché un bon bout de temps ^^) que les angles des données DXF 51 et 52 sont à donner en radian, contrairement au fichier .mln qui est en degré. Voici le résultat et encore merci. Cordialement, ;; EMR ;; Définition des différentes routes d'évacuation avec calques et couleur correspondante. ;; Import des styles de ligne correspondants ;; Import du fichier .mln pour les multilignes ;; Traçage de la multiligne (vl-load-com) (setq ACADOBJ (vlax-get-acad-object)) (setq ACADDOC (vla-get-activedocument ACADOBJ)) ;-------------------------------------------------------------------------------------------------------------- ; Fonction servant à avoir toujours un nombre sur deux positions (ex : "1" devient "01") ;-------------------------------------------------------------------------------------------------------------- (defun-q twoPositions () (if (= 1(strlen emrNbr)) (setq emrNbr (strcat "0" emrNbr)) ) ) ;----------------------------------------------------------------------------------------------------------- ; Les routes étants prédéfinies, stockage de certains numéros sur la même couleur de calque ; Création de la variable "allCol" afin de pouvoir comparer et indiquer une erreur si la route n'existe pas ; - La variable reprend l'ensemble des autres listes "colXXX" ;-------------------------------------------------------------------------------------------------------------- (defun-q mLineCol () (setq colOne '("01" "11" "23" "31" "41" "51" "61" "63" "64" "65" "67")) (setq colTwo '("02" "12" "24" "32" "42" "52" "62" "66" "68")) (setq colThree '("03" "13" "25" "33" "43" "53")) (setq colFour '("04" "14" "26" "34" "44" "54")) (setq colFive '("05" "15" "27" "45" "55")) (setq colSix '("06" "16" "46" "56")) (setq colSeven '("07" "17" "47")) (setq colEight '("08" "18" "48")) (setq colNew '("09" "19")) (setq colTen '("10")) (setq allCol (append colOne colTwo colThree colFour colFive colSix colSeven colEight colNew colTen)) ) ;-------------------------------------------------------------------------------------------------------------- ; Fonction servant à comparer le nombre entré avec les différentes listes et attribuant à la variable ; "layCol" sa couleur correspondante. ;-------------------------------------------------------------------------------------------------------------- (defun-q colCompare () (setq layCol (cond ((car (member emrNbr colOne)) 1) ((car (member emrNbr colTwo)) 3) ((car (member emrNbr colThree)) 4) ((car (member emrNbr colFour)) 5) ((car (member emrNbr colFive)) 6) ((car (member emrNbr colSix)) 8) ((car (member emrNbr colSeven)) 30) ((car (member emrNbr colEight)) 171) ((car (member emrNbr colNew)) 134) ((car (member emrNbr colTen)) 235) ) ) ) ;------------------------------------------------------------------------------------------------------------- ; Initialisation de "emrNbr" (numéro de la route) à zéro pour éviter d'avoir une erreur sur le while ; Appel de la fonction "mLineCol" pour charger les différentes listes et éviter l'erreur surle while également ; Demande à l'utilisateur de rentrer un numéro de route valide. ; - Si la route n'existe pas, donner un message d'erreur et demander un nouveau nombre ; Appel de la fonction "twoPositions" pour la cas ou le nombre entré n'aurait qu'une position (defun C:EMR () (setq emrNbr 0) (mLineCol) (while (= nil (member emrNbr allCol)) (initget 7) (setq emrNbr (itoa (getint "\nEnter the route number : "))) (twoPositions) (if (= nil (member emrNbr allCol)) (alert "Invalid number EMR !! Please enter a correct number.") ) ) ; Appel de la fonction "colCompare" pour attribuer à la variable "layCol" sa couleur correspondante ; Rechercher si le calque "EMR_XX" existe, si ce n'est pas le cas on le créé avec sa bonne couleur ; On rend le calque de la route demandée courant (colCompare) (if (not (tblsearch "LAYER" (strcat "EMR_" emrNbr))) (and (vla-add (vla-get-layers ACADDOC) (strcat "EMR_" emrNbr)) (vla-put-color (vla-item (vla-get-layers ACADDOC) (strcat "EMR_" emrNbr)) layCol) ) ) (setvar "CLAYER" (strcat "EMR_" emrNbr)) ; Rechercher si le style de ligne "EMR_XX" existe, si ce n'est pas le cas on l'importe du fichier .lin ; On initialise Celtscale pour mettre à l'échelle le type de ligne sur les nouveaux objets créés ; On ajoute le style de multiligne au dictionnaire >>(DICTADD MLINESTYLE) ; On gère les 3 paramètres de la création de la multiligne avant de la tracer (if (not (tblsearch "LTYPE" (strcat "EMR_ROUTE_" emrNbr))) (vl-cmdf "_-LINETYPE" "LOAD" (strcat "EMR_Route_" emrNbr) "DIRECTORY\\acadiso.lin" "") ) (if (= emrNbr (car (member emrNbr allCol))) (progn (setq oldCeltscale (getvar "CELTSCALE")) (setvar "CELTSCALE" 60) ;DICTADD MLINESTYLE (setq styleName (strcat "EMR_Route_" emrNbr)) (dictadd (cdr (cadr (member '(3 . "ACAD_MLINESTYLE") (entget (namedobjdict))))) styleName (entmakex (list '(0 . "MLINESTYLE") '(100 . "AcDbMlineStyle") (cons 2 styleName) '(70 . 273) '(3 . "") '(62 . 256) '(51 . 1.5708) '(52 . 1.5708) '(71 . 3) '(49 . 250.00) '(62 . 256) '(6 . "BYLAYER") '(49 . 0.0) '(62 . 0) (cons 6 styleName) '(49 . -250.00) '(62 . 256) '(6 . "BYLAYER") ) ) ) (vl-cmdf "_MLINE" "JUSTIFICATION" "ZERO" "SCALE" "1" "STYLE" styleName) ) (princ) ) (princ) ) NB : J'ai bien sûr auparavant créé mon fichier *.lin avec des définitions des styles de ligne.

Merci Patrick et désolé pour la réponse tardive. Je teste ça dès que je reprend le boulot ;)

Bonjour, A défaut de passer par la commande "MLINE -> STYLE -> ...etc, est-ce que quelqu'un aurait une idée de comment importer simplement un style de multiligne (fichier .mln) ? Cordialement,

(setq Test (strcat (strcase (substr test 1 1)) (strcase (substr test 2) T))) Comme ça quelle que soit la longueur de ton mot, tu auras toujours la première lettre en majuscule et le reste en minuscule. Cordialement,

Dans ce cas, tu peux mettre ton wcmatch comme ceci : (if (= T (wcmatch Prof "*#*")) (setq Prof (vl-string-left-trim "p" (vl-string-right-trim "m" Prof))) (princ Prof) ) Si tu as du caractère numérique quel qu'il soit p1,25m ou P2,20m, p1,34M comme tu dis il te rabottera d'office le premier symbole au début et à la fin pour ne te laisser que ton nombre. Tandis que si tu n'as pas de caractère numérique il te gardera le nom en entier. Si pour les dimensions tu as d'autres lettres que "p" et "m", tu peux simplement utiliser (substr Prof 2 4) au lieu de (setq Prof (vl-string-left-trim "p" (vl-string-right-trim "m" Prof))) Si ce n'est pas ce que tu espérais, je ne saurais pas aller plus loin je pense. Mes connaissances restent malgré tout très basiques ^^' Mais j'aime à penser que je puisse rendre un jour l'aide qu'on m'a déjà apportée sur ce forum :) Cordialement,

Bonjour DenisH, Est-ce que ça peut t'aider ? : (setq test "p1,25m") (if (= T (wcmatch test "p*m")) (setq test (vl-string-left-trim "p" (vl-string-right-trim "m" test))) ) Je ne sais pas comment rendre les comparaisons insensibles à la casse mais si tu sais que ton texte sera toujours su style p1,20m par exemple, tu peux modifier ton WCMATCH. (wcmatch test "@#.##@") plusieures possibilités existent, je te renvoie sur le tutoriel de (gile), les détails du wcmatch sont expliqués à la page 24 en bas. Sinon ceci marche bien aussi apparement (substr test 2 4) En espérant avoir pu t'aider :) Cordialement,

Bon sang, c'est toujours le "(vla-item ...)" que j'oublie, merci pour cette précision VDH-Bruno. J'espérais une fois pouvoir aider quelqu'un mais apparement ça ne sera pas pour cette fois :) Merci également à -Olivier- pour les listes DXF. Cordialement, GJulien PS: Voici néanmoins le petit bout de code que j'ai pu faire. (defun-q c:BEXPL () (vl-load-com) (setq ACADBLOCK (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) (setq bSel (vla-get-name (vlax-ename->vla-object (car (entsel "Bloc : "))))) (if (= :vlax-true (vla-get-explodable (vla-item ACADBLOCK bSel))) (alert "Bloc explosable") (alert "Bloc non-explosable") ) ) Edit : C'est corrigé, désolé pour la petite erreur.

Bonjour, Par simple curiosité, quelqu'un peut expliquer pourquoi (tblobjname "BLOCK" "Nom_Du_Bloc") ne renvoie par la même chose que (car (entsel "Selection_Du_Bloc")) ? Je vois aussi que vous utilisez (assoc XXX), est-ce qu'il existe une liste reprenant la correspondance des numéros ? J'ai trouvé CECI mais je ne suis pas sur de ce que j'avance. Sinon j'avais trouvé une fonction nommée (vla-get-explodable object) qui renvoyait vlax-true ou vlax-false en fonction du bloc si il était explosable ou pas, mais je n'arrive malheureusement par à l'utiliser. Voici le lien ou j'ai trouvé la fonction. Cordialement, GJulien

Bonjour à tous, J'ai appris beaucoup de choses depuis mon dernier passage (principalement grâce à la communauté) mais là je coince totalement sur ... les multilignes. Voici le code sur lequel je travaille actuellement (ça m'amuse beaucoup je dois avouer :D)mais sur la dernière partie qui concerne l'import du style de la multiligne, ça ne marche pas du tout et malgré les différentes visites sur différents forums, ça ne m'aide pas plus. Quand je lance la commande MLINE STYLE ... directement à la ligne de commande, ça marche sans problème mais quand j'utilise (command "_MLINE" "STYLE" ...) dans mon code, ça ne marche plus. Je pensais que c'était le "(strcat" qui pouvait créer une erreur mais je ne vois pas pourquoi. Cordialement, GJulien ;; EMR (GJULIEN) ;; Définition des différentes routes d'évacuation avec calques et couleur correspondante. ;; Import des styles de ligne correspondants ;; Import du fichier .mln pour les multilignes ;; Traçage de la multiligne (vl-load-com) (setq ACADOBJ (vlax-get-acad-object)) (setq ACADDOC (vla-get-activedocument ACADOBJ)) ;-------------------------------------------------------------------------------------------------------------- ; Fonction servant à avoir toujours un nombre sur deux positions (ex : "1" devient "01") ;-------------------------------------------------------------------------------------------------------------- (defun-q twoPositions () (if (= 1(strlen emrNbr)) (setq emrNbr (strcat "0" emrNbr)) ) ) ;----------------------------------------------------------------------------------------------------------- ; Les routes étants prédéfinies, stockage de certains numéros sur la même couleur de calque ; Création de la variable "allCol" afin de pouvoir comparer et indiquer une erreur si la route n'existe pas ; - La variable reprend l'ensemble des autres listes "colXXX" ;-------------------------------------------------------------------------------------------------------------- (defun-q mLineCol () (setq colOne '("01" "11" "23" "31" "41" "51" "61" "63" "64" "65" "67")) (setq colTwo '("02" "12" "24" "32" "42" "52" "62" "66" "68")) (setq colThree '("03" "13" "25" "33" "43" "53")) (setq colFour '("04" "14" "26" "34" "44" "54")) (setq colFive '("05" "15" "27" "45" "55")) (setq colSix '("06" "16" "46" "56")) (setq colSeven '("07" "17" "47")) (setq colEight '("08" "18" "48")) (setq colNew '("09" "19")) (setq colTen '("10")) (setq allCol (append colOne colTwo colThree colFour colFive colSix colSeven colEight colNew colTen)) ) ;-------------------------------------------------------------------------------------------------------------- ; Fonction servant à comparer le nombre entré avec les différentes listes et attribuant à la variable ; "layCol" sa couleur correspondante. ;-------------------------------------------------------------------------------------------------------------- (defun-q colCompare () (setq layCol (cond ((car (member emrNbr colOne)) 1) ((car (member emrNbr colTwo)) 3) ((car (member emrNbr colThree)) 4) ((car (member emrNbr colFour)) 5) ((car (member emrNbr colFive)) 6) ((car (member emrNbr colSix)) 8) ((car (member emrNbr colSeven)) 30) ((car (member emrNbr colEight)) 171) ((car (member emrNbr colNew)) 134) ((car (member emrNbr colTen)) 235) ) ) ) ;------------------------------------------------------------------------------------------------------------- ; Initialisation de "emrNbr" (numéro de la route) à zéro pour éviter d'avoir une erreur sur le while ; Appel de la fonction "mLineCol" pour charger les différentes listes et éviter l'erreur surle while également ; Demande à l'utilisateur de rentrer un numéro de route valide. ; - Si la route n'existe pas, donner un message d'erreur et demander un nouveau nombre ; Appel de la fonction "twoPositions" pour la cas ou le nombre entré n'aurait qu'une position (defun C:EMR () (setq emrNbr 0) (mLineCol) (while (= nil (member emrNbr allCol)) (initget 7) (setq emrNbr (itoa (getint "\nEnter the route number : "))) (twoPositions) (if (= nil (member emrNbr allCol)) (alert "Invalid number EMR !! Please enter a correct number.") ) ) ; Appel de la fonction "colCompare" pour attribuer à la variable "layCol" sa couleur correspondante ; Rechercher si le calque "EMR_XX" existe, si ce n'est pas le cas on le créé avec sa bonne couleur ; On rend le calque de la route demandée courant (colCompare) (if (not (tblsearch "LAYER" (strcat "EMR_" emrNbr))) (and (vla-add (vla-get-layers ACADDOC) (strcat "EMR_" emrNbr)) (vla-put-color (vla-item (vla-get-layers ACADDOC) (strcat "EMR_" emrNbr)) layCol) ) ) (setvar "CLAYER" (strcat "EMR_" emrNbr)) ; Rechercher si le style de ligne "EMR_XX" existe, si ce n'est pas le cas on l'importe du fichier .lin ; Quand tout le reste est correct, on importe le style de la multiligne du fichier .mln ; - On établit la justification à zéro (if (not (tblsearch "LTYPE" (strcat "EMR_ROUTE_" emrNbr))) (command "_-LINETYPE" "LOAD" (strcat "EMR_Route_" emrNbr) "Directory\\acadiso.lin" " ") ) (if (= T(member emrNbr allCol)) (command "_MLINE" "STYLE" (strcat "EMR_Route_" emrNbr) (strcat "Directory\\EMR_" emrNbr ".mln") "JUSTIFICATION" "ZERO") ) (princ) ) ;-------------------------------------------------------------------------------------------------------------

Re-bonjour, En effet, je confirme que le code que tu as écrit a l'air tout de même plus simple et compréhensible. Au moins c'est vrai qu'en cas de modification, il ne faut pas répercuter le changement partout mais juste une fois (tout dépend de quelle modification, j'en suis conscient). Je pense qu'il me reste pas mal de travail à accomplir pour en saisir toutes les ficelles mais déjà avec ça je pense que je vais pouvoir approfondir un peu plus, je commence à bien mieux cerner les différentes parties (avec cet avantage d'avoir le même code de deux manière différentes, ça aide à la compréhension). Merci pour tes renseignements VDH-Bruno. Cordialement, GJulien

Bonjour Gile, Merci pour le mot clé, ça fonctionne parfaitement. Pour le changement des variables systèmes, j'étais un peu sceptique (je pensais que ça ne ferait que disparaitre la notification comme quoi il y avait des calques non rapprochés) mais effectivement ça disparait également dans le gestionnaire des calques donc c'est magnifique. Merci à tous pour votre aide.

Bonjour, Je viens d'essayer ton LISP, le problème est pareil que le mien. C'est à dire qu'à partir du moment ou il n'y a pas de calques à rapprocher et que l'utilisateur entre "Oui", la procédure s'arrête en ignorant les autres étapes. De plus, j'ai pu voir que tu avais entré le "Oui" par défaut sur les commandes, mais étrangement ça ne fonctionne pas, il faut tout de même l'écrire. Cordialement, GJulien EDIT : j'ai encore fait des essais, apparement sur un dessin que je viens d'ouvrir ou il n'y a pas de calques à rapprocher et que l'utilisateur rentre "Oui", il n'y a pas de soucis. Par contre si je fait 2 fois le rapprochement des calques sur le même dessin, le LISP saute. Actuellement ça me convient donc mais serait-il possible de savoir pourquoi ? Sinon je vous remercie pour vos réponses ;)

Bonjour, Tout d'abord merci pour vos réponses ;) @Patrick_35 : Merci pour le conseil, il est vrai qu'avec le "RECONCILE" des calques, la commande restait toujours active à la fin c'est pour ça que j'ai rajouté le "(command)", et donc tu me conseillerais de terminer la commande comme ceci ? (command "-LAYER" "RECONCILE" "*" "") par exemple et d'enlever le (command) ? @VDH-Bruno : Merci également de me montrer la différence des deux :) Actuellement je suis en train de décortiquer ton code afin de mieux le comprendre, je ferais un essai dès lundi pour voir si effectivement il fonctionne. Je ne sais pas si tu as revu les commandes pour faire ce code-ci ou si tu t'es basé sur celui que j'avais écrit mais après quelques essais supplémentaires, quand l'utilisateur rentre "Yes" pour le rapprochement des calques alors qu'il n'y en a pas, le LISP saute tout le reste du programme et le termine donc (je sais pas si j'arrive à bien me faire comprendre). nb : Je parle bien sur du code que j'ai écrit, pas le tien. Je suis toujours en recherche pour essayer de comprendre pourquoi ça ne va pas, mais lundi en essayant le tien et que ça fonctionne, je te remercie déjà :) Une excellente soirée à tous. Cordialement, GJulien

Bonjour à tous, J'ai un peu modifié le code (légèrement). En fait le souci venait apparement du fait qu'après la commande -LAYER, il restait dans les choix d'option quand il n'y avait rien à réconcilier. J'ai rajouté le (Command) qui correspond à échap pour palier le problème. J'ai également rajouté le "N" à la fin du Purge car ça causait aussi un problème, la purge ne se faisait pas (il restait sur la vérification avant suppression). Voila, désolé d'avoir posé une question pour pas grand chose, mais si ce bout de code peut aider quelqu'un éventuellement je dis tant mieux :) (Tout n'est peut-être pas correct donc si certains on l'envie et/ou la patience de l'améliorer, je n'y vois aucun inconvénient). Cordialement, GJulien (defun c:cscc () (command "_MSLTSCALE" 0) (command "_PSLTSCALE" 0) (command "_LTSCALE" 1) (initget 1 "Yes No") (setq LaRec (getkword "Voulez-vous réconcilier les calques ? [Yes/No] : ")) (if (= "Yes" LaRec) (progn (command "-LAYER" "RECONCILE" "*") (command) (princ "\nCalques réconciliés") ) (princ "\nCalques non-réconciliés") ) (initget 1 "Yes No") (setq Purge (getkword "\nVoulez-vous purger votre dessin ? [Yes/No] : ")) (if (= "Yes" Purge) (progn (command "-PURGE" "A" "*" "N") (command) (princ "\nDessin purgé") ) (princ "\nDessin non-purgé") ) (initget 1 "Yes No") (setq Save (getkword "\nVoulez-vous sauvegarder ? [Yes/No] : ")) (if (= "Yes" Save) (command "_QSAVE") ) (alert (princ "Configuration modifiée, dessin purgé, réconcilié et sauvegardé !") ) ) EDIT : Réflexion et test faits, il ne fonctionne pas encore comme il devrait, désolé :(

Bonjour à tous, Je suis un grand débutant en ce qui concerne les LISP, j'ai suivi le PDF de (gile) à cette adresse [ http://gilecad.azurewebsites.net/Tutorials/Introduction_a_AutoLISP.pdf ]pour commencer mais je suis arrivé sur un problème que je ne vois pas comment résoudre. Voici le code que j'ai fait (il redéfinit 3 variables dans mon dessin, propose de réconcilier les calques, purger le dessin et sauvegarder) Quand il y a des éléments à réconcilier et à purger, je n'ai aucun souci mais par contre si l'utilisateur rentre "Y" alors qu'il n'y a rien, le LISP m'indique une erreur. Pouvez-vous m'aider ? (Si vous avez sous la main d'autre tutoriels, je suis également preneur. Actuellement je suis en train de lire http://www.ai.univ-paris8.fr/~hw/lisp/letout.pdf ) Merci d'avance, GJulien (defun c:cscc () (command "_MSLTSCALE" 0) (command "_PSLTSCALE" 0) (command "_LTSCALE" 1) (initget 1 "Yes No") (setq LaRec (getkword "Voulez-vous réconcilier les calques ? [Yes/No] : ")) (if (= "Yes" LaRec) (progn (command "-LAYER" "RECONCILE" "*") (princ "\nCalques réconciliés") ) (princ "\nCalques non-réconciliés") ) (initget 1 "Yes No") (setq Purge (getkword "\nVoulez-vous purger votre dessin ? [Yes/No] : ")) (if (= "Yes" Purge) (progn (command "-PURGE" "A" "*") (princ "\nDessin purgé") ) (princ "\nDessin non-purgé") ) (initget 1 "Yes No") (setq Save (getkword "\nVoulez-vous sauvegarder ? [Yes/No] : ")) (if (= "Yes" Save) (progn (command "_QSAVE") ) ) (alert (princ "Configuration modifiée, dessin purgé, réconcilié et sauvegardé !") ) ) EDIT : J'ai oublié de préciser que je travaille sur AutoCAD Architecture 2013.

Principalement oui :)

Eh bien ça serait beaucoup de pc à changer pour du simple mobilier de bureau principalement et je crois que le fait de parler de changer le gabarit leur a fait peur ^^ Sinon l'utilisation de ces multi-blocs à la base c'était pour afficher les blocs en vue en plan pour commencer et par la suite on aurait complété avec les autres vues. Il y avait plusieurs projet autour de ces blocs mobilier comme les lier à une base de donnée du personnel pour savoir qui travaille ou, quels bureaux sont libres, ... Avec ça on aurait fait un tableau reprenant les informations du personnel avec les numéro de bureaux et de locaux. J'oublie certainement des choses mais dans l'ensemble voilà ^^ De plus, pour d'autres services je suppose qu'ils devaient avoir leur utilité aussi mais n'y travaillant pas je ne saurais dire plus ^^