{"id":1500,"date":"2022-12-12T12:36:10","date_gmt":"2022-12-12T11:36:10","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=1500"},"modified":"2022-12-12T16:47:06","modified_gmt":"2022-12-12T15:47:06","slug":"generalement-au-boulot","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/generalement-au-boulot\/","title":{"rendered":"G\u00e9n\u00e9ralement au boulot\u200b"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

Remettre le calendrier utilis\u00e9 par les fichiers TRS<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Suite au changement de PC, il se peut que le contr\u00f4le \u00ab\u00a0MsCal\u00a0\u00bb soit manquant. Cela se caract\u00e9rise par une grosse croix rouge \u00e0 l’emplacement habituel du calendrier des fichiers TRS.<\/p>

R\u00e9cup\u00e9rer tous les fichiers \u00ab\u00a0MSCALxxxxxxx.xxxx\u00a0\u00bb dans le r\u00e9pertoire \u00ab\u00a0C:\\Windows\\System32\u00a0\u00bb d’un PC \u00ab\u00a0qui marche\u00a0\u00bb, et les copier dans le m\u00eame r\u00e9pertoire du PC malade. Ces fichiers sont aussi dans la Cl\u00e9MrdTosh.<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t\t\t\t\t\t\t\t\t\t\t\"\"\t\t\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Dans Excel, afficher la barre d’ic\u00f4nes \u00ab\u00a0Boite \u00e0 outils Contr\u00f4les\u00a0\u00bb<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t

\n\t\t\t\t
\n\t\t\t\t\t\t\t\t\t\t\t\t\t\"\"\t\t\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Choisir l’ic\u00f4ne \u00ab\u00a0Autres contr\u00f4les\u00a0\u00bb, puis le menu \u00ab\u00a0Enregistrer le contr\u00f4le personnalis\u00e9\u2026\u00a0\u00bb
Dans la fen\u00eatre qui s’ouvre, choisir le \u00ab\u00a0MSCAL.OCX<\/em><\/span>\u00ab\u00a0.
Fermer puis r\u00e9-ouvrir le fichier Excel souhait\u00e9. <\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t

\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t\t\t\t\t\t\t\"\"\t\t\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Calcul du caract\u00e8re de contr\u00f4le EAN13<\/h2>

\u00a0<\/p>

Pris sur le net:<\/h3>

Voici un exemple de calcul du caract\u00e8re de contr\u00f4le d’un code EAN 13. Pour un code EAN 8, la proc\u00e9dure est la m\u00eame, il y a seulement moins de chiffres \u00e0 prendre en compte.<\/p>

Code EAN\u00a0\u00a0 \u00a0400763000011X\u00a0\u00a0\u00a0\u00a0 –> X est le caract\u00e8re recherch\u00e9
Chiffres\u00a0\u00a0 \u00a04 0 0 7 6 3 0 0 0 0 1 1
Multiplier par\u00a0\u00a0 \u00a01 3 1 3 1 3 1 3 1 3 1 3
R\u00e9sultat\u00a0\u00a0 \u00a04 0 0 21 6 9 0 0 0 0 1 3
Somme\u00a0\u00a0 \u00a04 + 0 + 0 + 21 + 6 + 9 + 0 + 0 + 0 + 0 + 1 + 3 = 44
Division par 10\u00a0\u00a0 \u00a044 \/ 10 = 4 reste 4
Caract\u00e8re de contr\u00f4le\u00a0\u00a0 \u00a010 – reste = 6<\/p>

Le code EAN final est donc dans ce cas 4007630000116.<\/p>

Pris dans le programme \u00ab\u00a0Reference Base\u00a0\u00bb de Raf, proc\u00e9dure \u00ab\u00a0TxtNum\u00e9ro_Article_KeyPress\u00a0\u00bb<\/h3>

‘ Calcul du checksum
<\/em><\/span>If Len(TxtNum\u00e9ro_Article.Text) = \u00ab\u00a013\u00a0\u00bb Then
\u00a0\u00a0 \u00a0Dim l As Long, L2 As Long
\u00a0\u00a0 \u00a0l = Mid(TxtNum\u00e9ro_Article.Text, 2, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 4, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 6, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 8, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 10, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 12, 1) * 3 + Mid(TxtNum\u00e9ro_Article.Text, 1, 1) + Mid(TxtNum\u00e9ro_Article.Text, 3, 1) + Mid(TxtNum\u00e9ro_Article.Text, 5, 1) + Mid(TxtNum\u00e9ro_Article.Text, 7, 1) + Mid(TxtNum\u00e9ro_Article.Text, 9, 1) + Mid(TxtNum\u00e9ro_Article.Text, 11, 1)
\u00a0\u00a0 \u00a0L2 = l Mod 10
\u00a0\u00a0 \u00a0L2 = 10 – L2
\u00a0\u00a0 \u00a0If L2 = 10 Then L2 = 0
\u00a0\u00a0 \u00a0If L2 <> Mid(TxtNum\u00e9ro_Article.Text, 13, 1) Or TxtNum\u00e9ro_Article.Text = \u00ab\u00a00000000000000\u00a0\u00bb Then
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 MsgBox (\u00ab\u00a0Le num\u00e9ro d’article est incorrect.\u00a0\u00bb & vbCrLf & \u00ab\u00a0La cl\u00e9 de contr\u00f4le n’est pas bonne (13\u00e8me chiffres) ou le code est \u00e9gal \u00e0 0000000000000.\u00a0\u00bb)
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 TxtNum\u00e9ro_Article.Text = \u00ab\u00a03389110000009\u00a0\u00bb
\u00a0\u00a0 \u00a0End If
End If<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

Remettre le calendrier utilis\u00e9 par les fichiers TRS Suite au changement de PC, il se peut que le contr\u00f4le \u00ab\u00a0MsCal\u00a0\u00bb soit manquant. Cela se caract\u00e9rise par une grosse croix rouge \u00e0 l’emplacement habituel du calendrier des fichiers TRS. R\u00e9cup\u00e9rer tous les fichiers \u00ab\u00a0MSCALxxxxxxx.xxxx\u00a0\u00bb dans le r\u00e9pertoire \u00ab\u00a0C:WindowsSystem32\u00a0\u00bb d’un PC \u00ab\u00a0qui marche\u00a0\u00bb, et les copier dans […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-1500","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1500","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=1500"}],"version-history":[{"count":10,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1500\/revisions"}],"predecessor-version":[{"id":1518,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1500\/revisions\/1518"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=1500"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}