Discussion :

[bandit boy]

Bonjour,
J'utilise une flexgrid dont je souhaite changer les valeurs des cellules. pour cela je souhaite afficher une textbox sur la cellule que je veux modifier.
Malgré l'utilisation de Zorder, ma textbox reste en arriere-plan ( donc non visibles sous la flexgrid).
Quelqu'un a t'il une idée?
Pour info voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub MSFlexGrid1_DblClick()
    With TextBox1
                .Left = (MSFlexGrid1.CellLeft / 20 + MSFlexGrid1.Left)
                .Height = (MSFlexGrid1.CellHeight / 20 + 5)
                .Width = (MSFlexGrid1.CellWidth / 20)
                .Top = (MSFlexGrid1.CellTop / 20 + MSFlexGrid1.Top - 20)
                .Text = MSFlexGrid1.Text
    End With
 
    MSFlexGrid1.Text = TextBox1.Text
    TextBox1.Visible = True
    TextBox1.ZOrder 0
End Sub

[jmfmarques]

A moins que VBA n'ait des problèmes (ignorés de VB), je ne comprends pas !
Tous mes essais, y compris les plus vicieux, provoquent avec VB l'apparition de la TextBox au 1er plan dès qu'un exécute Text1.zorder !...

Une autre fois : avec VB
Si VBA réagit comme VB , les explications possibles sont peu nombreuses :

- un autre événement concommitent (mouseUp, Click, MouseMove) de la Flexgrid annule la propriété True de la TextBox ou son Zorder
- (mais peu probable) un simple click est fait au lieu d'un double-click !

Attendons donc qu'un possesseur de VBA teste et nous dise ce qu'il constate de son côté !

[jmfmarques]

Je viens enfin de parvenir à provoquer cette erreur, ainsi :
en mettant la textbox dans un autre container (Frame ou PictureBox) distinct de celui qui contient la Llexgrid !
Si tu as fait cela, Bandit, le Zorder de la textbox se limitera au 1er plan de son container (et si celui-ci n'est pas, lui-même, au 1er plan sur la Form, il est normal que la Textbox ne puisse venir au 1er plan de la Form).

Je parie à 1 contre 100 que c'est là ton erreur !
Dis-nous ...et ne triches pas, hein ?

[bandit boy]

meme pas!!! C'est promis!!

Par contre cela m'a donné une idée !! . Du coup j'ai mis ma text box dans une frame et j'ai appelé ma frame et la : miracle ca marche!!.
Me frame se place bien devant ma flexgrid, je peux donc taper montexte et ensuite le recopier dans la cellule concernée.

Ainsi ta provocation d'erreur, m'a donné la solution étonnant, non ?
Pour ceux que cela interresse voila le petit bout de code concerné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub MSFlexGrid1_DblClick()
    With Frame1
                .Left = (MSFlexGrid1.CellLeft / 20 + MSFlexGrid1.Left)
                .Height = (MSFlexGrid1.CellHeight / 20 + 15)
                .Width = (MSFlexGrid1.CellWidth / 10)
                .Top = (MSFlexGrid1.CellTop / 20 + MSFlexGrid1.Top)
                .Caption = "modifier :"
    End With
    Frame1.TextBox1.Text = MSFlexGrid1.Text
    Frame1.Visible = True
End Sub
 
Private Sub TextBox1_Change()
    MSFlexGrid1.Text = Frame1.TextBox1.Text
End Sub
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Frame1.Visible = False 'appui sur entrée
End Sub

et voila
a+