{"id":870,"date":"2022-12-08T07:16:49","date_gmt":"2022-12-08T06:16:49","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=870"},"modified":"2022-12-08T07:29:10","modified_gmt":"2022-12-08T06:29:10","slug":"zone-texte-dans-une-cellule-de-grille","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/zone-texte-dans-une-cellule-de-grille\/","title":{"rendered":"Zone texte dans une cellule de grille\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\t\t\t\t

Pour pouvoir changer le texte d’une grille, il faut lui adjoindre un TextBox et\/ou un ComboBox.

<\/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

\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

Pour un TextBox:<\/h3>\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

Cr\u00e9er un contr\u00f4le TextBox appel\u00e9 TxtCell
Passer sa propri\u00e9t\u00e9 Visible \u00e0 False
Ins\u00e9rer les codes suivants dans les \u00e9v\u00e8nements de TxtCell:<\/p>

Private Sub TxtCell_GotFocus()<\/em><\/span>
\u00a0\u00a0 \u00a0TxtCell.SelStart = 0<\/em><\/span>
\u00a0\u00a0 \u00a0TxtCell.SelLength = Len(TxtCell.Text)<\/em><\/span>
End Sub<\/em><\/span><\/p>

Private Sub TxtCell_LostFocus()<\/em><\/span>
\u00a0\u00a0 \u00a0TxtCell.Visible = False<\/em><\/span>
End Sub<\/em><\/span><\/p>

Private Sub TxtCell_KeyPress(KeyAscii As Integer)<\/em><\/span>
\u00a0\u00a0 \u00a0If KeyAscii <> 13 Then Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0KeyAscii = 0
<\/em><\/span>\u00a0\u00a0 \u00a0‘Mon code programme
<\/span><\/em><\/span>\u00a0\u00a0 \u00a0Grid.SetFocus<\/em><\/span>
End Sub<\/em><\/span><\/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

Pour un ComboBox:<\/h3>\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

Cr\u00e9er un contr\u00f4le ComboBox appel\u00e9 ComCell
Passer sa propri\u00e9t\u00e9 Visible \u00e0 False
Ins\u00e9rer les codes suivants dans les \u00e9v\u00e8nements de ComCell:

Private Sub ComCell_LostFocus()<\/span>
\u00a0\u00a0 \u00a0ComCell.Visible = False<\/span>
End Sub<\/span>

Private Sub ComCell_Click()<\/span>
\u00a0\u00a0 \u00a0If ComInhibe Then Exit Sub<\/span>
\u00a0\u00a0\u00a0 ‘Mon code programme<\/span><\/span>
\u00a0\u00a0\u00a0 Grid.SetFocus<\/span>
End Sub<\/span><\/em><\/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

Dans le Grid:<\/h3>\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

Private Sub Grid_DblClick()
\u00a0\u00a0 \u00a0With Grid
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Select Case .Col
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Case 1, 2, 3, 4, 6\u00a0\u00a0\u00a0‘Si cette colonne fait appara\u00eetre un textbox<\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Left = .CellLeft + .Left – 15
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Top = .CellTop + .Top – 15
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Width = .CellWidth + 30
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Height = .CellHeight
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Text = .TextMatrix(.Row, .Col)
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.Visible = True
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TxtCell.SetFocus

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Case 5\u00a0\u00a0\u00a0‘Si cette colonne fait appara\u00eetre un combobox<\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComInhibe = True
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0RemplitLeCom .TextMatrix(0, .Col)\u00a0\u00a0\u00a0‘Proc\u00e9dure \u00e0 \u00e9crire pour remplir le combobox<\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.Left = .CellLeft + .Left – 15
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.Top = .CellTop + .Top – 15
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0If .CellWidth > 900 Then
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.Width = .CellWidth + 30
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Else
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.Width = 900
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0End If
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.ListIndex = TrouveLIndex(.TextMatrix(.Row, .Col))
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.Visible = True
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComCell.SetFocus
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0ComInhibe = False
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Case Else
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0End Select
\u00a0\u00a0 \u00a0End With
End Sub

Function TrouveLIndex(QuelTexte) As Integer
\u00a0\u00a0 \u00a0TrouveLIndex = -1
\u00a0\u00a0 \u00a0For i = 0 To ComCell.ListCount – 1
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0If QuelTexte = ComCell.List(i) Then
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0TrouveLIndex = i
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Exit For
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0End If
\u00a0\u00a0 \u00a0Next i
End Function<\/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":"

Pour pouvoir changer le texte d’une grille, il faut lui adjoindre un TextBox et\/ou un ComboBox. Pour un TextBox: Cr\u00e9er un contr\u00f4le TextBox appel\u00e9 TxtCellPasser sa propri\u00e9t\u00e9 Visible \u00e0 FalseIns\u00e9rer les codes suivants dans les \u00e9v\u00e8nements de TxtCell: Private Sub TxtCell_GotFocus()\u00a0\u00a0 \u00a0TxtCell.SelStart = 0\u00a0\u00a0 \u00a0TxtCell.SelLength = Len(TxtCell.Text)End Sub Private Sub TxtCell_LostFocus()\u00a0\u00a0 \u00a0TxtCell.Visible = FalseEnd Sub […]<\/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-870","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/870","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=870"}],"version-history":[{"count":4,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/870\/revisions"}],"predecessor-version":[{"id":878,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/870\/revisions\/878"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=870"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}