est comme cela ?Private Sub CbxNBDI_Change()
If CbxNBDI.ListIndex = -1 Then LDICou = 0: Exit Sub
NBDIVLgn(1, 15) = Me.LabMailADV
PlgNBDI.Rows(LDICou).Value = NBDIVLgn
Set DicNBDI = DictionnArbo(PlgNBDI.Columns("A"))
Me.CbxNBDI.List = DicNBDI.Keys
End Sub
C'est normal: vous exécutiez With PlgNBDI.Rows(LDICou - 1).EntireRow: .Copy: .Insert: End With dans tous les cas et pas seulement quand LDICou était à 0 avant qu'on y mette PlgNBDI.Rows.Count + 1Sur un rappel d'enregistrement je n'écrasse toujours pas l'enregistrement initial
De même qu'avec un ComboBoxLiés, si vous changer la base vous devez refaire un Actualiser, vous devez refaire le Dictionnaire et affecter ses nouvelle clés au List du ComboBox. (Juste ces 2 instructions, PlgNDBI quant à lui est automatiquement rectifié, à condition de procéder comme j'ai dit au lieu d'ajouter bêtement la ligne derrière de sorte que du coup elle n'en ferait plus partie)
C'est clair ! Ça ne s'appliquerait que si les données agence changeaient, et ça n'introduirait encore aucun changement dans les ComboBox. Vous devez renseigner leurs .Text d'après les renseignements trouvés dans la ligne. Mais il ne faut pas perdre de vue que cela va déclencher les CLADV_Change et autres CLADV_BingoUn et entrainer toutes leurs conséquences telles que peut être mettre dans d'autres champs les nouvelles info agence correspondantes au lieu de celles trouvées initialement dans la ligne. Mais c'est peut être ce qu'il faut après tout. Si ce n'est pas le cas, il faut le Stopper au préalable, puis l'Activer après l'opération. Vérifiez si votre module ComboBoxLiés est équipé de ces méthodes.J'ai essayé : CLADV.Actualiser .... mais cela ne marche pas
je n'ai surment pas tous compris
Me.CbxCodeDI.Text = NBDI(1, 5)
'TBQM = NBDI(1, 6)
'CbxAgence = NBDI(1, 7)
'CbxCodAG = NBDI(1, 8)
'CbxNomTCI = NBDI(1, 9)
'LabMailTCI = NBDI(1, 10)
Me.CbxNomTCS.Text = NBDI(1, 11)
'CbxNomTCS = NBDI(1, 11)
'LabMailTCS = NBDI(1, 12)
'LabTelTCS = NBDI(1, 13)
'CbxNomADV = NBDI(1, 14)
'LabMailADV = NBDI(1, 15)
CLAgence.Actualiser
CLTCS.Actualiser