bonjour la foule,
j'ai un projet vba que j'améliore un peu tous les jours, et depuis hier j'ai une pause à l'éxécution sur la ligne ''end sub'' d'une procédure ?!
y'a pourtant pas de point d'arret, et si je relance en appuyant sur [F5] le problème ne revient pas (c'est à dire que le code ne s'arrete qu'a la 1ere exécution de cette sub, mais plus à la 2e ni aux suivantes).
quelqu'un saurait me dire pourquoi ça peut arriver ?....
voila la fautive, exécutée depuis userform2 et qui va chercher des infos dans l'objet classeur wbkBase créé depuis userform1 (les 2 form sont ouvert en m tps) :
j'ai un projet vba que j'améliore un peu tous les jours, et depuis hier j'ai une pause à l'éxécution sur la ligne ''end sub'' d'une procédure ?!
y'a pourtant pas de point d'arret, et si je relance en appuyant sur [F5] le problème ne revient pas (c'est à dire que le code ne s'arrete qu'a la 1ere exécution de cette sub, mais plus à la 2e ni aux suivantes).
quelqu'un saurait me dire pourquoi ça peut arriver ?....
voila la fautive, exécutée depuis userform2 et qui va chercher des infos dans l'objet classeur wbkBase créé depuis userform1 (les 2 form sont ouvert en m tps) :
Code:
Public FNRs As New Scripting.Dictionary
Dim REF_Selected_FNR()
....
....
Private Sub choix_type_echantillon(typeECH As Byte)
FNRs.RemoveAll
ColumnNbr = 26 + 2 * typeECH
UserForm1.wbkBase.Sheets(typeECH).Activate
Dim REFs_FNRs()
For i% = 2 To Application.WorksheetFunction.CountA(Range(Range("Z:Z").Offset(0, 2 * typeECH).Address)) + 1
If Not FNRs.Exists(Cells(i, ColumnNbr).Text) Then
j = 0
ReDim REFs_FNR(0)
For Each objCell In Range(Range("A2"), Range("A2").End(xlDown))
If objCell.Offset(0, ColumnNbr - 1) = Cells(i, ColumnNbr) Then
ReDim Preserve REFs_FNRs(j)
REFs_FNRs(j) = Array(objCell.Text, objCell.Offset(0, ColumnNbr + 2).Text, _
IIf(CBool(objCell.Offset(0, ColumnNbr + 2 + 1).Text = "TRANSMIS"), "OUI", "NON"), objCell.Row)
j = j + 1
End If
Next
FNRs.Add Cells(i, ColumnNbr).Text, REFs_FNRs()
End If
Next
ListFnrs = FNRs.Keys
ListSort ListFnrs
ListSort ListFnrs ' oui, 2 fois : j'ai pas trouvé l'erreur... ?!
Me.ComboBox_choix_FNR.List = ListFnrs
ListBox1.ColumnCount = 3
REF_Selected_FNR = Array()
choix_FNR
End Sub