TUT MSH updatable

En tant que lol professionnel y a qlq chose que je comprend pas dans le tut : Réalisation d'une grille hierarchique UPDATABLE de MR MALATIER(:hola: )

La fonction Private Sub MiseAJour() n'est jamais appelé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub GrilleMSH_LeaveCell() 'Avant un changement de cellule active If TxtEdit.Visible = False Then Exit Sub GrilleMSH = TxtEdit 'Une modification est en cours TxtEdit.Visible = False MiseAJour End Sub Private Sub MiseAJour() Dim i As Long With GrilleMSH ....

---

Le Exit Sub ne me permet pas d'acceder a la fonction MiseAJour()

Ok
elle est appelé a l'issue de la saisie
ordre des choses:

Sub GrilleMSH_LeaveCell()
visible est false donc pas d'ajout
Sub GrilleMSH_DblClick()
visible est true donc quand leaveCell est appelé sur une autre cellule ajout est appelé

Citation:

---

Envoyé par totoche

Ok

---

Si Ok, Résolu?

Bonjour mon Ok était pour ce que je crois avaoir compris sur l'enchainement des fonctions. C'est vrai que j'aurai du préciser:oops:

si je n'ai pas mis le tag résolu c'est que j'ai tjs un petit prob avec la fonction MiseAJour() et Sub EditKeyCode qui rend le focus à la grille sans passer par la fonction MiseAJour()
Autrement dit si on fait une modification puis qu'on clique sur une autre cellule tout va bien, par contre si on fait une modification puis qu'on valide , ou que l'on se déplace via les flèches la fonction MiseAJour() n'est pas appelé

En ajoutant simplement la fonction MiseAJour a Sub GrilleMSH_GotFocus() ça marche
je ne mets pas résolu car j'ai encore un petit prob:?

Le prob c'est que si je modifie une valeur sur la bande 1 (+)
comme j'ai au niveau du formatage :

Code:

---

1 2 3

' Indentation de la bande 1 .BandIndent(1) = 2 .BackColorIndent(1) = vbYellow

---

au niveau de MiseAJour() y trouve plus .col =1...

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub MiseAJour() 'MsgBox (GrilleMSH) ' quand on quitte la cellule   Dim i As Long With GrilleMSH i = .Col .Col = 1 rsPub.Find ("Id_Transport = " & GrilleMSH) MsgBox (GrilleMSH)

---

faut passer en param a la fonction ajout le numéro de bande :?

pour résoudre j'ai mis un test

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub MiseAJour() 'MsgBox (GrilleMSH)   Dim i As Long, b As Long With GrilleMSH i = .Col If .BandLevel = 0 Then .Col = 1 Else .Col = 2 End If

---

Pour finir j'ai juste ajouté une variable pour tester si le contenu de la cellule a été modifié, pour éviter d'appler MiseAJour()

Code:

---

1 2 3 4 5 6 7 8

Sub GrilleMSH_DblClick() 'Appel de la procédure MSHFlexGridEdit sur double clic MSHFlexGridEdit GrilleMSH, TxtEdit, 32 ValeurAvantModif = GrilleMSH .... Sub GrilleMSH_LeaveCell() If TxtEdit.Visible = False Then Exit Sub If TxtEdit = ValeurAvantModif Then Exit Sub

---