Discussion :

[totoche]

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( )

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

Code :

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

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()

[totoche]

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é

[AlainTech]

Ok

Si Ok, Résolu?

[totoche]

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

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é

[totoche]

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

[totoche]

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

Code :

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

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

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

Code :

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

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