Construction macro

Re,

désolé, en voulant démarrer les consignes à zéro, si l'ont démarre le tableau de "Consigne" sans données ou si toutes les consignes sont validées par CdS, un bug se produite à l'ouverture du formulaire...

Merci

Bonsoir

Petit problème de bug à l'ouverture du formulaire.

Quand dans la colonne "CdS" il n'y a plus de cellule vide alors Bug... ou si toutes les consignes sont validés par le CdS alors idem, Bug..

Comment peut-on faire ?

Merci

Cdlt.

pompaero

Remplacer :

Private Sub UserForm_initialize()
InitVar
InitListB
   usfStatus = Status.Consultation ' Consultation par défaut
   With Me      ' Initialisation de certains contrôles
      .cmdConfirm.Visible = False: .cmdCancel.Visible = False
      .lbRech.Enabled = True: .frmCons.Enabled = False
      usfTitle     ' Titre du UserForm (Propriété Caption)
   End With
   ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille
   On Error GoTo GESTERRFIRSTREC
   Me.lbRech.ListIndex = Me.Tag - 1
Exit Sub
GESTERRFIRSTREC: 'Cas du premier enregistrement
If lbRech.ListCount = -1 Then
   frmCons.Caption = "Edition consigne N° : ***"   '"Enr. N° : ***"
   cmdNew_Click
End If
End Sub

Private Sub InitDataF()
Dim Dico, Arr, i%, k%, n%
  Set Dico = CreateObject("Scripting.Dictionary")
  Arr = TData.DataBodyRange.Value
   For i = LBound(Arr) To UBound(Arr)
      Dico(Arr(i, 9)) = ""
   Next
   For i = LBound(Arr) To UBound(Arr)
      If Arr(i, 9) = "" Then
       Me.lbRech.AddItem Arr(i, 1)
       For k = 1 To 9
         Me.lbRech.List(n, k - 1) = Arr(i, k)
       Next k
              n = n + 1
      End If
   Next
   On Error GoTo GESTERRFIRSTREC
  Me.lbRech.ListIndex = 0
Exit Sub
GESTERRFIRSTREC:
Me.lbRech.ListIndex = -1
End Sub

Et tester abondamment... !

A+

Modification effectuée, après quelques tests cela à l'aire de fonctionner.

Je poursuit les tests demain.

Merci.