Bonsoir,
à la fin de la SUB HOP :
Sub HOP()
' Lancement du traitement
Dim T0!, T1!, xfin As Range, xsh As Worksheet, derlig&
VarAccelerer True
Set FF = Worksheets(sSource) ' sFeuille Source
' effacement des précédents résultats
UserForm1.Show vbModeless
UserForm1.Label1 = "Effacement des précédents résultats..."
UserForm1.Repaint
Application.DisplayAlerts = False
For Each xsh In Worksheets
If xsh.Name = sResult Then
xsh.Delete
Exit For
End If
Next xsh
Application.DisplayAlerts = True
' création d'une nouvelle Feuille "Result" d'après
' la feuille masquée "Result-modele"
Sheets("Result-modele").Visible = True
Sheets("Result-modele").Copy after:=Sheets(sSource)
ActiveSheet.Name = sResult
Set FR = Worksheets(sResult)
Sheets("Result-modele").Visible = False
With FR
.Names.Add Name:="Duree", RefersTo:="=" & FR.Range("n1").Address
.Names.Add Name:="nbrSol", RefersTo:="=" & FR.Range("n2").Address
End With
UserForm1.Label1 = "Recherche des combinaisons..." & vbLf & vbLf & _
"(l'application ne répond pas pendant la recherche)"
UserForm1.Repaint
T0 = Timer
If VersionVn = "v4" Then
AFFICHER_LES_SOLUTIONS_v4
ElseIf VersionVn = "v2" Then
'AFFICHER_LES_SOLUTIONS_v2
Unload UserForm1
VarAccelerer False
Exit Sub
Else
Unload UserForm1
VarAccelerer False
Exit Sub
End If
FR.Range("nbrSol") = nbrSol
T1 = Timer: FR.Range("duree") = T1 - T0 - 86400 * (T1 < T0)
VarAccelerer False
Unload UserForm1
Load UserForm1
UserForm1.Label1 = Format(nbrSol, "#,##0") & " solutions trouvées" & vbLf _
& vbLf & " en " & Format(FR.Range("duree"), "#,##0.00") & " sec. (hors effacement initial)"
' écriture tableau des tests
With FF
derlig = .Cells(.Rows.Count, "u").End(xlUp).Offset(1).Row
.Cells(derlig, "u") = .Range("e3")
.Cells(derlig, "v") = nbrSol
.Cells(derlig, "w") = FR.Range("duree")
End With
On Error Resume Next
UserForm1.Show vbModal
On Error Goto 0
End Sub
Je viens de tester une dernière fois : premier lancement erreur 400 ! ajout du code d'erreur, relance de "Hop" plus d'erreur si ce n'est celle d'un indice de tableau qui "sort" de la taille du tableau...
@ bientôt
LouReeD