[VBA-E] pb positionnement en avant-plan d'une textbox

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:

---

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

---

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é ! :cry:

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 ? :lol:

meme pas!!! C'est promis!!

Par contre cela m'a donné une idée !! :lol: . 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 ? :lol:
Pour ceux que cela interresse voila le petit bout de code concerné :

Code:

---

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 :wink:
a+